Autoit.ES

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

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