Jump to content

Script will Click to link


kater
 Share

Recommended Posts

I facing some error's :)

I'm very sorry but Can you please modify the code and put it here again to show me

I'm very sorry again

$answer = "1"
Select
    Case $answer = ""
        Exit
    Case $answer = 1
        $data = 0
    Case $answer >= 1
        $data = ($answer*38)-38
EndSelect
run("C:\windows\system32\rcimlby.exe -LaunchRA")
While 1
    Sleep(100)
    Select
    Case WinActive ( "Help and Support Center" )
        Sleep(500)
        WinSetState( "Help and Support Center", "", @SW_MAXIMIZE)
        Sleep(500)
        $MousePos = PixelSearch(0,200,800,600,"0xB2D8B2", 8)
        MouseMove($MousePos[0],$MousePos[1]+$data,1)
        MouseClick ( "left" )
        Exit
    EndSelect
WEnd

TCP server and client - Learning about TCP servers and clients connection
Au3 oIrrlicht - Irrlicht project
Au3impact - Another 3D DLL game engine for autoit. (3impact 3Drad related)



460px-Thief-4-temp-banner.jpg
There are those that believe that the perfect heist lies in the preparation.
Some say that it’s all in the timing, seizing the right opportunity. Others even say it’s the ability to leave no trace behind, be a ghost.

 
Link to comment
Share on other sites

Sorry my friend

but my project was stopped in the next step I was did the above code by Tab key but the existing code that I took it from you it's very accurate

so please I need to complete the next step to click to Save invitation as a file (Advanced) and the next steps I'll complete they by my self by Tab key

pleas help me in my main problem what the code will click to the next step to click to this link Save invitation as a file (Advanced)

Please this point is very important for me I'll complete everything after solve this point :)

your kind advice please

Edited by kater
Link to comment
Share on other sites

Sorry my friend

but my project was stopped in the next step I was did the above code by Tab key but the existing code that I took it from you it's very accurate

so please I need to complete the next step to click to Save invitation as a file (Advanced) and the next steps I'll complete they by my self by Tab key

pleas help me in my main problem what the code will click to the next step to click to this link Save invitation as a file (Advanced)

Please this point is very important for me I'll complete everything after solve this point :)

your kind advice please

i hope this will work on your mashine

$answer = "1"
Select
    Case $answer = ""
        Exit
    Case $answer = 1
        $data = 0
    Case $answer >= 1
        $data = ($answer*38)-38
EndSelect
run("C:\windows\system32\rcimlby.exe -LaunchRA")
While 1
    Sleep(100)
    Select
    Case WinActive ( "Help and Support Center" )
        Sleep(500)
        WinSetState( "Help and Support Center", "", @SW_MAXIMIZE)
        Sleep(500)
        $MousePos = PixelSearch(0,200,800,600,"0xB2D8B2", 8)
        MouseMove($MousePos[0],$MousePos[1]+$data,1)
        MouseClick ( "left" )
        Do
            $pixel = PixelGetColor($MousePos[0],571)
        Until $pixel = "6796135"
        MouseMove($MousePos[0],571,1)
        MouseClick ( "left" )
        ExitLoop
    EndSelect
WEnd

i goto sleep now cy tomoro

TCP server and client - Learning about TCP servers and clients connection
Au3 oIrrlicht - Irrlicht project
Au3impact - Another 3D DLL game engine for autoit. (3impact 3Drad related)



460px-Thief-4-temp-banner.jpg
There are those that believe that the perfect heist lies in the preparation.
Some say that it’s all in the timing, seizing the right opportunity. Others even say it’s the ability to leave no trace behind, be a ghost.

 
Link to comment
Share on other sites

Ahh, dident had time lastnight to done it correctly (alot of people need to ;) and goto :) )

try this

$answer = "1"
Select
    Case $answer = ""
        Exit
    Case $answer = 1
        $data = 0
    Case $answer >= 1
        $data = ($answer*38)-38
EndSelect
run("C:\windows\system32\rcimlby.exe -LaunchRA")
While 1
    Sleep(100)
    Select
    Case WinActive ( "Help and Support Center" )
        Sleep(500)
        WinSetState( "Help and Support Center", "", @SW_MAXIMIZE)
        Sleep(500)
        $MousePos = PixelSearch(0,200,800,600,"0xB2D8B2", 8)
        MouseMove($MousePos[0],$MousePos[1]+$data,1)
        MouseClick ( "left" )
        Do
            Sleep(100)
            $MousePos1 = PixelSearch(0,200,800,600,"0x848400", 8)
        Until  $MousePos1 <> "1"
        Do
            Sleep(100)
            $MousePos2 = PixelSearch(0,$MousePos1[1],800,600,"0xB2D8B2", 8)
        Until  $MousePos2 <> "1"
        $MousePos3 = PixelSearch(0,$MousePos2[1]+30,800,600,"0xB2D8B2", 8)
        Sleep(500)
        MouseMove($MousePos3[0],$MousePos3[1],1)
        MouseClick("left")
        ExitLoop
    EndSelect
WEnd

for me its working on >= 1204*768

< than 1204*768 i didnt try

Edited by bogQ

TCP server and client - Learning about TCP servers and clients connection
Au3 oIrrlicht - Irrlicht project
Au3impact - Another 3D DLL game engine for autoit. (3impact 3Drad related)



460px-Thief-4-temp-banner.jpg
There are those that believe that the perfect heist lies in the preparation.
Some say that it’s all in the timing, seizing the right opportunity. Others even say it’s the ability to leave no trace behind, be a ghost.

 
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...