address Posted April 21, 2008 Share Posted April 21, 2008 while 1 MouseClick("left", 120, 123, 1) MouseClick("left", 913, 431, 1) Send ("{HOME}") MouseClick("left", 376, 598, 1) Send("#my script") MouseClick("left", 736, 637, 1) Dim $aWord[5] = [4, "Hello", "World", "Good", "Morning"] For $i = 1 To $aWord[0] Send($aWord[$i]) MouseClick("left", 644, 596, 1) MouseClick("left", 295, 120, 1) Next Sleep(1000 * 120) WEnd I need to write Hello, make 2 mouseclicks, 2 minutes quiet, and then write next word (World) (before upper mouseclicks should be made of course). And I cannot do this whereever I put Next. Help please. Link to comment Share on other sites More sharing options...
evilertoaster Posted April 21, 2008 Share Posted April 21, 2008 Here's one way- while 1 MouseClick("left", 120, 123, 1) MouseClick("left", 913, 431, 1) Send ("{HOME}") MouseClick("left", 376, 598, 1) Send("#my script") MouseClick("left", 736, 637, 1) Dim $aWord[4] = ["Hello", "World", "Good", "Morning"] For $i = 0 To UBound($aWord) Send($aWord[$i]) MouseClick("left", 644, 596, 1) MouseClick("left", 295, 120, 1) Sleep(1000 * 120) Next WEnd You don't have to use Ubound() like I did, but it saves you from having to mix datatypes in an array. Link to comment Share on other sites More sharing options...
address Posted April 22, 2008 Author Share Posted April 22, 2008 (edited) After word writing and two mouseclicking it makes four more unwanted mouseclicks instead of go to sleep for two minutes an go to beginning.And I have the same problem with numeral writing. Here is codewhile 1MouseClick("left", 120, 123, 1)MouseClick("left", 913, 431, 1)Send ("{HOME}")MouseClick("left", 332, 552, 1)Send("#my script")MouseClick("left", 668, 624, 1) For $i = 1 To 3 $sTextToSend = $i If $i = 3 Then $sTextToSend = $i Send($sTextToSend)MouseClick("left", 663, 554, 1)MouseClick("left", 295, 120, 1)Sleep(1000 * 120) NextWEnd Edited April 22, 2008 by address Link to comment Share on other sites More sharing options...
address Posted April 23, 2008 Author Share Posted April 23, 2008 (edited) while 1MouseClick("left", 120, 123, 1)MouseClick("left", 913, 431, 1)Send ("{HOME}")MouseClick("left", 332, 552, 1)Send("#my script")MouseClick("left", 668, 624, 1)For $i = 1 + $a Send($i)Next$a = 1MouseClick("left", 663, 554, 1)MouseClick("left", 295, 120, 1)Sleep(1000 * 5) WEndTried to solve my problem such. It didn't work too. Edited April 23, 2008 by address Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now