Hallo,
ich versuche ein Mausscript zuschreiben 
das sich nur eine Bestimmte Anzahl wiederholt Pausiert und dann wieder von vorn zZt. benutze ich eine Endlos schleife
MfG
DumdiDum
Schleife Wiederholen
-
- [ offen ]
-
DumdiDum -
17. September 2009 um 21:24 -
Geschlossen -
Erledigt
-
Hallo DumdiDum,
dann poste doch einfach mal dein bisheriges Skript, meine Glaskugel scheint defekt zu sein,
mfg (Auto)Bert
-
[autoit]
AdlibEnable("d",1000)
[/autoit]
$i=1
Func d()
;programm
$i+=1
If $i=10 Then
AdlibDisable()
Endif
EndFuncDie zahl ist die zeit in ms zwischen den wiederholungen
-
vllt. hilft dir das:
Spoiler anzeigen
[autoit]
[/autoit]
While 1
$x = 0
While 1
MouseWheel("up", 500)
MouseMove( 580, 300 , 10)
MouseClick( "left" , 580, 300 , 1 , 10)
Sleep(10000)
MouseClick( "left" , 1045, 380 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 1045, 395 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 1045, 410 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 1045, 425 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 1045, 440 , 1 , 10)
Sleep(10000)
MouseClick( "left" , 620, 660 , 1 , 10)
Sleep(10000)
MouseClick( "left" , 1050, 770 , 1 , 10)
Sleep(10000)
MouseWheel("down", 500)
MouseClick( "left" , 560, 730 , 1 , 10)
Sleep(10000)
$x = $x + 1
if $x = 10 then exitloop ;das Skript wiederholt sich 10 mal und dann nochmal 10 mal und so weiter
wend
wend -
willkommen im autoit-forum
was soll das script denn mal werden wenns fertig ist? sieht mir nämlich ziemlich nach n spaßvirus aus.
und sowas wird hier nicht unterstütztsiehe Forenregeln:
Zitat- Programme, die anderen, auch Freunden, einen Schreck einjagen sollen oder sich sonst über andere Nutzer lustig machen ("Spaßviren")
entschuldige wenn dies nicht der fall ist
-
Hallo Jonathan,
dein Spoiler im Spoiler scheint die Formatierung dieses Threads durcheinanderzubringen,
mfg (Auto)Bert
-
Spoiler anzeigen
[autoit]While 1 ; While Schleife Nr. 1
[/autoit]
$x = 0 ; Laufvariable wird auf 0 gesetzt
While 1 ; While Schleife Nr. 2
MouseWheel("up", 500) ; Mausrad drehen
MouseMove( 580, 300 , 10) ; Maus auf die Koordinaten x = 580, y = 300 bewegen
MouseClick( "left" , 580, 300 , 1 , 10) ; Linksklick auf die Koordinaten: x = 580, y = 300
Sleep(10000) ; mach 10 sec pause
MouseClick( "left" , 1045, 380 , 1 , 10) ; Linksklick auf die Koordinaten: x = 1045, y = 380
Sleep(1000) ; mach 1 sec pause
MouseClick( "left" , 1045, 395 , 1 , 10) ; Linksklick auf die Koordinaten: x = 1045, y = 395
Sleep(1000) ; mach 1 sec pause
MouseClick( "left" , 1045, 410 , 1 , 10) ; Linksklick auf die Koordinaten: x = 1045, y = 410
Sleep(1000) ; mach 1 sec pause
MouseClick( "left" , 1045, 425 , 1 , 10) ; Linksklick auf die Koordinaten: x = 1045, y = 425
Sleep(1000) ; mach 1 sec pause
MouseClick( "left" , 1045, 440 , 1 , 10) ; Linksklick auf die Koordinaten: x = 1045, y = 440
Sleep(10000) ; mach 10 sec pause
MouseClick( "left" , 620, 660 , 1 , 10) ; Linksklick auf die Koordinaten: x = 620, y = 660
Sleep(10000) ; mach 10 sec pause
MouseClick( "left" , 1050, 770 , 1 , 10) ; Linksklick auf die Koordinaten: x = 1050, y = 770
Sleep(10000) ; mach 10 sec pause
MouseWheel("down", 500) ; Mausrad drehen
MouseClick( "left" , 560, 730 , 1 , 10) ; Linksklick auf die Koordinaten: x = 560, y = 730
Sleep(10000) ; mach 10 sec pause
$x = $x + 1 ; Laufvariable $x um 1 erhöhen
if $x = 10 then exitloop ; wenn die laufvariable $x = 10 ist dann beendet er Schleife Nr. 2
; da er aber noch in Schleife Nr. 1 ist beginnt er wieder oben bei Zeile 2: $x = 0
wend
sleep(1800000) ; hier könnte man deine 30 minuten pause einfügen
wend -
hä was jetz?
isses gelöst oder nicht?wenn nein: was fehlt dir? was willst du noch?
und von welchen "Hauptaktionen" sprichst du da?
-
Oder so
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]MouseClick( "left" , 460, 980 , 1 , 10)
[/autoit] [autoit][/autoit] [autoit]
Sleep(1000)
MouseClick( "left" , 760, 360 , 1 , 10)
Sleep(5000)
MouseClick( "left" , 205, 625 , 1 , 10)
Sleep(5000)
MouseClick( "left" , 970, 520 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 970, 990 , 6 , 10)
Sleep(15000)
MouseClick( "left" , 775, 815 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 715, 580 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 710, 980 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 710, 695 , 1 , 10)
Send("DumdiDum")
Sleep(1000)
For $i = 1 To 15 Step 1
MouseClick( "left" , 650, 850 , 1 , 10)
Sleep(5000)
Next
MouseClick( "left" , 720, 830 , 1 , 10)
Sleep(2000)
MouseClick( "left" , 310, 980 , 1 , 10)
Sleep(2000)$i= 0
[/autoit] [autoit][/autoit] [autoit]
AdlibEnable("d",1000)Func d()
[/autoit]
MouseWheel("up", 500)
MouseMove( 500, 360 , 10)
MouseClick( "left" , 500, 360 , 1 , 10)
Sleep(15000)
MouseClick( "left" , 960, 470 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 485 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 500 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 510 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 525 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 560, 760 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 970, 870 , 1 , 10)
Sleep(5000)
MouseWheel("down", 100)
MouseClick( "left" , 510, 830 , 1 , 10)
Sleep(15000)
$i += 1
If $i = 16 Then
AdlibDisable()
Endif
EndFunc -
while wird solange ausgeführt wie das argument dahinter nicht 0 ist
wenn man quasi while 1 schreibt bedeutet das die schleife läuft solange bis das script beendet wird oder man mit exitloop die schleife verlässt -
ja klar, die while schleife muss ja auch irgendwoher wissen was immer wiederholt werden soll.
d.h. du musst noch dein wend einfügen -
@Schnitzel
ein WEnd hat er ja aber bei ihm ist die funktion also die func teil in der while schleife das darf man aber nicht , da die func ja eh über adlib enable aufgerfufen wird , das adlibenable gehört aber auch nicht in die while schleife da es ja von selbst schon immer wieder aufgerufen kann man also auch nicht in die while schleife setzen also so :Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$i= 0
AdlibEnable("d",1000)
While 1
MouseClick( "left" , 460, 980 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 760, 360 , 1 , 10)
Sleep(5000)
MouseClick( "left" , 205, 625 , 1 , 10)
Sleep(5000)
MouseClick( "left" , 970, 520 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 970, 990 , 6 , 10)
Sleep(15000)
MouseClick( "left" , 775, 815 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 715, 580 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 710, 980 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 710, 695 , 1 , 10)
Send("DumdiDum")
Sleep(1000)
For $i = 1 To 15 Step 1
MouseClick( "left" , 650, 850 , 1 , 10)
Sleep(5000)
Next
MouseClick( "left" , 720, 830 , 1 , 10)
Sleep(2000)
MouseClick( "left" , 310, 980 , 1 , 10)
Sleep(2000)
WEndFunc d()
[/autoit]
MouseWheel("up", 500)
MouseMove( 500, 360 , 10)
MouseClick( "left" , 500, 360 , 1 , 10)
Sleep(15000)
MouseClick( "left" , 960, 470 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 485 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 500 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 510 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 525 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 560, 760 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 970, 870 , 1 , 10)
Sleep(5000)
MouseWheel("down", 100)
MouseClick( "left" , 510, 830 , 1 , 10)
Sleep(15000)
$i += 1
If $i = 16 Then
AdlibDisable()
Endif
EndFunc -
oh hups hatte mir den quellcode garnichmehr so genau angesehn
sry^^
-
DS für eure Hilfe bis jetzt
ok und damit ich etwas flexibler bin habe ich folgendes versucht
Spoiler anzeigen
AdlibEnable("d",1000)
Func d()
MouseWheel("up", 500)
MouseMove( 500, 360 , 10)
MouseClick( "left" , 500, 360 , 1 , 10)
Sleep(15000)
MouseClick( "left" , 960, 470 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 485 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 500 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 510 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 525 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 560, 760 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 970, 870 , 1 , 10)
Sleep(5000)
MouseWheel("down", 100)
MouseClick( "left" , 510, 830 , 1 , 10)
Sleep(15000)
$i += 1
If $i = 15 Then
AdlibDisable()Sleep(900000)
Endif
EndFuncaber leider funktioniert es doch nicht so richtig was habe ich nun schon wieder übersehen
MfG
-
Also laufen würde es das Sleep in der If schlefie ist sinnlos da nach adlibdisable das programm ohne sleep beenden würde ob es mit sleep ohne was zu machen weiterläuft braucht man doch nicht
Spoiler anzeigen
[autoit]AdlibEnable("d",1000)
[/autoit] [autoit][/autoit] [autoit]Func d()
[/autoit]
MouseWheel("up", 500)
MouseMove( 500, 360 , 10)
MouseClick( "left" , 500, 360 , 1 , 10)
Sleep(15000)
MouseClick( "left" , 960, 470 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 485 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 500 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 510 , 1 , 10)
Sleep(1000)
MouseClick( "left" , 960, 525 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 560, 760 , 1 , 10)
Sleep(11000)
MouseClick( "left" , 970, 870 , 1 , 10)
Sleep(5000)
MouseWheel("down", 100)
MouseClick( "left" , 510, 830 , 1 , 10)
Sleep(15000)
$i += 1
If $i = 15 Then
AdlibDisable()
Endif
EndFuncBei
[autoit]MouseWheel("up", 500)
[/autoit]lässt du das mouse rad 500 Mal drehen ich denke mal das das zuviel ist und lange dauert und das dann 15 mal hintereinander