Hallo,
leider funkt es immer noch nicht. Gibt es irgend einen Ansatzpunkt? Ist der Kompiler bei mir evtl. hin?
nach kompilieren läuft das Script nicht mehr
-
- [ offen ]
-
sunghost -
18. Dezember 2007 um 14:46 -
Geschlossen -
Erledigt
-
-
Ka, was da los ist. Auf jeden fall darftst du dein Programm nicht nslookup.exe nennen !!
Hier hab ichs mal kompiliert, mit ini für ServerSpoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Script zum Auswerten von DNS Abfragen mittels nslookup
17.12.2007
von Sunghost
erstellt mit Autoit V3.2.10.0
#ce ----------------------------------------------------------------------------------------
#include <Constants.au3>
#include <GUIConstants.au3>Local $command = "nslookup"
[/autoit] [autoit][/autoit] [autoit]Local $server1 = IniRead("nslookup.ini","Servers","server1","194.145.226.26")
[/autoit] [autoit][/autoit] [autoit]
Local $server2 = IniRead("nslookup.ini","Servers","server2","77.220.232.44")
Local $server3 = IniRead("nslookup.ini","Servers","server3","")Local $top_pos = 10
[/autoit] [autoit][/autoit] [autoit]
Local $left_pos = 0
Local $label_left_pos = 20
Local $edit_left_pos = 20
Local $edit_width = 250
Local $edit_height = 80;--------Main GUI-------
[/autoit] [autoit][/autoit] [autoit]
$main_gui = GUICreate("NSLookup Auswertung",290,460, -1,-1,-1) ;title,width,height,left,top
Opt("GUIEventOptions", 0) ;0=erlaubt das minimieren, schließen, wiederherstellen$menue1 = GUICtrlCreateMenu("?")
[/autoit] [autoit][/autoit] [autoit]
$menue_about = GUICtrlCreateMenuitem("About",$menue1)GUISetBkColor (0xFFFFFFFF) ; Farbe für den Hintergrund
[/autoit] [autoit][/autoit] [autoit]
$label_input1 = GuiCtrlCreateLabel("Gerätename:", $label_left_pos, $top_pos, 120, 40) ;text, left,top,width,height
GUICtrlSetFont($label_input1,9,600)
$input = GUICtrlCreateInput("hamgujpc",$left_pos+120,$top_pos,100,17,$ES_LEFT, $ES_MULTILINE) ;text,left,top,width,height,style$report=GUICtrlCreateButton ("auswerten", $left_pos+60,$top_pos+40,60,25,$BS_DEFPUSHBUTTON) ;Buttom text,left,top,width,height;Button als default setzen
[/autoit] [autoit][/autoit] [autoit]
$close=GUICtrlCreateButton ("beenden",$left_pos+160,$top_pos+40,60,25) ;Buttom text,left,top,width,height$label_show1 = GUICtrlCreateLabel($server1,$label_left_pos,$top_pos+90,120)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont($label_show1,9,600)
$show1 = GuiCtrlCreateEdit("", $edit_left_pos, $top_pos+110, $edit_width, $edit_height, $ES_READONLY) ;text, left,top,width,height$label_show2 = GUICtrlCreateLabel($server2,$label_left_pos,$top_pos+200,120)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont($label_show2,9,600)
$show2 = GuiCtrlCreateEdit("", $edit_left_pos, $top_pos+220, $edit_width, $edit_height, $ES_READONLY) ;text, left,top,width,height$label_show3 = GUICtrlCreateLabel($server3,$label_left_pos,$top_pos+310,120)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont($label_show3,9,600)
$show3 = GuiCtrlCreateEdit("", $edit_left_pos, $top_pos+330, $edit_width, $edit_height, $ES_READONLY) ;text, left,top,width,heightGUISetState(@SW_SHOW,$main_gui) ;zeigt das Fenster an
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($input, $GUI_FOCUS) ;setzt den Focus auf das Inputfeld;----------about GUI--------
[/autoit] [autoit][/autoit] [autoit]
$aboutGUI = GUICreate("About", 255, 150, -1, -1, BitOR($WS_CAPTION, $WS_SYSMENU));title,width,height..
GUICtrlCreateLabel("DNS Abfrage Vers. 1.0", 20, 11, 235, 20);text,left,top,width,height
GUICtrlSetFont(-1, 10, 800, 0, "Arial"); bold
GUICtrlCreateLabel("(c) 2007" & @CRLF & @CRLF & "programmiert von: Sunghost", 20, 30, 235, 40)
$email = GUICtrlCreateLabel("sunghost@gmx.de", 20, 70, 235, 15)
GUICtrlSetFont($email, 8.5, -1, 4); underlined
GUICtrlSetColor($email, 0x0000ff)
GUICtrlSetCursor($email, 0)
$ok_B1 = GUICtrlCreateButton("OK", 90, 115, 75, 23, BitOR($GUI_SS_DEFAULT_BUTTON, $BS_DEFPUSHBUTTON));Buttom text,left,top,width,height
GUISetState(@SW_HIDE, $aboutGUI)
;----------------------------
$msg =0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $report
show_data($server1,$show1)
show_data($server2,$show2)
show_data($server3,$show3)
Case $msg = $menue_about
GUISetState(@SW_SHOW, $aboutGUI)
Case $msg = $ok_B1
GUISetState(@SW_HIDE, $aboutGUI)
Case $msg = $close
Exit
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEndFunc show_data($server,$field)
[/autoit] [autoit][/autoit] [autoit]
Local $textline="" ;Var löschen
Local $text="" ;Var löschenGUICtrlSetData($field,"") ;Feldinhalt löschen
[/autoit]
$full_command = $command &" "& GUICtrlRead($input) &" "& $server
$stream = Run(@ComSpec & ' /c ' & $full_command, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While 1
$textline = StdoutRead($stream)
$text = $text & $textline
If @error Then ExitLoop
WEnd
If Not StringRegExp($text, 'Name') Then
GUICtrlSetBkColor($field, 0xFF0000)
Else
GUICtrlSetBkColor($field, 0x00FF00)
EndIf
GUICtrlSetData($field,$text)
EndFuncnslookup.ini
[Servers]
server1=fritz.box
server2=194.145.226.26
server3=77.220.232.44 -
Ja nslookup.exe heißt sie nur auf meinem Testsystem, hast ja recht.
Ich habe auf einem unbelasteten System Autoit3.2.10 installiert und ebenfalls keinen erfolg beim kompilieren gehabt. Ist, sofern ihr XP habt, euer System auf dem aktuellen Patchstand? Anders kann ich es mir jedenfalls nicht mehr erklären.Das mit der ini ist an sich kein Problem, aber IniRead kannte ich noch nicht, danke.
-
Hi,
ich habe jetzt einfach mal dein Script kopiert und es ist das selbe Phänomen. Bei Run ist alles gut und nach dem kompilieren macht er nur Müll. Oh man das nervt. -
Hi,
egal ob ich den Qellcode manuell kompiliere (V3.2.10.0) oder die fertige EXE-Datei aus dem Archiv verwende, die programmausführung ist jedesmal ohne Probleme möglich.
MfG
trallala -