Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
Problem mehrere Buttons auswählen Problem mehrere Buttons auswählen
You last visited: Today at 10:21

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

Advertisement


Advertise with us!

Problem mehrere Buttons auswählen

Discussion on Problem mehrere Buttons auswählen within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2008
Posts: 42
Received Thanks: 19
Problem mehrere Buttons auswählen

Hi, ich wollte mir mal selber einen bot machen womit ich mehrere Sachen durch Buttonklick starten kann.
Soweit ist alles ok aber ein Problem gibts trotzdem:
Wenn ich einen Button anklicke wird das auch ausgeführt aber sobalt ich einen 2. dazu haben will funktioniert nur der 1. weiter. Das ist bei jedem Button so den ich dazu starten will.
Kann mir jemand da mal weiterhelfen?
Hier der Script:

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
Global $Paused
HotKeySet("{f9}", "TogglePause")
HotKeySet("{f10}", "exitit")

Func TogglePause()
$Paused = not $Paused
While $Paused
ToolTip("paused")
Sleep (1000)
ToolTip ("")
sleep(100)
WEnd


EndFunc

Func exitit()
Tooltip("Bis zum nächsten mal ")
Sleep (1000)
Exit
EndFunc ;==>exitit

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("xaqua-bot", 250,300,0)
GUISetBkColor(0xE5FFFF)
$Label1 = GUICtrlCreateLabel ("© xaqua-bot", 150,20 ) ;Label
$Label3 = GUICtrlCreateLabel ("<--Vorher Moblock starten!", 100, 97 ) ;Label
$Label3 = GUICtrlCreateLabel ("HP+MP (1,2)", 167, 137 ) ;Label
$Label3 = GUICtrlCreateLabel ("Pause = F9", 5, 230) ;Label
$Label3 = GUICtrlCreateLabel ("Beenden = F10", 5, 255) ;Label
$Button2 = GUICtrlCreateButton( "Auto Fertigkeiten", 10, 90)
$Button3 = GUICtrlCreateButton( "Auto Hit", 10, 130)
$Button4 = GUICtrlCreateButton( "Hilfe", 10, 170)
$Button6 = GUICtrlCreateButton( "Auto Potion", 100, 130)
$Button7 = GUICtrlCreateButton( "Auto Pickup", 100, 170)
GUISetState ()
#EndRegion ### END Koda GUI section ###




While 1
$MSG = GUIGetMsg()

Select
Case $MSG = $GUI_EVENT_CLOSE
Exit
Case $MSG = $Button2
While (10)
Sleep (100)
Send ("{F1}")
Sleep (100)
Send ("{F2}")
Sleep (100)
Send ("{F3}")
Sleep (100)
Send ("{F4}")
WEnd
Case $MSG = $Button3
While (10)
Send ("{SPACE DOWN}")
Sleep (100)
WEnd
Case $MSG = $Button4
Tooltip("Hallo")
sleep ( 3000 )
Tooltip("Fragen einfach in dem Thread von Elitepvpers posten")
sleep ( 3000 )
Tooltip("Viel Spaß weiterhin noch mit xaqua-bot")
sleep ( 3000 )
Tooltip("")
Sleep (100)
Case $MSG = $Button6
While (10)
Sleep (500)
Send ("1")
Send ("2")
WEnd
Case $MSG = $Button7
While (10)
Sleep(200)
Send ("y")
WEnd
EndSelect
WEnd
Exit
xaqua is offline  
Old 11/18/2009, 00:07   #2
 
pzyhô's Avatar
 
elite*gold: 42
The Black Market: 4/0/0
Join Date: Oct 2009
Posts: 391
Received Thanks: 398
so müsste es eig gehen:

Code:
While 1
$MSG = GUIGetMsg()

Select
	Case $MSG = $GUI_EVENT_CLOSE
			Exit
	Case $MSG = $Button2
		Sleep (100)
		Send ("{F1}")
		Sleep (100)
		Send ("{F2}")
		Sleep (100)
		Send ("{F3}")
		Sleep (100)
		Send ("{F4}")

	Case $MSG = $Button3

		Send ("{SPACE DOWN}")
		Sleep (100)

	Case $MSG = $Button4
		Tooltip("Hallo")
		sleep ( 3000 )
		Tooltip("Fragen einfach in dem Thread von Elitepvpers posten")
		sleep ( 3000 )
		Tooltip("Viel Spaß weiterhin noch mit xaqua-bot")
		sleep ( 3000 )
		Tooltip("")
		Sleep (100)
		
	Case $MSG = $Button6

		Sleep (500)
		Send ("1")
		Send ("2")

