Script paused(Tray ICON), wie geht es wieder zu aktivieren

Leupy

Hallo zusammen,
mein Script startet nach dem ausführen nicht, sondern der Tray icon sagt, das Scrript "macht Pause", wie bekomme ich es hin, dass das Script beim ausführen gleich startet
Hier der Quelltext

[autoit]

#include <GUIConstants.au3>
#include <misc.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ### Form=d:\eigene dateien d\programme\ipinger.kxf
$IPinger = GUICreate("IPinger", 603, 450, 193, 125)
GUISetBkColor(0xFFFFFF)

[/autoit][autoit][/autoit][autoit]

$IPinger = GUICtrlCreateLabel("IPinger", 224, 24, 160, 66)
GUICtrlSetFont(-1, 36, 800, 0, "Sylfaen")
$Schriftzug = GUICtrlCreateLabel("Das Tor zur Welt der IP´s - Das Internet zeigt seine Namen", 168, 120, 283, 17)
$Input1 = GUICtrlCreateInput("Geben sie hier die URL ein", 168, 200, 361, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Lucida Console")
GUICtrlSetCursor (-1, 5)
$Copyright = GUICtrlCreateLabel("(c) 2008 by Roman Leuprecht; Picture from NASA", 152, 392, 280, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$Made_with_AutoIT = GUICtrlCreateLabel("Made with AutoIT(http://www.autoit.de)", 192, 408, 195, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$thanks = GUICtrlCreateLabel("Thanks to: 'anno 2008' (Member of AutoIT.de) for help by scripting", 88, 424, 379, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$GO_IP = GUICtrlCreateButton("FIND IP", 248, 264, 81, 65, 0)
GUICtrlSetCursor (-1, 0)
$Verlassen = GUICtrlCreateButton("Verlassen", 240, 360, 113, 25, 0)

[/autoit][autoit][/autoit][autoit]

#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GO_IP
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
Case $Copyright
EndSwitch

if _IsPressed("0D") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))

if _IsPressed("$GO_IP") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
EndIf

EndIf
if _IsPressed("$Verlassen") then
Exit
EndIf

ContinueLoop(1)
WEnd

[/autoit]

m3hm3t

Ich habe es mal für dich ein wenig neu geschrieben:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <misc.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=d:\eigene dateien d\programme\ipinger.kxf
$IPinger = GUICreate("IPinger", 603, 450, 193, 125)
GUISetBkColor(0xFFFFFF)

[/autoit] [autoit][/autoit] [autoit]

$IPinger = GUICtrlCreateLabel("IPinger", 224, 24, 160, 66)
GUICtrlSetFont(-1, 36, 800, 0, "Sylfaen")
$Schriftzug = GUICtrlCreateLabel("Das Tor zur Welt der IP´s - Das Internet zeigt seine Namen", 168, 120, 283, 17)
$Input1 = GUICtrlCreateInput("Geben sie hier die URL ein", 168, 200, 361, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Lucida Console")
GUICtrlSetCursor (-1, 5)
$Copyright = GUICtrlCreateLabel("(c) 2008 by Roman Leuprecht; Picture from NASA", 152, 392, 280, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$Made_with_AutoIT = GUICtrlCreateLabel("Made with AutoIT(http://www.autoit.de)", 192, 408, 195, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$thanks = GUICtrlCreateLabel("Thanks to: 'anno 2008' (Member of AutoIT.de) for help by scripting", 88, 424, 379, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$GO_IP = GUICtrlCreateButton("FIND IP", 248, 264, 81, 65, 0)
GUICtrlSetCursor (-1, 0)
$Verlassen = GUICtrlCreateButton("Verlassen", 240, 360, 113, 25, 0)

[/autoit] [autoit][/autoit] [autoit]

#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $verlassen
Exit
Case $GO_IP
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
Case $Copyright ; <-- Wozu das, das ergibt doch keinen Sinn
EndSwitch

if _IsPressed("0D") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
EndIf

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit]

Der fehler lag auch daran das die Funktion GUISetState() gefehlt hat.

blubbstar

noch nebenbei, mit

[autoit]

Opt("TrayMenuMode", 1)

[/autoit]

haste dieses lästige Script paused nicht, aber du musst das Traymenü halt selbst gestalten, fals du es irgendwann mal loshaben willst

Leupy

es geht auch mit

[autoit]

Guisetstate

[/autoit]

nicht, aber der Tray menü befehl ist nicht schlecht

Leupy

trotzdem hab ich immer noch den Pause-Modus, ich möchte gerne aber, dass wenn ich auf das Script im Explorer klicke, dass es sich ausführt und mir dir GUI zeigt
PS:Wie geht denn der Tray befehl und wo findet man ihn in der Doku?

Danke
Leupy

m3hm3t

Vielleicht hilft das von mir:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)

[/autoit] [autoit][/autoit] [autoit]

; Hauptfenster
GUICreate("TrayMenuMode", 200, 100)

[/autoit] [autoit][/autoit] [autoit]

; Button
$button = GUICtrlCreateButton("OK", 50, 35, 100, 25)

[/autoit] [autoit][/autoit] [autoit]

; Itemliste
$item1 = TrayCreateItem ("Maximieren")
TrayItemSetOnEvent($item1, "maximieren")
TrayCreateItem("", -1, 1) ; Hier wird eine Linie Zwischen Maximieren und Beenden gezogen.
$item2 = TrayCreateItem ("Beenden")
TrayItemSetOnEvent($item2, "beenden")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Die Anzeige für das Hauptfenster
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

Switch $msg
Case $GUI_EVENT_CLOSE
beenden()
Case $GUI_EVENT_MINIMIZE
GUISetState(@SW_HIDE)
Opt("TrayIconHide", 0)
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func maximieren()
GUISetState(@SW_SHOW)
GUISetState(@SW_RESTORE)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func beenden()
Exit
EndFunc

[/autoit]

Mehr findest du in der Hilfe.
Und noch was bei mir hat es die GUI gezeigt wenn du das meinst.

**Schnuffel**

du hast die Variable $IPinger zweimal deklariert.
Erst als Gui und gleich danach als GUICtrlCreateLabel.
Damit gibt es das Gui nicht mehr

Spoiler anzeigen

$IPinger = GUICreate("IPinger", 603, 450, 193, 125)
GUISetBkColor(0xFFFFFF)

$IPinger = GUICtrlCreateLabel("IPinger", 224, 24, 160, 66)
GUICtrlSetFont(-1, 36, 800, 0, "Sylfaen")

hab's mal korrigiert:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <misc.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=d:\eigene dateien d\programme\ipinger.kxf
$IPinger = GUICreate("IPinger", 603, 450, 193, 125)
GUISetBkColor(0xFFFFFF)

[/autoit] [autoit][/autoit] [autoit]

$IPinger1 = GUICtrlCreateLabel("IPinger", 224, 24, 160, 66)
GUICtrlSetFont(-1, 36, 800, 0, "Sylfaen")
$Schriftzug = GUICtrlCreateLabel("Das Tor zur Welt der IP´s - Das Internet zeigt seine Namen", 168, 120, 283, 17)
$Input1 = GUICtrlCreateInput("Geben sie hier die URL ein", 168, 200, 361, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Lucida Console")
GUICtrlSetCursor (-1, 5)
$Copyright = GUICtrlCreateLabel("(c) 2008 by Roman Leuprecht; Picture from NASA", 152, 392, 280, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$Made_with_AutoIT = GUICtrlCreateLabel("Made with AutoIT(http://www.autoit.de)", 192, 408, 195, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$thanks = GUICtrlCreateLabel("Thanks to: 'anno 2008' (Member of AutoIT.de) for help by scripting", 88, 424, 379, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$GO_IP = GUICtrlCreateButton("FIND IP", 248, 264, 81, 65, 0)
GUICtrlSetCursor (-1, 0)
$Verlassen = GUICtrlCreateButton("Verlassen", 240, 360, 113, 25, 0)

[/autoit] [autoit][/autoit] [autoit]

#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

GuiSetState(@SW_SHOW,$IPinger)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GO_IP
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
Case $Copyright
EndSwitch

if _IsPressed("0D") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))

if _IsPressed("$GO_IP") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
EndIf

EndIf
if _IsPressed("$Verlassen") then
Exit
EndIf

ContinueLoop(1)
WEnd

[/autoit]

PS: wenn du ein Script in SciTe testest und das TrayIcon anklickst, ist das Script immer gepaused...

**Alina**

Hallo Leupy & Schnuffel.

Die Schleife muss aber so aussehen, damit das Exit auch geht, wenn man auf VERLASSEN klickt:

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GO_IP
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
Case $Copyright

Case $Verlassen
Exit
EndSwitch

if _IsPressed("0D") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))

if _IsPressed("$GO_IP") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
EndIf
EndIf

ContinueLoop(1)
WEnd

[/autoit]

Gruß, Crazy-A.