SUCHE einfaches AutoIt programm

Page 1 of 2 1 2
07/02/2010 13:29 porno1991#1
Hallo,
ich suche ein ganz einfaches Programm, dass unendlich oft und möglichst schnell die LINKE maustaste drückt, was sich am besten mit F8 starten lässt und mit F9 beeenden lässt (z.B) habe es schon selber probiert, jedoch ohne Erfolg wenn jemand das schnell für mich machen könnte wäre das super dufte :D

mfg.
07/02/2010 13:40 ScyLoon#2
Hab leider kein AutoIt mehr drauf, aber dann nehm ich das eben als Grund es wieder zu laden...
Wenn ich das noch kann, lad ich es gleich hoch :D

MfG

€DiT:
Hier einmal der fertige Source Code:
Quote:
MsgBox (0, "Hotkeys", "Start: F8 | Stop: F9")

hotkeyset("{F8}","start")
hotkeyset("{F9}","ende")

$FensternameVomFenster = InputBox("Name?","Was ist der Fenstername, indem der Bot laufen soll?")
WinWaitActive($FensternameVomFenster)

func start()
while(1)
MouseClick("left")
sleep(1)
WEnd
endfunc

func ende()
Exit
endfunc
Und hier die fertige Datei: [Only registered and activated users can see links. Click Here To Register...]
07/02/2010 13:43 Computerfreek#3
Code:
HotKeySet("{F6}", "_start")
HotKeySet("{ESC}", "_exit")
While 1
	Sleep(1000)
WEnd

Func _start()
While 1
MouseClick("left")
WEnd
EndFunc

Func _exit()
Exit
EndFunc
Müsste so gehen.
Evtl noch
Code:
Sleep(50)
nach dem MouseClick einbauen, da er sich sonst nur sehr schwer per HotKey beenden lässt.
07/02/2010 13:48 porno1991#4
danke computerfreek aber leider kommt bei mir eine fehlermeldung

Missing separator charackter after keyword

edit: ja habe autoit, versteh jedoch nur bahnhof :D
07/02/2010 13:54 Computerfreek#5
Habs verbessert.
Die "()" hinter dem "_exit" hatte gefehl.
Einfach nochmal kopieren und freuen.
07/02/2010 13:56 porno1991#6
danke funktioniert genauso wie ich es wollte, die pause nach dem mausklick ist gar nicht nötig
07/02/2010 14:02 ScyLoon#7
Quote:
Originally Posted by Computerfreek View Post
Code:
HotKeySet("{F6}", "_start")
HotKeySet("{ESC}", "_exit")
While 1
	Sleep(1000)
WEnd

Func _start()
While 1
MouseClick("left")
WEnd
EndFunc

Func _exit()
Exit
EndFunc
Müsste so gehen.
Evtl noch
Code:
Sleep(50)
nach dem MouseClick einbauen, da er sich sonst nur sehr schwer per HotKey beenden lässt.
War schneller :p

So wie du kann man es natürlich auch machen, hab noch bisschen schnikschank mit drinne, aber das sollte kein problem sein, da es ja nur zur leichteren Bedienung dienen soll.

MfG
07/02/2010 14:12 Computerfreek#8
Du warst definitiv nicht schneller.

-> Geändert von ScyLoon (Heute um 14:05 Uhr) = Code & *.exe eingebaut

Und bei mir:
-> Geändert von Computerfreek (Heute um 13:54 Uhr) Grund: Fehler verbessert = Fehler im Code verbessert.

War mehr als 10 Minuten vor dir.
Einfach abundzu mal F5 drücken.
Zudem ist das
Code:
$FensternameVomFenster = InputBox("Name?","Was ist der Fenstername, indem der Bot laufen soll?")
WinWaitActive($FensternameVomFenster)
bei dir komplett unnütz, weil er ausserhalb der Func's eh nix macht und das innerhalb der Func's unwirksam is.

€dit:
Daher wie gesagt:
Hin und wieder mal F5 drücken :)
07/02/2010 14:20 ScyLoon#9
Quote:
Originally Posted by Computerfreek View Post
Du warst definitiv nicht schneller.

-> Geändert von ScyLoon (Heute um 14:05 Uhr) = Code & *.exe eingebaut

