Frage Antwort Tread zu Autoit

Assoult · 4. Juli 2009, 04:44

okay das is für exit aber wie geht dan pause :/

Quellcode

HotKeySet("{1}","_Pause")
Func _Pause()
xxx
EndFunc

^.^

internetfreak · 4. Juli 2009, 13:46

pause kommt frauf an, was du pausieren willst
ich würde es mit ner if abfrage machen im hotkey von start
poste ma dein script, vllt kann ich dir bissl mehr helfen

Assoult · 4. Juli 2009, 13:51

is bestimmt en scheis script aber ich brauch nen klickenden pausierbaren klickot xD

Quellcode

#include <Constants.au3>
HotkeySet("1", "_Ende")
HotKeySet("2", "_Pause")
While True
Mouseclick("left")
Sleep(70)
Mouseclick("left")
Sleep(70)
WEnd
func _Ende()
Exit
EndFunc
func _Pause()
xxx
EndFunc

Alles anzeigen

xD und ich müsste halt auch wissen wie cih weiter amche kann

internetfreak · 4. Juli 2009, 14:02

Quellcode

#include <Constants.au3>
HotkeySet("1", "_Ende")
HotKeySet("2", "_Pause")
HotKeySet("3","_start")
Global $pause=0
While 1
WEnd
func _Ende()
Exit
EndFunc
func _Pause()
If $pause = 0 Then
$pause=1
Else
$pause=0
Endif
EndFunc
Func _start()
If $pause = 0 Then
Do
Mouseclick("left")
Sleep(70)
Mouseclick("left")
Sleep(70)
Until $pause=1
Endif
EndFunc

Alles anzeigen

so sollte normalerweise zuerst der bot starten, dann wen du auf pause drückst müsste er stoppen und dann beim weiteren druck auf pause wieder anfangen, sobald du start drückst

Assoult · 4. Juli 2009, 15:19

hab dad ma bischen verschönert mit tekumi aber jet hengen wir hier xD

Quellcode

#include <Constants.au3>
HotkeySet("{1}", "_Ende")
HotKeySet("{2}", "_Pause")
HotKeySet("{3}", "_Weiter")
$Form1 = GUICreate("Bot",120,120)
$Button1 = GUICtrlCreateButton("Klick Bot Starten",10,10,100,40)
$Button2 = GUICtrlCreateButton("Anleitung",10,55,100,40)
GUISetState (@SW_SHOW)
Global $active = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
While True
Mouseclick("left")
Sleep(70)
WEnd
Case $Button2
MsgBox(0,"ANLEITUNG","1 = Ende ,2 = Pause ,3 = Weiter")
EndSwitch
WEnd
func _Ende()
Exit
EndFunc
func _Pause()
$active = 0
EndFunc
func _Weiter()
$active = 1
EndFunc

Alles anzeigen

mfg Assoult :want:

Tekumi · 4. Juli 2009, 15:52

Genau, wenn wir jetzt auf das X im Fenster klicken, kommt der Error,
dass die Variable $GUI_EVENT_CLOSE nicht deklariert wurde. WTF?
Hab alles mehrfach übverprüft und auch neue Scripts geschrieben um das zu testen.

Assoult · 4. Juli 2009, 16:04

ja hab jetz den script so umgeändert das es einen schliessenbutton gbt xD wer ne lösung für das andere weis pls posten

internetfreak · 4. Juli 2009, 17:09

bei der while schleife reicht eig ein While 1
while True is nich nötig

ausserdem, das $GUI_EVENT_CLOSE nich klappt, liegt an nem include
hast du die gui per koda gemacht?

Assoult · 4. Juli 2009, 17:13

das mit dem while hab ich und das mit dem close auch bischen gepfucht xD
nur klappen die tastenbelegungen nich nur exit ^^

Quellcode

#include <Constants.au3>
HotkeySet("{F1}", "_Ende")
HotKeySet("{F2}", "_Pause")
HotKeySet("{F3}", "_Weiter")
$Form1 = GUICreate("Made By Assoult",120,150)
$Button1 = GUICtrlCreateButton("Klick Bot Starten",10,10,100,40)
$Button2 = GUICtrlCreateButton("Anleitung",10,55,100,40)
$Button3 = GUICtrlCreateButton("Schliessen",20,105,80,30)
GUISetState (@SW_SHOW)
Global $active = 0
func _Ende()
Exit
EndFunc
func _Pause()
$active = 0
EndFunc
func _Weiter()
While True
Mouseclick ("left")
Sleep (1000)
WEnd
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
While True
Mouseclick("left")
Sleep(1000)
WEnd
Case $Button2
MsgBox(0,"ANLEITUNG","1 = Ende ,2 = Pause ,3 = Weiter")
Case $Button3
Exit
EndSwitch
WEnd

Alles anzeigen

internetfreak · 4. Juli 2009, 17:36

