Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: wizard_0 en 21 Junio 2008, 06:30 AM

Título: BATCH!!! Obtener la Ip Public
Publicado por: wizard_0 en 21 Junio 2008, 06:30 AM
Weno  aki  les  dejo  uno  de  mis  jugetes  en  BATCH!!!  la  funcion  como  obtener  la  Ip  Public  de  nuestra  PC  8)
weno  en este  caso  utilizo  la  pagina  www.showmyip.com  utilizando  el  GET.exe

Descarga  del  Get.exe
http://w17.easy-share.com/1700694154.html (http://w17.easy-share.com/1700694154.html)

Código (dos) [Seleccionar]
@echo off
setlocal enabledelayedexpansion
pushd %windir%\system32
if not exist get.exe (call:info " No se encuentra  el archivo get.exe  sugiero una  descarga" "                 imposible realizar la operacion..." 16 "** ERROR **" && exit) else (
get www.showmyip.com ipp.txt
ping 127.0.0.1 -n 3 >nul
for /f  "tokens=8 delims= " %%a in ('find /I " Connection" ipp.txt') do (call:gett "%%a")
)

:gett
set ipp=%1
if %1. NEQ . (call:info " Tu ip public es : !ipp:~1,-1! " "        CONGRATULATIONs" 48 "**** wIzArD ****") else (call:info "Problemas con la pagina q usamos" "  no  esta  activa!!! " 16 "** ERROR **")
del ipp.txt >nul
exit

:info
echo wzr=%1 ^& Chr(13) ^& %2 >%temp%\winfo.vbs
echo msgbox wzr,%3,%4 >>%temp%\winfo.vbs
start %temp%\winfo.vbs
ping 127.0.0.1 -n 2 >nul
del %temp%\winfo.vbs >nul
goto:EOF


Ojo!!  la  pagina  al  veces  no  esta  activa   es  por  eso  q puse  una  exception.. de  Error
aunke  pueden   hacerlo  con  cualkier...  otra    page.
claro  el  codigo seria  distinto..  8)

salu2-->
Título: Re: BATCH!!! Obtener la Ip Public by wIzArD
Publicado por: $hyDow en 24 Junio 2008, 13:39 PM
esta muy bien!!
pero hay una cosa que no entiendo, que es el comando setlocal?
esque pongo setlocal/? en el cmd y no entiendo nnnaaaddda
Título: Re: BATCH!!! Obtener la Ip Public by wIzArD
Publicado por: pyxolo en 24 Junio 2008, 15:23 PM
set local sirve para guardar una variable permanentemente ;) aunque cierres la shell ;)