Und bei mir:
-> Geändert von Computerfreek (Heute um 13:54 Uhr) Grund: Fehler verbessert = Fehler im Code verbessert.

War mehr als 10 Minuten vor dir.
Einfach abundzu mal F5 drücken.
Zudem ist das
Code:
$FensternameVomFenster = InputBox("Name?","Was ist der Fenstername, indem der Bot laufen soll?")
WinWaitActive($FensternameVomFenster)
bei dir komplett unnütz, weil er ausserhalb der Func's eh nix macht und das innerhalb der Func's unwirksam is.
Ja weißte wieso ich dachte das ich schneller war, weil ich ja 1. editiert habe und daher nicht sehen konnte wer schon nach mir gepostet hat!

Aber naja! Und das mit dem Fensternamen hab ich nur spass gemacht! Wie gesagt: Schnikschnak :D

Gruß ScyLoon
07/02/2010 15:00 DraaaKe#10
Quote:
Originally Posted by ScyLoon View Post
Ja weißte wieso ich dachte das ich schneller war, weil ich ja 1. editiert habe und daher nicht sehen konnte wer schon nach mir gepostet hat!

Aber naja! Und das mit dem Fensternamen hab ich nur spass gemacht! Wie gesagt: Schnikschnak :D

Gruß ScyLoon
wer baut schnick schnack ein wenn er es nicht richtig einbauen kann^^ Es gibt 2 Gründe^^

Grund 1: Zu wenig Kenntnisse
Grund 2: Zu schnell gearbeitet^^

Ich vermute zwar Grund 2 aber wer weis :D

Naja editiers halt nomma ins Func start rein udn gut is^^

€dit: Hab auch mal so nen Bot gescriptet^^ Bei meinem kannst du halt einstellen wielange die klick abstände sein sollen :D

[Only registered and activated users can see links. Click Here To Register...]

Wer ihn haben möchte? PN
07/02/2010 16:39 porno1991#11
danke, aber der den ich habe ist schon perfekt für meine zwecke

edit:

obwohl einer mit einer pause funktion währe super :D
07/02/2010 17:16 ScyLoon#12
Quote:
Originally Posted by DraaaKe View Post
wer baut schnick schnack ein wenn er es nicht richtig einbauen kann^^ Es gibt 2 Gründe^^

Grund 1: Zu wenig Kenntnisse
Grund 2: Zu schnell gearbeitet^^

Ich vermute zwar Grund 2 aber wer weis :D

Naja editiers halt nomma ins Func start rein udn gut is^^

€dit: Hab auch mal so nen Bot gescriptet^^ Bei meinem kannst du halt einstellen wielange die klick abstände sein sollen :D

[Only registered and activated users can see links. Click Here To Register...]

Wer ihn haben möchte? PN
zu Grund 1 & 2 kann ich nur sagen:

1. Es kann sein das inzwischen meine Kenntnisse eingerostet sind, weil ich seine halbe Ewigkeit nicht mehr benutzt habe, aber das wird schon wieder.
Wobei in diesem Fall eher Grund 2 zutrifft :D

Aber Danke für die Rückmeldung!

MfG
07/02/2010 17:22 xXGiuliXx#13
Zack.... :D

Quote:
Originally Posted by porno1991 View Post
danke, aber der den ich habe ist schon perfekt für meine zwecke

edit:

obwohl einer mit einer pause funktion währe super :D
PHP Code:
Global $Paused

MsgBox (0, "Hotkeys", "Start: F8 | Stop: F9")

hotkeyset("{F8}","start")
hotkeyset("{F9}","ende")
Hotkeyset ("{F10}","_Pause")

$FensternameVomFenster = InputBox("Name?","Was ist der Fenstername, indem der Bot laufen soll?")
WinWaitActive($FensternameVomFenster)

func start()
while(1)
MouseClick("left")
sleep(1)
WEnd
endfunc

Func _Pause()
$Paused = NOT $Paused
While $Paused 
sleep(100)
ToolTip('Script ist pausiert',0,0)
WEnd
ToolTip("")
EndFunc

func ende()
Exit
endfunc 
07/02/2010 18:32 porno1991#14
vielen dank nochmal an alle die indirekt dabei geholfen haben crimemt2 down zu bekommen :D
07/02/2010 18:33 LetsBash#15
so Siehts aus :P
Page 1 of 2 1 2