Jump to content
Sign in to follow this  
zutto

Another simple question.

Recommended Posts

zutto

is there any commands that i can add at last line what makes it repeat itself?

as example:

Repeat("999")

Edited by zutto

Share this post


Link to post
Share on other sites
zutto

_StringRepeat()?

hmm can you give me example?

_StringRepeat(ALL?,100) or...? what should i put at "ALL?" when i want all lines to be repeated..

EDIT: it says "Error: unkown function name." O,o

Edited by zutto

Share this post


Link to post
Share on other sites
zutto

#Include <String.au3> For _StringRepeat()

You want to repeat the whole script?

Yes! you got the point... i want to repeat the whole script.

Share this post


Link to post
Share on other sites
Drew

I would suggest a While statement. I helped with his script earlier , and I don't think StringRepeat will help.

I'll edit a example in , in just a minute.

HotKeySet("{F7}", "_Start")
HotKeySet("{F6}", "_Quit")
;
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)

While 1
    Sleep(5000)
WEnd

Func _Start()
    While 1
    WinWait("x", "")
    If Not WinActive("x", "") Then WinActivate("x", "")
    WinWaitActive("x", "")
    MouseMove(276, 419)
    MouseDown("left")
    MouseUp("left")
    Sleep("1000")
    MouseMove(428, 351)
    MouseDown("left")
    Sleep("1000")
    MouseMove(427, 351)
    MouseUp("left")
    Sleep("1000")
    MouseMove(292, 366)
    MouseDown("left")
    MouseUp("left")
    Sleep("1000")
    MouseMove(330, 489)
    MouseDown("left")
    MouseUp("left")
    Sleep("1000")
    WinWait("x", "")
    If Not WinActive("x", "") Then WinActivate("x", "")
    WinWaitActive("x", "")
    MouseMove(333, 369)
    MouseDown("left")
    MouseUp("left")
    Sleep("1000")
    MouseMove(318, 500)
    MouseDown("left")
    MouseUp("left")
    Sleep("1000")
    WinWait("x", "")
    If Not WinActive("x", "") Then WinActivate("x", "")
    WinWaitActive("x", "")
    MouseMove(291, 389)
    MouseDown("left")
    MouseUp("left")
    Sleep("1000")
    Run("c:\x.exe")
WEnd
;
    Exit
EndFunc  

Func _Quit()
    Exit
EndFunc
Edited by Drew

Share this post


Link to post
Share on other sites
TnTProductions

I would suggest a While statement. I helped with his script earlier , and I don't think StringRepeat will help.

I'll edit a example in , in just a minute.

HotKeySet("{F7}", "_Start")

HotKeySet("{F6}", "_Quit")

;

Opt("WinWaitDelay", 100)

Opt("WinTitleMatchMode", 4)

Opt("WinDetectHiddenText", 1)

Opt("MouseCoordMode", 0)

While 1

Sleep(5000)

WEnd

Func _Start()

While 1

WinWait("x", "")

If Not WinActive("x", "") Then WinActivate("x", "")

WinWaitActive("x", "")

MouseMove(276, 419)

MouseDown("left")

MouseUp("left")

Sleep("1000")

MouseMove(428, 351)

MouseDown("left")

Sleep("1000")

MouseMove(427, 351)

MouseUp("left")

Sleep("1000")

MouseMove(292, 366)

MouseDown("left")

MouseUp("left")

Sleep("1000")

MouseMove(330, 489)

MouseDown("left")

MouseUp("left")

Sleep("1000")

WinWait("x", "")

If Not WinActive("x", "") Then WinActivate("x", "")

WinWaitActive("x", "")

MouseMove(333, 369)

MouseDown("left")

MouseUp("left")

Sleep("1000")

MouseMove(318, 500)

MouseDown("left")

MouseUp("left")

Sleep("1000")

WinWait("x", "")

If Not WinActive("x", "") Then WinActivate("x", "")

WinWaitActive("x", "")

MouseMove(291, 389)

MouseDown("left")

MouseUp("left")

Sleep("1000")

Run("c:\x.exe")

WEnd

;

Exit

EndFunc

Func _Quit()

Exit

EndFunc[code=auto:0]

yea just use the while 1 function then at end of script say wend its the simpilist form of repeats out there

[code=auto:0]HotKeySet("{ESC}","Terminate")

Func Terminate()

Exit 0

EndFunc

While 1

$cords = PixelSearch(455,392,628,496,0xcccccc)

If not @error then

MouseClickDrag("left", $cords[0], $cords[1],842,258,10000000000)

EndIf

WEnd[code=auto:0]

Edited by TnTProductions

"FREEDOM is not FREE""Its a good thing war is so terrible, or we grow too fond of it" -Robert E. Lee[quote]Firestrom: global $warming = False[/quote]My scripts:Desktop Cleaner---->Total Downloads:167;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;111111;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;"a wise man once said why use your skills when we have technology"

Share this post


Link to post
Share on other sites
zutto

thanks now its doing what for i made it sadly here can't give "Rep" but i would give to all of you :)

Thans again..

Share this post


Link to post
Share on other sites
d4rk

$i=0
do
;code here
$i=$i+1
until $i=999


[quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys

Share this post


Link to post
Share on other sites
zutto

$i=0
do
;code here
$i=$i+1
until $i=999
got 1 more question about that command, is it possible to add on that until part something like this

"until $i=999 then

;another script here."

Share this post


Link to post
Share on other sites
Andreik

got 1 more question about that command, is it possible to add on that until part something like this

"until $i=999 then

;another script here."

Wrong.


When the words fail... music speaks

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.