SearchIP

#include <GUIConstants.au3>#include <process.au3>
#include <StaticConstants.au3>






$gui = GUICreate("SearchIP", 612, 480, 225, 32)
$in_site = GUICtrlCreateinput("Inserisci sito es. http://google.com", 96, 312, 420, 25)
$salva = GUICtrlCreateButton("salva in un file", 48, 368, 99, 33, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 10, 800, 0, "Kristen ITC")
$esci = GUICtrlCreateButton("esci", 224, 368, 155, 49, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 10, 800, 0, "Kristen ITC")
$Searchip = GUICtrlCreateButton("Search IP", 464, 368, 99, 33, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 10, 800, 0, "Kristen ITC")
$Group1 = GUICtrlCreateGroup("Funzioni", 32, 241, 537, 215)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetFont(-1, 10, 800, 0, "Kristen ITC")
GUICtrlSetBkColor(-1, 0xF27900)


$Edit1 = GUICtrlCreateEdit("", 8, 8, 596, 212)


GUISetState(@SW_SHOW)


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


Case $Searchip
$site = GUICtrlRead($in_site)
$command = "nslookup "&$site&" >Ip.txt"
_RunDOS($command)
$file = FileRead("Ip.txt")
GUICtrlSetData($Edit1, $file)
Case $salva
$path_sv = FileSaveDialog("Save Lookup", @DesktopCommonDir, "Text (*.txt)")
FileCopy($dir, $path_sv)
EndSwitch
WEnd