Jump to content

Help needed


Recommended Posts

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

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

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 code

while 1

MouseClick("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)

Next

WEnd

Edited by address
Link to comment
Share on other sites

while 1

MouseClick("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 = 1

MouseClick("left", 663, 554, 1)

MouseClick("left", 295, 120, 1)

Sleep(1000 * 5)

WEnd

Tried to solve my problem such. It didn't work too. Edited by address
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...