Relog Script with Captcha Recognizion

[white_lines]

/closeme pls

resume here:

[larsekuh]

Again can someone confirm this works and is safe?

[[Wicked]]

Script Decompiled.
First Lines deleatet to prevent leaching.

Func START()
    Run()
    Sleep(2000)
    WinActivate("Testosterone (C19H2802")
    Sleep(1000)
    While (True)
        If (WinWaitActive("SRO_Client", "", 1) <> 1) Then
            If (WinExists("SRO_Client")) Then
                ToolTip("Silkroad window not active!", 0, 0)
            Else
                ToolTip("Silkroad is not running!", 0, 0)
            EndIf
            ContinueLoop
        EndIf
        ToolTip("Silkroad window active!", 0, 0)
         = WinGetClientSize("SRO_Client")
        If (1 = @error) Then
            ContinueLoop
        EndIf
        If (400 =  And 148 = ) Then
            Sleep(300)
            ContinueLoop
        EndIf
        If ( <> 1024 Or  <> 768) Then
            MsgBox(0, "Error: Unsupported resolution: " &  & "x" & , "Sorry, this bot only works with clients running at 1024x768 resolution.")
            _EXIT()
        EndIf
        If (Not ) Then
            LOGIN()
        EndIf
    WEnd
EndFunc


Func LOGIN()
    Local , , 
    If ( <> "" And  <> "") Then
        If (PixelGetColor(300, 50) = 0 And PixelGetColor(400, 10) = 0 And (PixelGetColor(477, 433) = 0 Or PixelGetColor(586, 420) = 0)) Then
            ToolTip("login... (press F10 to exit programm)", 0, 0)
            If ((PixelGetColor(664, 474) <> 0 Or PixelGetColor(300, 100) = 0) And PixelGetColor(344, 483) <> 13480565) Then
                Do
                    MouseClick("left", 544, 432, 1, 0)
                    Sleep(300)
                Until (PixelGetColor(300, 100) <> 0)
                MouseClick("left", 544, 432, 1, 0)
                Sleep(100)
                Send("{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}")
                Send()
                Sleep(200)
                Send("{TAB}")
                Sleep(100)
                Send("{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}")
                Send()
                Sleep(200)
                Local  = 0
                HotKeySet("{ENTER}")
                While ( < 1000 And PixelGetColor(664, 474) <> 0 And PixelGetColor(344, 483) <> 13480565)
                    If (Mod(, 5) = 0) Then Send("{ENTER}")
                    Sleep(100)
                    If (Not WinExists("SRO_Client")) Then Exit
                     += 1
                WEnd
            EndIf
            WinActivate("SRO_Client")
            MouseMove(596, 507, 0)
            ToolTip("Captcha...", 0, 0)
            CLICKLOGIN()
             = True
        EndIf
    EndIf
EndFunc


Func CLICKLOGIN()
    ToolTip("Captcha...", 0, 0)
    MouseMove(588, 470)
    Sleep(2000)
    MouseDown("left")
    MouseUp("left")
    Run("SilkroadCaptcha.exe")
    Sleep(3000)
    WinActivate("SRO_Client")
    Sleep(500)
    Send("{F11}")
    Sleep(6000)
    WinActivate("SRO_Client")
    Sleep(200)
    Send("{Enter}")
    While ProcessExists("SilkroadCaptcha.exe")
        ProcessClose("SilkroadCaptcha.exe")
    WEnd
    Sleep(5000)
    If PixelGetColor(633, 507) = 0 And PixelGetColor(623, 463) = 0 Then
        ToolTip("Trying to reconnect...", 0, 0)
        MouseMove(466, 565)
        Sleep(4000)
        MouseDown("left")
        MouseUp("left")
        CLICKLOGIN()
    EndIf
    ToolTip("Charscreen...", 0, 0)
    CHARAUSWAHL()
EndFunc


Func CHARAUSWAHL()
    If ( = "left") Then
        MouseMove(233, 394)
        Sleep(2000)
        MouseDown("left")
        MouseUp("left")
    EndIf
    If ( = "middle") Then
        MouseMove(505, 394)
        Sleep(2000)
        MouseDown("left")
        MouseUp("left")
    EndIf
    If ( = "right") Then
        MouseMove(780, 394)
        Sleep(2000)
        MouseDown("left")
        MouseUp("left")
    EndIf
    Sleep(3000)
    MouseMove(755, 708)
    Sleep(2000)
    MouseDown("left")
    MouseUp("left")
    Sleep(2000)
    ToolTip("Commands...(need a bit, F10 to exit)", 0, 0)
    START_CMD()
EndFunc


Func START_CMD()
    Sleep(10000)
    MouseMove(228, 704)
    Sleep(10000)
    MouseMove(228, 704)
    Sleep(2000)
    MouseDown("left")
    MouseUp("left")
    Send("Presented by InTeNsE")
    Sleep(500)
    Send("{enter}")
    If ( = 1) Then
        MouseMove(228, 704)
        Sleep(1000)
        MouseMove(228, 704)
        Sleep(2000)
        MouseDown("left")
        MouseUp("left")
        Sleep(100)
        Dim  = 2
        While  <= 20
            MouseMove(228, 704)
            Sleep(400)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            If ( <> ) Then
                Send()
                Sleep(1000)
                Send("{Enter}")
                ToolTip("Command : " & , 0, 0)
            EndIf
             =  + 1
        WEnd
    EndIf
    If ( = 1) Then
        Run("DevilsDCDetectorV2.2.exe")
        Sleep(4000)
        WinActivate("Devils DC DetectorV2.2")
        Sleep(200)
        ControlClick("Devils DC Detector V2.2", "", 6, "Button1", 1)
        Sleep(200)
    EndIf
    Exit
EndFunc


Func _EXIT()
    Exit
EndFunc

[tobias_1985]

Is anyone able to recode it to work with multiple sizes? kinda new age and most people would have 1440x900?

[EliteGabo]

Is this safe ?

[white_lines]

/closeme pls

resume here: