IP Whois.au3

Tus preguntas. Algoritmos o Grupos de Comandos formando Programas Escripts.
Responder
Cyber90
Mensajes: 9
Registrado: 16 May 2011, 16:28
Ubicación: Hacker ist not a Crime !

IP Whois.au3

Mensaje por Cyber90 »

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon


$Form1 = GUICreate("IP Whois", 408, 167, -1, -1,BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetFont(10, 800, 0, "Comic Sans MS")
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Insert DNS:", 8, 8, 84, 23, -1, BitOR($WS_EX_STATICEDGE,$GUI_WS_EX_PARENTDRAG))
GUICtrlSetColor(-1, 0x00FF00)
$Input1 = GUICtrlCreateInput("", 96, 8, 305, 27, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label2 = GUICtrlCreateLabel("IP DNS:", 8, 48, 59, 23, -1, BitOR($WS_EX_STATICEDGE,$GUI_WS_EX_PARENTDRAG))
GUICtrlSetColor(-1, 0x00FF00)
$Input2 = GUICtrlCreateInput("", 72, 48, 329, 27, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Get IP", 120, 88, 99, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Minimise", 8, 88, 99, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Info'!", 240, 88, 99, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("X", 344, 88, 59, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("Get my IP:", 8, 128, 92, 27, -1, BitOR($WS_EX_STATICEDGE,$GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Input3 = GUICtrlCreateInput("", 104, 128, 201, 27, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetState(-1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Get my Ip", 312, 128, 91, 25, $WS_GROUP)
GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)


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

		Case $Button1
			$Input1 = GUICtrlSetData($Input2,@IPAddress1)







		Case $Button3

#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning
MsgBox(48,"Inf'o","Created by @Denys@ ")
#EndRegion --- CodeWizard generated code End ---



		Case $Button4
			Exit(-1)

		Case $Button5
			GUICtrlRead($Input2,GUICtrlSetData($Input3,@IPAddress1))

	EndSwitch
WEnd



HOLAA AYUDA CON ESTO X FAVOR lo que no se poner es la INPUT1 de ariba HELP ! :smt039
Avatar de Usuario
XPyro
Profesional del Autoit
Mensajes: 542
Registrado: 04 Mar 2007, 10:12
Ubicación: México
Contactar:

Re: IP Whois.au3

Mensaje por XPyro »

No le veo función para el $Input1, que es lo que deseas realizar?, si extiendes un poco la pregunta puede que tengas una mejor respuesta :smt006
Imagen
Cyber90
Mensajes: 9
Registrado: 16 May 2011, 16:28
Ubicación: Hacker ist not a Crime !

Re: IP Whois.au3

Mensaje por Cyber90 »

mira cuando en $INPUT1 = TIENES UNA ADRESA como esta http://www.google.es y apretas en$BUTTON1 tiene que enseñarte el IP de esa adresa del $INPUT1 = http://www.google.es
Avatar de Usuario
sahsanu
Mensajes: 9
Registrado: 02 May 2011, 05:58
Ubicación: Zaragoza, España

Re: IP Whois.au3

Mensaje por sahsanu »

Cyber90 escribió:mira cuando en $INPUT1 = TIENES UNA ADRESA como esta http://www.google.es y apretas en$BUTTON1 tiene que enseñarte el IP de esa adresa del $INPUT1 = http://www.google.es
Te dejo un ejemplo de lo que deberías poner en Case $Button1:

Código: Seleccionar todo

Case $Button1
	GUICtrlSetData($Input2,"Buscando IP...")
	Sleep(250)
	$direccion = StringRegExpReplace(GUICtrlRead($Input1),"^(?s)(?i)(http|ftp|https|file)://(.*?/|.*$)(.*/){0,}(.*)$","$2")
	$direccion = StringReplace($direccion,"/","")
	$direccion = StringReplace($direccion," ","")
	GUICtrlSetData($Input1,$direccion)
	TCPStartup()
	$resultado =  TCPNameToIP($direccion)
	If @error Then
		GUICtrlSetData($Input2,"Error resolviendo " & $direccion)
	Else
		GUICtrlSetData($Input2,$resultado)
	EndIf
Nota: He editado el post para cambiar la expresión regular. Daba problemas según la url que ponías.
Nota2: No, esa expresión regular que he usado no funciona como debiera, le echaré un vistazo y la cambiaré cuando tenga una que funcione bien.
Nota3: No es lo mejor que se puede hacer pero creo que ahora si que funcionará para lo que lo quieres... y servidor se va a dormir que ya es hora y mañana hay que trabajar.
Cyber90
Mensajes: 9
Registrado: 16 May 2011, 16:28
Ubicación: Hacker ist not a Crime !

Re: IP Whois.au3

Mensaje por Cyber90 »

ok Muxas Gracias maxo ;)
Responder