send
Grupo de Telegram
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
  • 1317 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: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
#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:

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!



[Ayuda] Auto Instalador

Iniciado por fortil

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

Iniciado por Xa0s

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