Rechts/ Links Klick Bot/Programm

[TheMiddle™]

Hallo ich bin grad dabei einen Bot/Programm zu coden der abwechseln Rechts- und wieder Links Klick drückt, der sich mit Hotkeys starten und wieder stoppen lässt.

Kann mir da jemand helfen oder gleich coden wäre euch sehr dankbar.

[Lawliet]

Schau dir

Hotkeyset

die Schleifen

While / Do, Until

und

MouseClick

an.

Selbst machen ist immer besser als alles "gleich coden" zu lassen.

[TheMiddle™]

Wo find ich die?

[omer36]

in der hilfe? google?

[jacky919]

F1 in SciTE...

[Reextion]

Hier nen auskommentierter Code. Könnt zwar schöner sein, aber da ich Autoit eigentlich nie verwende... ach auch egal, funktioniert jedenfalls ;p
Kannst ihn dir anpassen wie du willst, bei Fragen, fragen..!

Für den Code hier klicken ->

 Spoiler

Hotkeyset("o","rechtslinsklick") ;hier wird o als Hotkey für die rechtslinsklickfunktion festgelegt
Hotkeyset("p","close") ;hier wird p als Hotkey für die closefunktion festgelegt


While 1 ;Schleife damit sich das Programm nicht schließt
Sleep(1)
Wend

Func rechtslinsklick() ;Hauptfunktion die abwechselnd rechts und lins klickt
While 1 ;Unendlichschleife die bis zum close läuft
Mouseclick("left") ;Linksmausklick
Sleep(1000) ;1 Sekunde Wartezeit (in MS)
Mouseclick("right") ;Rechtsmausklick
Sleep(1000); 1 Sekunde Wartezeit (in MS)
WEnd ;Wiederholung der Schleife
Endfunc


Func close() ;Funktion zum Script schließen
Exit ;Schließt die Anwendung.
Endfunc

[Slorkr4yn]

Ich würd das so machen:

 Spoiler

HotkeySet("{F11}", terminate)
HotkeySet("{F12}", pause)

$time = Inputbox("Zeit", "Wieviel Zeit soll zwischen den Klicks sein?")
Global $Paused
Func Klick
While 1
	Mouseclick("left")
	sleep($time)
	Mouseclick("right")
	sleep($time)
Wend
EndFunc

Func terminate ()
	Exit
EndFunc

Func pause ()
	$Paused = NOT $Paused
	While $Paused
		Sleep(100)
		Tooltip('Script ist Pausiert')
	WEnd
	Tooltip("")
EndFunc

[CrAcKxX]

Ich so

 Spoiler

msgbox(0,"Test","Testbox")
HotKeySet("{F1}","Start")
HotKeySet("{F2}","Pause")
HotKeySet("{F3}","Exit")

Global $Aktive = 0
If $Aktive = 0 Then
   While 1
	  Sleep(200)
   WEnd
EndIf

Func Start()
   $Aktive = 1
   If $Aktive = 1 Then
	  While 1
		 mouseclick("LEFT")
		 sleep(100)
		 mouseclick("RIGHT")
		 sleep(100)
	  WEnd
   EndIf
EndFunc

Func Pause()
   $Aktive = 0
EndFunc

Func Exit()
   $Aktive = "Kill"
   If $Aktive = "Kill" Then
	  Exit
   EndIf
EndFunc

Mfg

[Ravenstorm]

Originally Posted by CrAcKxX

Ich so

 Spoiler

msgbox(0,"Test","Testbox")
HotKeySet("{F1}","Start")
HotKeySet("{F2}","Pause")
HotKeySet("{F3}","Exit")

Global $Aktive = 0
If $Aktive = 0 Then
   While 1
	  Sleep(200)
   WEnd
EndIf

Func Start()
   $Aktive = 1
   If $Aktive = 1 Then
	  While 1
		 mouseclick("LEFT")
		 sleep(100)
		 mouseclick("RIGHT")
		 sleep(100)
	  WEnd
   EndIf
EndFunc

Func Pause()
   $Aktive = 0
EndFunc

Func Exit()
   $Aktive = "Kill"
   If $Aktive = "Kill" Then
	  Exit
   EndIf
EndFunc

Mfg

Der sieht sehr gut aus jedoch solltest du

msgbox(0,"Test","Testbox")

daraus entfernen das macht nämlich null sinn das einzufügen. Außer du möchtest am Start sowas wie HALLO sagen oder so...

[CrAcKxX]

Nein darein kann man zum Beispiel die HotKeys reinschreiben wenn er das Programm an dritte weiter gibt . Abe rich denke auch das man msgbox schon beherrschen sollte :P

[Ravenstorm]

Ach dafür meintest du...

Jo, ich denke soweit wüsste er es schon selber schaffen um damit ein Copyright drauf zu legen

[lolkop]

Originally Posted by CrAcKxX

Func Exit()
   $Aktive = "Kill"
   If $Aktive = "Kill" Then
	  Exit
   EndIf
EndFunc

o0
warum nicht gleich sowas?

Func ExtremSinnlos()
    $blah='blubb'
    $blobb='blah'
    $blubb=$blah
    $bleh=$blobb
    If $blubb<>$blobb And $bleh='blah' Then Exit
EndFunc