Un Lookup che usa la funzione nslookup di Dos...
Tradotto: restituisce l'indirizzo ip del server su cui è hostato il sito che si vuole "Lookare"
CITAZIONE
#include <guiconstants.au3>
#include <process.au3>
$title = "LookUp v1.0 - Jac123"
$dir = @UserProfileDir&"log.txt"
$Form1_1 = GUICreate("Form1", 466, 250, 193, 125)
GUISetCursor (3)
GUISetBkColor(0x000000)
$sv_file_bt = GUICtrlCreateButton("Salva in un file", 24, 224, 129, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetCursor (-1, 3)
$clip_bt = GUICtrlCreateButton("Copia nella clipboard", 160, 224, 129, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$esc_bt = GUICtrlCreateButton("Esci", 296, 224, 129, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$in_site = GUICtrlCreateInput("", 16, 168, 433, 21)
GUICtrlSetCursor (-1, 5)
$Label1 = GUICtrlCreateLabel("Inserisci il sito da Lookare senza WWW", 128, 152, 230, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 449, 137)
GUICtrlSetState(-1, 128)
GUICtrlSetData(-1, "Edit1")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetCursor (-1, 5)
$look_bt = GUICtrlCreateButton("LookUp It!", 160, 192, 129, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $esc_bt
Exit
;;;
Case $look_bt
$site = GUICtrlRead($in_site)
$command = "nslookup "&$site&" >log.txt"
_RunDOS($command)
$file = FileRead($dir)
GUICtrlSetData($Edit1, $file)
Case $clip_bt
ClipPut($file)
Case $sv_file_bt
$path_sv = FileSaveDialog("Salva Lookup", @DesktopCommonDir, "Text (*.txt)")
FileCopy($dir, $path_sv)
EndSwitch
WEnd