Case $MSG = $Button7
		
		Sleep(200)
		Send ("y")

EndSelect
WEnd
Exit
MFG: ._.Sunny._.
pzyhô is offline  
Thanks
1 User
Old 11/18/2009, 07:24   #3
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2008
Posts: 42
Received Thanks: 19
hm... funktioniert immer noch nicht jetzt widerholt der sogar net mehr die einzelnen funktionen...

weiß da jemand noch was?
xaqua is offline  
Old 11/18/2009, 10:51   #4
 
Shadow992's Avatar
 
elite*gold: 77
The Black Market: 13/0/0
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
Quote:
Originally Posted by xaqua View Post
hm... funktioniert immer noch nicht jetzt widerholt der sogar net mehr die einzelnen funktionen...

weiß da jemand noch was?
Also , dieses Problem wirst du mit AutoIT alleine nie so gelöst bekommen , wie du es dir vorstellst , da an dieser Stelle mit mindestens 2 Threads gearbeitet werden müsste . Leider kann AutoIT aber keine Threads erstellen , es gibt eine Funktion die versucht einen Thread nachzuahmen , aber so wirklich funktionieren tut das nicht , da der Rest vom Code während diese Funktion ausgeführt wird , gestoppt wird .

Ich habe trotzdem mal versucht wenigstens annähernd eine Lösung für dein Problem zu finden , es gibt keine Syntax errors , aber ich habe nicht ausprobiert ob der Code funktioniert (theoretisch müsste er) .

PHP Code:

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

Global $Funktion[4]
Global $Paused

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("xaqua-bot", 250,300,0)
GUISetBkColor(0xE5FFFF)
$Label1 = GUICtrlCreateLabel ("© xaqua-bot", 150,20 ) ;Label
$Label3 = GUICtrlCreateLabel ("<--Vorher Moblock starten!", 100, 97 ) ;Label
$Label3 = GUICtrlCreateLabel ("HP+MP (1,2)", 167, 137 ) ;Label
$Label3 = GUICtrlCreateLabel ("Pause = F9", 5, 230) ;Label
$Label3 = GUICtrlCreateLabel ("Beenden = F10", 5, 255) ;Label
$AllesAusschalten = GUICtrlCreateButton( "Alles Ausschalten", 10, 10)
$Button2 = GUICtrlCreateButton( "Auto Fertigkeiten", 10, 90)
$Button3 = GUICtrlCreateButton( "Auto Hit", 10, 130)
$Button4 = GUICtrlCreateButton( "Hilfe", 10, 170)
$Button6 = GUICtrlCreateButton( "Auto Potion", 100, 130)
$Button7 = GUICtrlCreateButton( "Auto Pickup", 100, 170)
GUISetState ()
#EndRegion ### END Koda GUI section ###
HotKeySet("{f9}", "TogglePause")
HotKeySet("{f10}", "exitit")
AdlibEnable("Funktionen",100)

While 1
$MSG = GUIGetMsg()

Select

Case $MSG = $GUI_EVENT_CLOSE
Exit
Case $MSG = $AllesAusschalten
For $i=0 to 3
    $Funktion[$i]=0
Next
        Tooltip("Es wurden alle Funktionen deaktiviert , um sie wieder zu starten muss nur auf den jeweiligen Button gedrückt werden")
        sleep ( 8000 )
        Tooltip("")
Case $MSG = $Button2
$Funktion[0]=1
Case $MSG = $Button3
$Funktion[1]=1
Case $MSG = $Button4
        Tooltip("Hallo")
        sleep ( 3000 )
        Tooltip("Fragen einfach in dem Thread von Elitepvpers posten")
        sleep ( 3000 )
        Tooltip("Viel Spaß weiterhin noch mit xaqua-bot")
        sleep ( 3000 )
        Tooltip("")
        Sleep (100)
Case $MSG = $Button6
$Funktion[2]=1
Case $MSG = $Button7
$Funktion[3]=1
EndSelect
WEnd