^nimm für _weiter ne Do Until schleife
Do
;dein code
Until $pause=1

und bei pause fragste ab, ob $pause auf 0 is, wenn ja dann auf 1 ansonstenwieder auf 0

Assoult · 4. Juli 2009, 17:57

wie klappt das mit do genau hab das jetz so gemacht

Quellcode

#include <Constants.au3>
HotkeySet("{F1}", "_Ende")
HotKeySet("{F2}", "_Pause")
HotKeySet("{F3}", "_Weiter")
$Form1 = GUICreate("Made By Assoult",120,150)
$Button1 = GUICtrlCreateButton("Klick Bot Starten",10,10,100,40)
$Button2 = GUICtrlCreateButton("Anleitung",10,55,100,40)
$Button3 = GUICtrlCreateButton("Schliessen",20,105,80,30)
$Time = Inputbox("Time","Gib die zeit zwischen den klicks ein")
GUISetState (@SW_SHOW)
Global $active = 0
func _Ende()
Exit
EndFunc
func _Pause()
If $pause = 0 Then
$pause=1
Else
$pause=0
Endif
EndFunc
func _Weiter()
Do
Until $pause=1
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
While True
Mouseclick("left")
Sleep($Time)
WEnd
Case $Button2
MsgBox(0,"ANLEITUNG","1 = Ende ,2 = Pause ,3 = Weiter")
Case $Button3
Exit
EndSwitch
WEnd

Alles anzeigen

aber wen ich f2 klicke schließt das fenster :you're kidding, rig

mfg Assoult :meaw:

internetfreak · 4. Juli 2009, 18:00

Global $pause

mach das ma an den anfang vom script
dir fehlt einfach die variablendeklaration
lies dir mein tut durch
da is es drin, dass man ne varible deklarieren kann

du kannst ja auch nicht entscheiden, ob ne person schlau oder blöd ist, ohne sie ma gesehen zu haben

Assoult · 4. Juli 2009, 18:08

._. hab mir das eig durchgelesen
xD habs jetz auch gechekt auch vorher aber dachte nich das ich das da einfügen muss :P

mg Assoult :OSMILEY:

//EDIT : aber das mit pause klappt immernoch nich :/

Tekumi · 4. Juli 2009, 18:32

Wenn du nur den Code hast:

Quellcode

func _Weiter()
Do
Until $pause = 1

Kann er nix ausführen, deswegen closet er sich.

Assoult · 4. Juli 2009, 18:57

wie heuisst es den richtig und warumx D

Tekumi · 4. Juli 2009, 19:08

Nach Do muss hin was er machen soll, bis Pause wieder auf 1 gesetzt wird (PauseTaste gedrückt wird)

Assoult · 5. Juli 2009, 05:36

xD hi mal wieder eine frage wie mache ich das das er wen ich auf den button klicke eine exe öffnet dachte es geht so

Quellcode

#include <Constants.au3>
$form1 = GUICreate("Login Bot", 300,200)
$Button1 = GUICtrlCreateButton("Start Login Bot",0,0,100,100)
GUISetState (@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
ShellExecute("xxx.exe", "" , "pfad" , "run" )
EndSwitch
WEnd

Alles anzeigen

mfg Assoult :grin:

mami · 30. Juli 2009, 11:00

ich würde dir empfehlen, eine durchsuchen-funktion reinzu machen^^
is einfacher wie den pfad selbstständig herzusuchen.

Dann in etwa so:

C-Quellcode

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 342, 123, 193, 125)
$Label1 = GUICtrlCreateLabel( "Pfad zur Datei:", 32, 8, 257, 25, 0)
$Input1 = GUICtrlCreateInput( "xxx", 32, 28, 257, 20, 0)
$Durchsuchen = GUICtrlCreateButton("Durchsuchen", 32, 60, 257, 25, 0)
$Oeffnen = GUICtrlCreateButton("Öffnen", 32, 92, 257, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Durchsuchen
$sufu = FileOpenDialog(GUICtrlRead($Input1),@ScriptDir,GUICtrlRead($Input1) & "(*.exe)")
GUICtrlSetData($Input1, $sufu)
Case $Oeffnen
ShellExecute(GUICtrlRead($Input1))
EndSwitch
WEnd

Alles anzeigen

So, jetzt hab ich ne frage xD
Bei ner InputBox, wie kann ich da bei dem Text in einer neuen Zeile weiterschreiben? bei ner combobox geht das glaub mit "|", ging dort aber nich...brauche hilfe xD

internetfreak · 30. Juli 2009, 16:06

wie meinst du mit inputbox
nimm @crlf
aber ob das bei inputbox geht, weiß ich nich
brauchte ich bisher nie

Damon · 30. Juli 2009, 16:15

Also nach meine wissen kann man das garnicht mir der InputBox machen und das würde sowie nichts bringen darf ich mal was fragen was du dir darunter vergestellt hast genau ?

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

C-Quellcode

Teilen