comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Auto-It] Tomar IP

  • 0 Respuestas
  • 1430 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Xa0s

  • *
  • Underc0der
  • Mensajes: 40
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Professional-Hacker
« en: Junio 10, 2010, 11:21:39 am »
Ok. Aqui les dejo un source simple de una aplicacion para tomar una IP.
El GUI lo hice con Koda. Luego agregue la biblioteca INet.au3 que es necesaria para la funcion _GetIP() y listo.

Ok. Les dejo el codigo:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#Region ### START Koda GUI section ### Form=
$frmInicio = GUICreate("Tomar IP", 404, 67, 192, 124)
$cmdOk = GUICtrlCreateButton("Mostrar IP", 8, 32, 225, 25, $WS_GROUP)
$txtMensaje = GUICtrlCreateInput("", 8, 8, 385, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $cmdOk
$mip = _GetIP()
GUICtrlSetData($txtMensaje,$mip)
msgbox(0,"Tomar IP","Listo!")
EndSwitch
WEnd

Y asi se veria la aplicacion:

No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



[Ayuda] Auto Instalador

Iniciado por fortil

Respuestas: 5
Vistas: 2732
Último mensaje Enero 19, 2013, 07:40:19 pm
por k0ws
Comenzar Con Auto-It [Descarga]

Iniciado por Xa0s

Respuestas: 0
Vistas: 1325
Último mensaje Junio 10, 2010, 11:20:38 am
por Xa0s