func Funktionen()
    AdlibDisable()
    If $Funktion[0]=1 Then
        Sleep (100)
        Send ("{F1}")
        Sleep (100)
        Send ("{F2}")
        Sleep (100)
        Send ("{F3}")
        Sleep (100)
        Send ("{F4}")
    EndIf

    If $Funktion[1]=1 Then
        Send ("{SPACE DOWN}")
        Sleep (100)
    EndIf



    If $Funktion[2]=1 Then
        Sleep (500)
        Send ("1")
        Send ("2")
    EndIf

    If $Funktion[3]=1 Then
        Sleep(200)
        Send ("y")
    EndIf
    AdlibEnable("Funktionen",100)
EndFunc

Func TogglePause()
$Paused = not $Paused
While $Paused
ToolTip("paused")
Sleep (1000)
ToolTip ("")
sleep(100)
WEnd


EndFunc

Func exitit()
Tooltip("Bis zum nächsten mal ")
Sleep (1000)
Exit
EndFunc ;==>exitit 
Shadow992 is offline  
Thanks
1 User
Old 11/18/2009, 16:24   #5
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2008
Posts: 42
Received Thanks: 19
sauber funktioniert nun alles =)
vielen dank!

p.s. danke auch für den ausschalt button
xaqua is offline  
Old 11/18/2009, 18:46   #6
 
Shadow992's Avatar
 
elite*gold: 77
The Black Market: 13/0/0
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
Quote:
Originally Posted by xaqua View Post
sauber funktioniert nun alles =)
vielen dank!

p.s. danke auch für den ausschalt button
Kein Problem
Shadow992 is offline  
Reply

« autoit Gui Schnellstartleiste Hilfe | Problem wenn Buttons Disable dann Enable sind die buttons zum senden zu verwenden »

Similar Threads Similar Threads
[AUTOIT3 FRAGE] Mehrere Buttons Frage
08/07/2010 - General Coding - 1 Replies
Hallo ich bin noch ein ziemlicher Beginner mit dem "Coden" (naja ich code nur leichtere sachen zum fun und so) Also heute habe ich begonnen ein "Multitool" für meine Freunde zu machen. Das heißt Websites und Programme und so weiter in einem Tool vereinigt. Ich habe also zum Beispiel einen Button für Youtube. (Alles gemacht mit Koda Form Designer) Nun gibt es folgenden Code While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE
Problem mit Buttons
04/06/2010 - AutoIt - 3 Replies
Hallo, ich habe ein Problem mit den Buttons ich will das eine BMP Datei als Button angezeigt wird , diese wird zuerst in den Temp-Ordner kopiert . Hier mein code: $Button1 = GUICtrlCreateButton("", 16, 40, 75, 25, 0,$BS_BITMAP) GUICtrlSetImage (-1,@Tempdir & "\Button1.bmp") Aber es funktioniert nicht ,weis jemand warum?
[PROBLEM] Buttons nicht anklickbar!?
02/23/2010 - AutoIt - 7 Replies
Hey Leute hab mal wieder ne GUI erstellt mit Koda und da merk ich das ich die Buttons nicht anklicken kann! Hab schon alles mögliche Versucht, mir wurde gesagt das es iwi an den Schichten liegen könnte aber die Buttons liegen ganz oben sonst könnte man sie ja nicht sehen ;) Hoffe jemand weis da was, Gruß, Eddy² P.S: Nicht nur die Buttons sind nicht anklickbar, sondern überhaupt alles! €dit: Hat sich erledigt! Es lag an dem Hintergrundbild oO Hab einfach in dem Bereich wo die Buttons...
Problem wenn Buttons Disable dann Enable sind die buttons zum senden zu verwenden
11/19/2009 - AutoIt - 5 Replies
also hab ja durch hilfe geschafft buttons mit Checkbox Enable und disable zu machn nur mein prob ist jetzt das ich die buttons nicht verwenden kann hab schon einiges ausprobiert aber wenn ich dann bsp button1 drücke passiert einfach nix kann mir wer helfen `? bekommt thx für ;) hier der code: #include <GUIConstantsEx.au3> GUICreate("") $check = GUICtrlCreateCheckbox("Enable/Disable Buttons", 10, 10, 140, 20) $button = GUICtrlCreateButton("Button",10,50) $button1 =...
[Buttons]Hi wer kann mir die Buttons erklären
08/16/2009 - Metin2 Private Server - 6 Replies
Hi ich will kg machen,kenne aber die bedeutung der buttons nich könnt ihr mir vllt.helfen MfG TheRisk Hier ein Screen:http://img16.imageshack.us/img16/3016/gaul. jpg



All times are GMT +2. The time now is 10:21.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.