[TOOL]SRO AutoLogin in minimized sro window!

[potar]

Hello!!!

I created program in AutoIT SRO AutoLogin that works in minimized SRO_Client!!!

Is very easy to use !!!

Instruction:
1. Run Silkroad (SRO_Client.exe)
2. Write username and password in the game.
3. Go to minimized Silkroad (SRO_Client.exe)
4. Run SRO_AutoLogin.exe
5. Click OK in program
6. Sometimes look for Silkroad (SRO_Client.exe) Meaby connected.
7. If connected in Silkroad ,click exit in small Tray Icon.

Download:
Scan:
Script:

 Spoiler

#include <NomadMemory.au3> ; ściągnąc i skopiowac do katalogu autoit Include
#include <WindowsConstants.au3>

Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)

Global $client = "SRO_Client"
$PID = WinGetProcess($client)
Global $hprocess = _MemoryOpen($PID)
Global $hwnd = WinGetHandle($client)

While 1
KeySend("RETURN")
Sleep(6000)
WEnd
Func KeySend($inkey, $evt = "pressed", $kdown = 50)
$user32 = DllOpen("user32.dll")
If $user32 = -1 Then
ConsoleWrite("KeySend: cannot open user32.dll")
Exit
EndIf

; handling for special keys
Switch StringUpper($inkey)
Case "@"
$skey = 0x40
$lparam = 0x00100001
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", 0x71, "long", $lparam)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_CHAR, "int", $skey, "long", $lparam)
Sleep(20)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", 0x71, "long", BitOR($lparam, 0xC0000000))
Case "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12"
$skey = 0x6f + Int(StringMid($inkey, 2))
ContinueCase
Case "NUM0", "NUM1", "NUM2", "NUM3", "NUM4", "NUM5", "NUM6", "NUM7", "NUM8", "NUM9"
If StringUpper(StringLeft($inkey, 3)) = "NUM" Then
$skey = 0x60 + Int(StringMid($inkey, 4))
EndIf
ContinueCase
Case "RETURN", "SPACE", "TAB", "BACK", "END", "HOME", "SNAPSHOT", "INSERT", "DELETE", "LEFT", "RIGHT", "UP", "DOWN"
Switch StringUpper($inkey)
Case "RETURN"
$skey = 0x0D
EndSwitch
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOR($lparam, 1)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000))
Case Else ; default lower case key handling
$key = DllCall($user32, "int", "VkKeyScan", "int", Asc(StringLower($inkey)))
$skey = $key[0]
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOR($lparam, 1)
Select
Case $evt = "pressed"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000))
Case $evt = "down"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam)
Case $evt = "up"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000))
EndSelect
EndSwitch

DllClose($user32)
EndFunc

-------------------
Moderators: Meaby attached?

[potar]

Refresh

[jetpack]

orr just use lolkops loader. >.>

[Athaetu]

0

[Athaetu]

0

[Jєγкa]

man its a ****** script. its easy project.

while 1
if winexists(sro_client) or processexist(sro_client.exe) then
controlsend("SRO_Client","","",{ENTER})
endif
Wend

its very easy man.

[f9devil]

lol

[lopasas]

as simple as it is, *** **** thanks

[PortalDark]

use ECSRO lolkops loader works fine

[potar]

Originally Posted by Jєγкa

man its a ****** script. its easy project.

while 1
if winexists(sro_client) or processexist(sro_client.exe) then
controlsend("SRO_Client","","",{ENTER})
endif
Wend

its very easy man.

yee is easy but the script is other... your don't working edit my topic to download script

[Jєγкa]

Originally Posted by potar

yee is easy but the script is other... your don't working edit my topic to download script

man man man... i dont debugged it only i wrote

and i dont make many scripts in autoit i use VB..

[xzede25]

but im a litle dump^^, is this works as non dc?

[1AraB1]

WOW!!!

Thanks a lot, works Perfect !!!

[Paladino]

While 1
ControlSend("[CLASS:CLIENT]","","","{ENTER}")
Sleep(1000)
WEnd

Congratulations, you got an autologin with this 4 lines of code -.-

[SnapzinN]

Ty man
i cant use lolkop's Loader + db bot,but with her I can