|
You last visited: Today at 14:57
Advertisement
2 GUI´s gleichzeitig
Discussion on 2 GUI´s gleichzeitig within the AutoIt forum part of the Coders Den category.
10/04/2010, 20:36
|
#1
|
elite*gold: 0 
Join Date: May 2010
Posts: 108
Received Thanks: 41
|
2 GUI´s gleichzeitig
Heyy,
Also zum Prob.. Ich will das ich 2 GUI´s gleichzeitig laufen lassen kann.. das bekomm ich noch hin ABER wenn ich eine GUI beende beenden sich beide ich will aber das das welches ich nicht beende (wow das gibt sogar Sinn  ) offen bleibt... Wie kann ich verhindern das beide sich schließen?
Hier mal der Code:
PHP Code:
HotKeySet ("{PGUP}", "_Start")
HotKeySet ("{PGDN}", "_Exit") ;==> HotKeySet
#include <GUIConstants.au3> ;==> Include
#Region ### START Koda GUI section ### Form=C:\Users\philipp\Desktop\Hack\Alle meine Scripte\KODA\Formen\Anti-Afk_Tool.kxf
$Form1 = GUICreate("Anti-Afk_Tool", 213, 192, 202, 140)
$Label1 = GUICtrlCreateLabel("Start ==> Bild Oben", 16, 128, 99, 17)
$Label2 = GUICtrlCreateLabel("Exit ==> Bild Unten", 16, 160, 94, 17)
$Button1 = GUICtrlCreateButton("Credits", 136, 144, 59, 17, 0)
$Pic1 = GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg", 8, 8, 196, 100)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 1
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=c:\program files\koda\forms\credits.kxf
$Form1_1 = GUICreate("Credits", 297, 156, 193, 125)
$Label1 = GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers", 8, 24, 196, 17)
$Label2 = GUICtrlCreateLabel("Ingame_name: KTP106", 112, 64, 119, 17)
$Label3 = GUICtrlCreateLabel("Createt for Wolfteam", 184, 112, 101, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 2
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
EndSwitch
WEnd
Func _Start()
While 1
Send ("{W}")
Sleep (20000)
Send ("{S}")
Sleep (20000)
WEnd
EndFunc ;==> Starten
Func _Exit()
Exit
EndFunc ;==> Beenden
|
|
|
|
10/04/2010, 20:59
|
#2
|
elite*gold: 1
Join Date: Aug 2010
Posts: 1,300
Received Thanks: 524
|
wie es mit dem X geht kp aber wenn du ein button machst kannst du es machen
z.B
case $exit
GUISetState(@SW_SHOW,hier der jeweilige gui)
müsste eig gehen ;D
|
|
|
|
|
10/04/2010, 21:12
|
#3
|
elite*gold: 0
Join Date: May 2010
Posts: 108
Received Thanks: 41
|
Quote:
Originally Posted by KingZuck
wie es mit dem X geht kp aber wenn du ein button machst kannst du es machen
z.B
case $exit
GUISetState(@SW_SHOW,hier der jeweilige gui)
müsste eig gehen ;D
|
okayy.. ich wills aber mit dem X ich hab kein button^^ gibt trotzdem n thx für "bemühung"
|
|
|
|
|
10/04/2010, 21:42
|
#4
|
elite*gold: 52
Join Date: Oct 2010
Posts: 1,998
Received Thanks: 389
|
So wirds gemacht 
PHP Code:
HotKeySet("{PGUP}", "_Start")
HotKeySet("{PGDN}", "_Exit") ;==> HotKeySet
#include <GUIConstants.au3> ;==> Include
#Region ### START Koda GUI section ### Form=C:\Users\philipp\Desktop\Hack\Alle meine Scripte\KODA\Formen\Anti-Afk_Tool.kxf
$Form1 = GUICreate("Anti-Afk_Tool", 213, 192, 202, 140)
$Label1 = GUICtrlCreateLabel("Start ==> Bild Oben", 16, 128, 99, 17)
$Label2 = GUICtrlCreateLabel("Exit ==> Bild Unten", 16, 160, 94, 17)
$Button1 = GUICtrlCreateButton("Credits", 136, 144, 59, 17, 0)
$Pic1 = GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg", 8, 8, 196, 100)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 1
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Case $Button1
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=c:\program files\koda\forms\credits.kxf
$Form1_1 = GUICreate("Credits", 297, 156, 193, 125)
$Label1 = GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers", 8, 24, 196, 17)
$Label2 = GUICtrlCreateLabel("Ingame_name: KTP106", 112, 64, 119, 17)
$Label3 = GUICtrlCreateLabel("Createt for Wolfteam", 184, 112, 101, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 2
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form1_1)
EndSwitch
WEnd
EndSwitch
WEnd
Func _Start()
While 1
Send("{W}")
Sleep(20000)
Send("{S}")
Sleep(20000)
WEnd
EndFunc ;==>_Start
Func _Exit()
Exit
EndFunc ;==>_Exit
Wie oben schon beschrieben wurde mit dem extabutton der die variable $ende hat hat das X auch eine und zwar $GUI_EVENT_CLOSE. Das X is also praktisch ein button
|
|
|
|
|
10/04/2010, 22:44
|
#5
|
elite*gold: 205
Join Date: Jun 2010
Posts: 264
Received Thanks: 686
|
aaalso
dieses problem hatte ich auch lange
aber ist eigendlich ganz simple zu lösen.
Schau dir mal die Funktion
genauer an.
Quote:
[optional] gibt evtl. zusätzliche Informationen in einem Array zurück.
0 = (Standard) Gibt nur das Ereignis selbst zurück.
1 = Gibt ein Array zurück, in dem das Ereignis und zusätzliche Informationen enthalten sind.
Quelle: Autoit Hilfe
|
Jetzt wissen wir das wir zwischen 2 Moden wählen können. Aber was bringt uns das nachher?
Durch:
Bekommen wir ein Array zurück das genau angibt, wo das Ereignis stattfand.
Also in unserem Beispiel in welchem GUI das "X" gedrückt worden ist.
Theorie schön und gut...aber wie schaut die Praxis aus:
PHP Code:
$msg=GuiGetMsg(1)
Switch $msg[0]
Case $GUI_EVENT_CLOSE
Switch $msg[1]
Case $gui1
GUISetState(@SW_HIDE,$gui1)
Case $gui2
GUISetState(@SW_HIDE,$gui2)
EndSwitch
EndSwitch
So das wäre das Script dazu das das Programm zwischen den GUIs unterscheidet.
Schauen wir uns das von oben nach unten einmal durch:
PHP Code:
$msg=GuiGetMsg(1)
Die Variable $msg wird definiert mit einer Funktion die aus der Variable ein Array macht.
Array 0: Sind die Funktionen die GUI übergreifend gewertet werden. Es also keine Rolle spielt von sie im GUI1 oder GUI2 gedrückt worden sind.
Array 1: Wir müssen diese Variable abfragen aus welchem GUI das Ereignis kommt und können dann eine Funktion eingeben was passieren soll
(Siehe Script)
Hoffe hab es verständlich erklärt und konnte dir helfen
Gruß CroSSie
|
|
|
|
|
10/05/2010, 13:51
|
#6
|
elite*gold: 0
Join Date: May 2010
Posts: 108
Received Thanks: 41
|
so jetzt habe ich folgende probs:
wenn ich beide GUI´s offen habe dann kann ich 1 schließen und das andere bleibt offen.. ABER wenn ich das andere dann auch schließen will geht es nicht zu..
ABER wenn ich die GUI2 öffne und wieder schließe dann kann ich sie nicht mehr öffnen..
|
|
|
|
|
10/05/2010, 14:02
|
#7
|
elite*gold: 0
Join Date: Jun 2009
Posts: 1,977
Received Thanks: 1,004
|
Quote:
Originally Posted by BlackHybrid
PHP Code:
HotKeySet("{PGUP}", "_Start")
HotKeySet("{PGDN}", "_Exit") ;==> HotKeySet
#include <GUIConstants.au3> ;==> Include
#Region ### START Koda GUI section ### Form=C:\Users\philipp\Desktop\Hack\Alle meine Scripte\KODA\Formen\Anti-Afk_Tool.kxf
$Form1 = GUICreate("Anti-Afk_Tool", 213, 192, 202, 140)
$Label1 = GUICtrlCreateLabel("Start ==> Bild Oben", 16, 128, 99, 17)
$Label2 = GUICtrlCreateLabel("Exit ==> Bild Unten", 16, 160, 94, 17)
$Button1 = GUICtrlCreateButton("Credits", 136, 144, 59, 17, 0)
$Pic1 = GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg", 8, 8, 196, 100)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 1
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Case $Button1
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=c:\program files\koda\forms\credits.kxf
$Form1_1 = GUICreate("Credits", 297, 156, 193, 125)
$Label1 = GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers", 8, 24, 196, 17)
$Label2 = GUICtrlCreateLabel("Ingame_name: KTP106", 112, 64, 119, 17)
$Label3 = GUICtrlCreateLabel("Createt for Wolfteam", 184, 112, 101, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 2
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form1_1)
EndSwitch
WEnd
EndSwitch
WEnd
Func _Start()
While 1
Send("{W}")
Sleep(20000)
Send("{S}")
Sleep(20000)
WEnd
EndFunc ;==>_Start
Func _Exit()
Exit
EndFunc ;==>_Exit
|
Code:
HotKeySet("{PGUP}", "_Start")
HotKeySet("{PGDN}", "_Exit") ;==> HotKeySet
#include <GUIConstants.au3> ;==> Include
#Region ### START Koda GUI section ### Form=C:\Users\philipp\Desktop\Hack\Alle meine Scripte\KODA\Formen\Anti-Afk_Tool.kxf
$Form1 = GUICreate("Anti-Afk_Tool", 213, 192, 202, 140)
$Label1 = GUICtrlCreateLabel("Start ==> Bild Oben", 16, 128, 99, 17)
$Label2 = GUICtrlCreateLabel("Exit ==> Bild Unten", 16, 160, 94, 17)
$Button1 = GUICtrlCreateButton("Credits", 136, 144, 59, 17, 0)
$Pic1 = GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg", 8, 8, 196, 100)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 1
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
[COLOR="Red"][B][U]GUISetState(@SW_HIDE, $Form1)[/U][/B][/COLOR]
Case $Button1
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=c:\program files\koda\forms\credits.kxf
$Form1_1 = GUICreate("Credits", 297, 156, 193, 125)
$Label1 = GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers", 8, 24, 196, 17)
$Label2 = GUICtrlCreateLabel("Ingame_name: KTP106", 112, 64, 119, 17)
$Label3 = GUICtrlCreateLabel("Createt for Wolfteam", 184, 112, 101, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;==> GUI 2
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form1_1)
EndSwitch
WEnd
EndSwitch
WEnd
Func _Start()
While 1
Send("{W}")
Sleep(20000)
Send("{S}")
Sleep(20000)
WEnd
EndFunc ;==>_Start
Func _Exit()
Exit
EndFunc ;==>_Exit
Bei der ersten Form hast du es vergessen ;O
Vllt. geht's so besser
|
|
|
|
|
10/05/2010, 14:13
|
#8
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
was sollen die ganzen endlos schleifen? -.-
in scripten darf man nie mehr als eine endlosschleife nutzen.
hier mal das ganze aufgeräumt:
Code:
HotKeySet ("{PGUP}", "_run")
Global $run = False, $action, $t, $credits = -1
$gui = GUICreate("Anti-Afk_Tool", 213, 192, -1, -1)
GUICtrlCreateLabel("Start ==> Bild Oben", 16, 128, 99, 17)
GUICtrlCreateLabel("Exit ==> Bild Unten", 16, 160, 94, 17)
$Button1 = GUICtrlCreateButton("Credits", 136, 144, 59, 17, 0)
GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg", 8, 8, 196, 100)
GUISetState(@SW_SHOW)
While WinExists($gui)
$msg = GUIGetMsg(1)
Switch $msg[0]
Case -3
GUIDelete($msg[1])
Case $Button1
If Not WinExists($credits) Then
$credits = GUICreate("Credits", 297, 156, -1, -1, 0x10C80000, -1, $gui)
GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers", 8, 24, 196, 17)
GUICtrlCreateLabel("Ingame_name: KTP106", 112, 64, 119, 17)
GUICtrlCreateLabel("Createt for Wolfteam", 184, 112, 101, 17)
EndIf
Case Else
If $run Then
If $action And TimerDiff($t) > 20000 Then
Send("{W}")
$t = TimerInit()
$action = 0
ElseIf TimerDiff($t) > 20000 Then
Send("{S}")
$t = TimerInit()
$action = 1
EndIf
EndIf
EndSwitch
WEnd
Func _run()
$run = Not $run
EndFunc
da es keine pause funktion gab, hab ich mal bild hoch als start und stop funktion gemacht
|
|
|
|
|
10/05/2010, 15:30
|
#9
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Quote:
Originally Posted by lolkop
was sollen die ganzen endlos schleifen? -.-
in scripten darf man nie mehr als eine endlosschleife nutzen.
|
Das würde ich vorsichtig formulieren, manchmal kommt man nicht drumherum..
Wobei ich mir da gerade nicht sicher bin, ob du bei Endlosschleife allgemein While...WEnd meinst oder nur While 1...WEnd
Weil bei While...WEnd kann man ja noch Parameterunterscheidungen machen, deshalb...
|
|
|
|
|
10/05/2010, 19:16
|
#10
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
Quote:
Originally Posted by pinguin94
Das würde ich vorsichtig formulieren, manchmal kommt man nicht drumherum..
Wobei ich mir da gerade nicht sicher bin, ob du bei Endlosschleife allgemein While...WEnd meinst oder nur While 1...WEnd
Weil bei While...WEnd kann man ja noch Parameterunterscheidungen machen, deshalb...
|
mit endlos meine ich eine schleife aus der man nie herausspringt (ausser vielleicht mit exit. dann wärs immernoch ne endlos schleife).
bzw ums kurz zu machen endlos schleife = schleife die endlos läuft :P
|
|
|
|
|
10/05/2010, 22:14
|
#11
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Also meinst du nur
While 1/True
WEnd
nicht While..WEnd im Allgemeinen, okay
|
|
|
|
|
10/05/2010, 22:25
|
#12
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
Quote:
Originally Posted by pinguin94
Also meinst du nur
While 1/True
WEnd
nicht While..WEnd im Allgemeinen, okay |
nein...
ich meine schleifen die endlos laufen -.-
Code:
while 1
exitloop
wend
is eine while schleife. heist aber noch lange nicht das sie endlos läuft...
was ich meine sind schleifen wie
|
|
|
|
|
10/06/2010, 13:32
|
#13
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Hab ich wohl verstanden ;O
|
|
|
|
|
10/06/2010, 14:09
|
#14
|
elite*gold: 0
Join Date: May 2010
Posts: 108
Received Thanks: 41
|
so jetzt habe ich folgende probs:
wenn ich beide GUI´s offen habe dann kann ich 1 schließen und das andere bleibt offen.. ABER wenn ich das andere dann auch schließen will geht es nicht zu..
ABER wenn ich die GUI2 öffne und wieder schließe dann kann ich sie nicht mehr öffnen..
|
|
|
|
|
10/06/2010, 14:36
|
#15
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
Quote:
Originally Posted by checker0899
so jetzt habe ich folgende probs:
wenn ich beide GUI´s offen habe dann kann ich 1 schließen und das andere bleibt offen.. ABER wenn ich das andere dann auch schließen will geht es nicht zu..
ABER wenn ich die GUI2 öffne und wieder schließe dann kann ich sie nicht mehr öffnen..
|
also das von lolkop klappt doch normal .. .
|
|
|
|
 |
|
Similar Threads
|
SK und Aura gleichzeitig
10/10/2009 - Metin2 Private Server - 3 Replies
Wie war nochmal der code dafür?
|
8 acc gleichzeitig gespärt
12/23/2008 - Metin2 - 16 Replies
hi leute
gestern wurden bei mir 8 acc gleichzeitig gespert und das stand in der e-mail
die gm´s übertreiben mit dem bann jahr
|
pvp mit 6 chars gleichzeitig
11/19/2007 - World of Warcraft - 17 Replies
habe da mal ne frage .gestern ist mir im alterac 6 hexer entgegen gekommen die parallel gepsielt werden wie geht das .er hat gleichzeitig 6mal saat usw gespammt übelst.....
wie geht das hat wer ne antwort?
danke
|
2 makros gleichzeitig
05/21/2007 - World of Warcraft - 2 Replies
also das problem ist folgendes ein makro kann max 255 zeichen haben ich brauche jedoch eines mit 350 stellen und jetzt wolt ich fragen ob es möglich ist in dem eersten makro, makro1 /cast makro2 oder so ähnlich zu machen oder ob es möglich ist auf eine taste 2 casts zu lgen oder so etwas ähnliches so das sich beide makros gleichzeitig auslösen.
|
All times are GMT +1. The time now is 14:58.
|
|
