Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 07:25

  • Please register to post and access all features, it's quick, easy and FREE!

 

2 GUI´s gleichzeitig

Reply
 
Old   #1
 
elite*gold: 0
Join Date: May 2010
Posts: 107
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"213192202140)
$Label1 GUICtrlCreateLabel("Start ==>  Bild Oben"161289917)
$Label2 GUICtrlCreateLabel("Exit ==> Bild Unten"161609417)
$Button1 GUICtrlCreateButton("Credits"13614459170)
$Pic1 GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg"88196100)
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"297156193125)
$Label1 GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers"82419617)
$Label2 GUICtrlCreateLabel("Ingame_name:  KTP106"1126411917)
$Label3 GUICtrlCreateLabel("Createt for Wolfteam"18411210117)
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 



checker0899 is offline  
Old   #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


KingZuck is offline  
Thanks
1 User
Old   #3
 
elite*gold: 0
Join Date: May 2010
Posts: 107
Received Thanks: 41
Quote:
Originally Posted by KingZuck View Post
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"
checker0899 is offline  
Old   #4
 
elite*gold: 52
The Black Market: 101/0/0
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"213192202140)
$Label1 GUICtrlCreateLabel("Start ==>  Bild Oben"161289917)
$Label2 GUICtrlCreateLabel("Exit ==> Bild Unten"161609417)
$Button1 GUICtrlCreateButton("Credits"13614459170)
$Pic1 GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg"88196100)
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"297156193125)
            
$Label1 GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers"82419617)
            
$Label2 GUICtrlCreateLabel("Ingame_name:  KTP106"1126411917)
            
$Label3 GUICtrlCreateLabel("Createt for Wolfteam"18411210117)
            
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


BlackHybrid is offline  
Thanks
1 User
Old   #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
PHP Code:
GUIGetMsg() 
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:
PHP Code:
GUIGetMsg(1
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.

PHP Code:
$msg[0
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.

PHP Code:
$msg[1
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
CroSSiie is offline  
Thanks
1 User
Old   #6
 
elite*gold: 0
Join Date: May 2010
Posts: 107
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..
checker0899 is offline  
Old   #7
 
elite*gold: 0
Join Date: Jun 2009
Posts: 1,976
Received Thanks: 1,004
Quote:
Originally Posted by BlackHybrid View Post
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"213192202140)
$Label1 GUICtrlCreateLabel("Start ==>  Bild Oben"161289917)
$Label2 GUICtrlCreateLabel("Exit ==> Bild Unten"161609417)
$Button1 GUICtrlCreateButton("Credits"13614459170)
$Pic1 GUICtrlCreatePic("C:\Users\philipp\Pictures\Wolfteam.jpg"88196100)
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"297156193125)
            
$Label1 GUICtrlCreateLabel("Createt by IZEROI and help by E*Pvpers"82419617)
            
$Label2 GUICtrlCreateLabel("Ingame_name:  KTP106"1126411917)
            
$Label3 GUICtrlCreateLabel("Createt for Wolfteam"18411210117)
            
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
°Non_Public° is offline  
Thanks
1 User
Old   #8
 
elite*gold: 280
Join Date: May 2007
Posts: 2,817
Received Thanks: 3,479
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
lolkop is offline  
Thanks
1 User
Old   #9
 
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,221
Quote:
Originally Posted by lolkop View Post
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...
PenGuin :O is offline  
Thanks
1 User
Old   #10
 
elite*gold: 280
Join Date: May 2007
Posts: 2,817
Received Thanks: 3,479
Quote:
Originally Posted by pinguin94 View Post
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
lolkop is offline  
Thanks
1 User
Old   #11
 
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,221
Also meinst du nur
While 1/True
WEnd

nicht While..WEnd im Allgemeinen, okay
PenGuin :O is offline  
Thanks
1 User
Old   #12
 
elite*gold: 280
Join Date: May 2007
Posts: 2,817
Received Thanks: 3,479
Quote:
Originally Posted by pinguin94 View Post
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
Code:
do
until 0
lolkop is offline  
Thanks
1 User
Old   #13
 
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,221
Hab ich wohl verstanden ;O
PenGuin :O is offline  
Thanks
1 User
Old   #14
 
elite*gold: 0
Join Date: May 2010
Posts: 107
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..
checker0899 is offline  
Old   #15
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
Quote:
Originally Posted by checker0899 View Post
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 .. .


omer36 is offline  
Thanks
1 User
Reply



« Previous Thread | Next Thread »

Similar Threads
SK und Aura gleichzeitig
Wie war nochmal der code dafür?
3 Replies - Metin2 PServer - Discussions / Questions
8 acc gleichzeitig gespärt
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
16 Replies - Metin2 Main - Discussions / Questions
pvp mit 6 chars gleichzeitig
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...
17 Replies - WoW Ask the Experts
2 makros gleichzeitig
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...
2 Replies - WoW Main - Discussions / Questions



All times are GMT +1. The time now is 07:25.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.