Frage Antwort Tread zu Autoit

Assoult

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

Code

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

^.^

internetfreak

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

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

Code

#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

Code

#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

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

Code

#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

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

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

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

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

Code

#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

^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

wie klappt das mit do genau hab das jetz so gemacht

Code

#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

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

._. 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

Wenn du nur den Code hast:

Code

func _Weiter()
     Do
                   Until $pause = 1

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

Assoult

wie heuisst es den richtig und warumx D

Tekumi

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

Assoult

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

Code

#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

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

Dann in etwa so:

C

#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

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

Damon

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 ?

Frage Antwort Tread zu Autoit

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES