programm und gui lassen sich nur über taskbar schließen

thastony

hallo
bei jedem meiner scripts funktioniert das kreuz oben rechts nicht um das programm zu beenden, das einzige was ich machen kann, ist es über die taskbar zu schließen, weiß eventuell einer wie ich das über das kreuz oder einen hotkey machen kann?

mfg thastony

Wesloth

Du hast sicherlich vergessen abzufragen ob überhaupt auf schließen gedrückt wurde.
Bsp:

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>

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

GUICreate("blub")
GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

[/autoit]

Die Variable $GUI_EVENT_CLOSE kommt aus der GuiConstants.au3 und wenn die Variable $msg = $GUI_EVENT_CLOSE ist wird halt beendet. Guck dir mal das Tutorial an

RR04

Hi thastony,

oder direkt auf "Beenden", hier war Wesloth schneller.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

$Form2 = GUICreate("About", 324, 241, 303, 219)
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
$Image1 = GUICtrlCreatePic("", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Product Name", 152, 24, 72, 17, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Version", 152, 48, 39, 17, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("Comments", 16, 160, 53, 17, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Copyright", 16, 136, 48, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&Beenden", 112, 208, 75, 25)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Button1
Exit

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

EndSelect
WEnd

[/autoit]

Schönes WE und
viel Erfolg!
Euer Ritzelrocker04

thastony

ich habe das tool im nachhinein mit dem "koda" bearbeitet, dass ist dieses tool, welches eine gui erzeugen kann. bei ihm kam auch genau diese funktion, jedoch ging dadurch der startbutton nicht mehr und ich musste sie entfernen

.::Mignon::.

hast du denn auch in die while schleife deine button funkktion wieder eingetragen?

thastony

die sieht bei mir jetzt so aus:

Code

$msg = GUIGetMsg()
While $msg <> $startbutton 


	$msg = GUIGetMsg()
	Select
	Case $msg = $startbutton
		$tminuten = GUICtrlRead ($tminuten2)	
		$tstunden = GUICtrlRead ($tstunden2)	

	EndSelect
WEnd

Alles anzeigen

hab echt ne menge probiert aber kriegs net kombiniert

progandy

Vielleicht so ? Ist doch net soo schwer

[autoit]

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Button1
Exit
Case $nMsg = $startbutton
$tminuten = GUICtrlRead ($tminuten2)
$tstunden = GUICtrlRead ($tstunden2)
EndSelect
WEnd

[/autoit]

thastony

dank dir aber es bewirkt keine veränderung

**Xenobiologist**

Hi,

poste mal dein Skript, dann geht es sicher sehr schnell.

So long,

Mega

thastony

sieht jetzt aber nich sehr gut aus xD also irgendwie funzt der x knopf jetzt aber deswegen funktioniert der startrbutton nich mehr scwäre auch gut wenn ihr die beenden funktion zusätzlich auf den hotkey f12 legen könntet.... thx schonma

Spoiler anzeigen

C

#include </string.au3>
#include </Constants.au3>
#include </GUIConstants.au3>




$_1 = GUICreate("Devils DC Detector V1.2", 367, 227, 219, 247)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\ico.jpg", 245, 0, 121, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0xA6CAF0)
$Label1 = GUICtrlCreateLabel("After Disconnect:", 8, 8, 121, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
$botzeit = GUICtrlCreateCheckbox("Save DC Time to C:\bottime.ini", 5, 28, 230, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
$alarmsound = GUICtrlCreateCheckbox("Play Alert Sound(replaceable)", 5, 48, 233, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)


$screenshot = GUICtrlCreateCheckbox("Screenshot in C:\Disconnect.jpg", 5, 68, 240, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)


$srobeenden = GUICtrlCreateCheckbox("End Silkroad Process", 5, 88, 185, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
$sicheres_runterfahren = GUICtrlCreateCheckbox("Shutdown Computer", 5, 108, 169, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
$timer = GUICtrlCreateCheckbox("Use selected Options at :", 5, 138, 201, 17)
GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
$tstunden2 = GUICtrlCreateInput("00", 206, 138, 25, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel(" : ", 229, 138, 20, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
$tminuten2 = GUICtrlCreateInput("00", 240, 138, 25, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("(Your GMT"&")", 270, 138, 87, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
$startbutton = GUICtrlCreateButton("Start", 5, 175, 60, 33, 0)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Attention : First press the start button,", 72, 175, 436, 28)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlCreateLabel("when you are connected!", 72, 190, 436, 28)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlCreateLabel("credits : der_devil www.cheat-fabrik.de", 100, 210, 284, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)








$inifile = "C:\bottime.ini"
$sekunden =  0
$minuten = 0
$stunden = 0
Dim $string
$ip1 = "121.128.133."
$ip2 = "222.111.176."


GUISetState ()
TraySetToolTip("F9 - Hide Silkroad" & @lf & "F10 - Show Silkroad" & @lf & "F11 - End Silkroad"  & @lf & "F12 - End DC Detector")
HotKeySet("{F9}", "HideSro")
HotKeySet("{F10}", "ShowSro")
HotKeySet("{F11}", "EndSro")
HotKeySet("{F12}", "End")


While 1
	$nMsg = GUIGetMsg()
	Select 
    	Case $nMsg = $GUI_EVENT_CLOSE 
    	Exit
	Case $nMsg = $startbutton
    	$tminuten = GUICtrlRead ($tminuten2)	
    	$tstunden = GUICtrlRead ($tstunden2)	
	EndSelect
WEnd


Func HideSro()
		WinSetState("SRO_Client","",@SW_HIDE) 
	EndFunc


	Func ShowSro()
		WinSetState("SRO_Client","",@SW_SHOW) 
	EndFunc

	Func EndSro()
		sleep(1000)
		ProcessClose("sro_client.exe")
		sleep(3000) 
	EndFunc

	Func sound()
		sleep(1000)
		ProcessClose("sro_client.exe")
		sleep(3000) 
	EndFunc

	Func Shutdown2()
		Shutdown(12)
	EndFunc

	Func End()
		Exit
	EndFunc
Zaehler()




	Func DisconnectCheck()
		$string = "leerer string"
		ToolTip(" Disconnect Check... ", 2, 0)
		$foo = Run(@ComSpec & " /c netstat -n", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
		While 1
			$line = StdoutRead($foo)
			If @error Then ExitLoop
			$string = $string & $line
		Wend

		IF 	(Stringinstr($string,$ip1) <> 0) Or (Stringinstr($string,$ip2) <> 0)  Then
			ToolTip("You are connected")

			Else

			If 	GUICtrlRead($botzeit) == $GUI_CHECKED 	Then 
				IniWrite("C:\bottime.ini", "main", "Disconnected after : " & $stunden & " hours and" & $minuten & " minutes on the " & @MDAY & "." & @MON & "." & @YEAR &" at" & @HOUR & ":" & @MIN , " hour" )
			EndIf

			If GUICtrlRead($alarmsound) == $GUI_CHECKED Then
				SoundPlay("alert.mp3", 1)
			EndIf

			If GUICtrlRead($screenshot) == $GUI_CHECKED Then
				WinSetState("SRO_Client","",@SW_SHOW)
				sleep(5000)
				WinWait("SRO_Client","")
				If Not WinActive("SRO_Client","") Then WinActivate("SRO_Client","")
				WinWaitActive("SRO_Client","")
				Sleep(5000)
				DllCall("captdll.dll", "int:cdecl", "CaptureScreen", "str", "C:\Disconnect.jpg", "int", 85)
			EndIf

			If GUICtrlRead($srobeenden) == $GUI_CHECKED Then 
				sleep(1000)
				ProcessClose("sro_client.exe")
				sleep(3000)
			EndIf

			If GUICtrlRead($sicheres_runterfahren) == $GUI_CHECKED Then
				Shutdown(12)
			EndIf

			MsgBox(0, "Disconnected","Disconnected after : " & $stunden & " hours and" & $minuten & " minutes on the " & @MDAY & "." & @MON & "." & @YEAR &" at" & @HOUR & ":" & @MIN , " hour" )
		EndIf
	EndFunc   ;==>DisconnectCheck








	Func Zaehler()
		For $sekunden = 0 To 60 Step 1 

			Sleep(1000)
			ToolTip("You are botting since " & $stunden & " Hours " & $minuten & " minutes and " & $sekunden & " seconds", 2, 0)
			If $sekunden = 59 Then
				$sekunden = 0
				$minuten = $minuten + 1
				DisconnectCheck()
				If $minuten = 60 Then
					$minuten = 0
					$stunden = $stunden + 1
				EndIf
			EndIf

			If (@HOUR==$tstunden) And (@MIN==$tminuten)  Then
				If 	GUICtrlRead($botzeit) == $GUI_CHECKED 	Then 
					IniWrite("C:\bottime.ini", "main", "Disconnected after : " & $stunden & " hours and" & $minuten & " minutes on the " & @MDAY & "." & @MON & "." & @YEAR &" at" & @HOUR & ":" & @MIN , " hour" )
				EndIf

				If GUICtrlRead($alarmsound) == $GUI_CHECKED Then
					SoundPlay("alert.mp3", 1)
				EndIf

				If GUICtrlRead($srobeenden) == $GUI_CHECKED Then 
					sleep(1000)
					ProcessClose("sro_client.exe")
					sleep(5000)
				EndIf

				If GUICtrlRead($sicheres_runterfahren) == $GUI_CHECKED Then
					Shutdown(12)
				EndIf

			EndIf
		Next
	EndFunc

Alles anzeigen

**Xenobiologist**

Hi,

sowohl X als auch StartButton funktionieren. Du machst halt nur nicht viel nach dem Start.

F12 als Hotkey ist durch Windows belegt. Musst dir etwas anderes suchen.

So long,

Mega

thastony

hm erklär das doch mal bitte ein wenig genauer also bevor ich die veränderung eingebaut hab lief das script bis zum ende und erfüllte seinen zweck, aber jetzt kommt es doch nichtmal bis zum aufruf der zähler funktion?!? und ok, dann benutzt ich eben die esc taste, aber wie rufe ich denn die exit funktion vernünftig auf?

.::Mignon::.

das sollte mit hotkeyset gehen wenn ich deine frage richtig verstanden hatte^^

thastony

ja aber was soll ich dann in die dadurch aufgerufene funktion schreiben? "exit" funktioniert nicht kann muir denn echt niemand mit meinem start button problem helfen?

**Oscar**

Du solltest Deine Funktion 'Zaehler()' auch mal in die Case-Anweisung einfügen, wenn Du sie dort aufrufen willst:

[autoit]

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $startbutton
$tminuten = GUICtrlRead ($tminuten2)
$tstunden = GUICtrlRead ($tstunden2)
Zaehler()
EndSelect
WEnd

[/autoit]

thastony

hast recht aber das kreuz zum beenden funktioniert jetzt nur solange, bis start gedrückt wurde danach bleibt das programm ja im timer. Muss ich dort diese abfrage nochmal einbauen? wenn ja wie weil alles was ich probiert habe, blockiert wieder den startbutton

thastony

sry aber problem besteht immernoch das kreuz funzt solange bis der zaehler startet...

*push*