Handy Info & Review
radio_rip Recording Streams
Silkroad Online Autologin
Top Ratings Article/Downloads
MyMiniCity Graphics Statistics
HowTo/Manuals
Blog als RSS
free-downloads - use-SRO-autologin
Silkroad online autologin tool / SRO autologin free download
News 2009/June/16th : update on SRO autologin script to version 1.1 to fit with todays actual SRO Client (Version 1.198)
free download Silkroad online autologin / SRO autoconnect tool (Version 1.1)
Silkroad Autologin - Anleitung auch in Deutsch
See more about http://www.silkroadonline.net
Ask your questions in the forum and help out each other with problems with SRO-autologin.
Silkroad Online Autologin Tool Version 1.1 (SRO Autoconnect): This is a tool for automatic connect to your Silkroad Online Server.
SRO Autologin creators/readme
with this little tool you can save your worthy time for other purposes while your pc is connecting you to the SRO Servers. Just do other tasks while waiting for your connection to be established. Don't forget to read the Readme File first! I won't support botuser.
Blogposts for Silkroad online on my blog (mostly german)
Demo Video:
README:
------------------------------
Silkroad Online Autologin Tool
------------------------------
Author: Stefan Hummert
Release Date: 04.12.2006
Release Date Version 1.1 compatible with SRO : 16.06.2009
(C) all rights reserved
visit
www.donneker.de
you can download this tool at
http://www.donneker.de/free-downloads/use-SRO-autologin/
FIRST OF ALL: This software surely contain bugs, even if I tested it very strong.
You use this software at your own risk, and I take no responsibilty
for anything this software does, or you do with this software.
This software contains an ActiveX Control Container, which could be
missused per Internet Websites. If you use it, you are fully aware of
this fact. My Sites won't do any of that, and the ActiveX has no
implemented backdoor or other malware included, if you downloaded it
from my site. But the functions included for remote controlling
Silkroad could be missused by other peoples internet sites, and I just
say that, that you are aware of that and can decide if you want to take
the risk by using that software.
If you want to distribute this software or publish it at an other download location
then please inform the author of the software first, so he can decide if you are
allowed to do so.
The software consists of four components,
one script (Start_silkroad.vbs, Visual Basic Script),
one ActiveX Control Container. (the HotKeyXControl1.ocx file),
one Batchfile (for Registering the ActiveX Container)
and this Readme file.
Before you can start, you have to do some steps just once.
First steps:
+ Register the ActiveX Container by double Clicking on the register.bat file.
There should appear a message box telling you that it was successfully registered.
+ Now you have to edit the Start_Silkroad.vbs script. Open it with Notepad,
and you can now adjust line 18-21 to your System.
- strSilkroad: has to Contain the full pathname and the executable to your
Silkroad Launcher File
- myTmpfile: is just a temporary file needed inside the script. You only need
to edit the setting if you have no drive C:\ (or no access to it)
- strUser: here you have to type in your username
- strPass: here you have to type in your password
Save the edited file.
+ You have to logon once manually, because the Autologin tool doesnt select the
Server for you. Silkroad remembers the last server, and this tool doesn't change it.
+ If you edited and loged on manually (or did that before)
then you can start the Silkroad Autologin tool
with a double Click on the Start_Silkroad.vbs script.
+ Wait until you see the choose character screen, then you can take back control.
The next logons you just need to Start the Start_Silkroad.vbs script.
You can also hold different user accounts with the Script, as long as they are
on the same server. Just copy the script and give the copy other login information.
While the Autologin Script is running, you should not interact with your computer,
it may be you disturb the Script in actions it take.
Just do some other work (housework, eat something, go out with your dog, ...)
and wait until you got logged in.
At the moment, it does not choose your character, so if you are on the character
choose screen you are the one to take action again. The script quits itself at that
moment (and gives a hint for that too) :-)
So I hope I saved you some time, and if you like this software, please donate
something to me. (just email me, and I will tell you how, or just do it fast if you
have a moneybookers account and send it to: donneker@my.donster.de)
Also if you have comments or wishes, you are welcome to email me.
REMEMBER: I won't support BOT user in any way!
h@ve fun playing Silkroad!
SOURCE:---
' SendKeys.vbs
' Example VBScript Run Notepad and use SendKeys
' Author Guy Thomas http://computerperformance.co.uk/
' Ezine 26 Version 1.8 - June 2005
'
' SendMessage ActiveX by Donneker
' Stefan Hummert
' 26.11.2006
' -----------------------------------------------------'
Option Explicit
' Settings Section
'
' Here gets the Base settings
'
Dim strSilkroad, myTmpfile, strUser, strPass
strSilkroad = "C:\Spiele\Silkroad\Silkroad.exe"
myTmpfile = "C:\netstat.txt"
strUser = "your username"
strPass = "your password"
' DO NOT EDIT BEYOND THIS LINE
'
' DO NOT EDIT BEYOND THIS LINE
'
' DO NOT EDIT BEYOND THIS LINE
'
Dim objShell, intCount
Set objShell = CreateObject("WScript.Shell")
Dim mySend
Set mySend = CreateObject("mySend.HotKeyX")
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim keyDown, keyUp
Dim caller, caller1
Dim keyUpFlags
'WM_SETFOCUS = 7
'WM_CHAR = 258
'WM_SETTEXT = 12
keyDown = 256
KeyUp = 257
keyUpFlags = -1073741824 + 1
'we have to take -1073741824 because its signed Long, else we get overflow
'3221225472 + 1
'3221225472 is the 11000000000000000
Function sendKeyPress(the_char, the_window, my_text)
caller = CInt(mySend.call(0, 258, CLng(the_char), 1, CStr(the_window), CStr(my_text)))
End Function
Function sendText(my_text, the_window)
caller = CInt(mySend.call(0, 7, 0, 0, CStr(the_window), CStr(my_text)))
caller = CInt(mySend.call(0, 12, 0, CLng(0), CStr(the_window), CStr(my_text)))
End Function
Function sendTextEx(my_text, the_window)
Dim i, byteVal, letter
For i = 1 To Len(my_text)
letter = Mid(my_text, i, 1)
byteVal = Asc(letter)
sendKeyPress byteVal, the_window, ""
Wscript.Sleep 77
Next
End Function
Function checkConEstablished
Dim f, ts, fileText, retVal, hitcounter1, hitcounter2
Dim myStr
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
retVal = 0
hitcounter1 = 0
hitcounter2 = 0
myStr = "%comspec% /C netstat -bn -p TCP >" & myTmpfile
objShell.Run myStr, 0, true
Set f = FSO.GetFile(myTmpfile)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Do While Not ts.AtEndOfStream
fileText = ts.ReadLine
If inStr(fileText, "15779") > 0 and inStr(fileText, "121.128.133.26") = 0 and inStr(fileText, "121.128.133.27") = 0 and inStr(fileText, "121.128.133.28") = 0 and inStr(fileText, "121.128.133.29") = 0 then
hitcounter1 = hitcounter1 + 1
end if
If inStr(fileText, "[sro_client.exe]") > 0 then
hitcounter2 = hitcounter2 + 1
end if
Loop
ts.Close
if hitcounter1 > 0 AND hitcounter2 > 0 THEN
retVal = 1
end if
checkConEstablished = retVal
End Function
Function showSite
objShell.Run chr(34) + "http://www.donneker.de/free-downloads/use-SRO-autologin/auto/" + chr(34),1,vbFalse
End Function
Dim sucAA
Dim tLoop
showSite
Wscript.Sleep 3000
intCount=100
Do While intCount > 0
sucAA = objShell.AppActivate("Silkroad Online Launcher")
if Not sucAA THEN
objShell.Run strSilkroad
End IF
tLoop = 10
Do While tLoop > 0
Wscript.Sleep 2000
sucAA = objShell.AppActivate("Silkroad Online Launcher")
if sucAA THEN
tLoop = 0
else
sucAA = objShell.AppActivate("SRO_Client")
if sucAA THEN
tLoop = -1
END IF
tLoop = tLoop - 1
END IF
Loop
' no "continue" Support - IF 1
if sucAA THEN
if tLoop = 0 THEN
Wscript.Sleep 5000
sucAA = objShell.AppActivate("Silkroad Online Launcher")
objShell.SendKeys "{TAB}"
Wscript.Sleep 250
objShell.SendKeys "{TAB}"
Wscript.Sleep 250
objShell.SendKeys "{TAB}"
Wscript.Sleep 250
objShell.SendKeys "{TAB}"
Wscript.Sleep 250
objShell.SendKeys "{TAB}"
Wscript.Sleep 250
objShell.SendKeys " "
end if
tLoop = 20
Do While tLoop > 0
Wscript.Sleep 1000
sucAA = objShell.AppActivate("SRO_Client")
if sucAA THEN
tLoop = 0
else
tLoop = tLoop - 1
END IF
Loop
' no "continue" Support - IF 2
if sucAA THEN
Wscript.Sleep 15000
'MsgBox "15 sec"
sucAA = objShell.AppActivate("SRO_Client")
objShell.SendKeys "{ENTER}"
sendKeyPress 13, "SRO_Client", ""
Wscript.Sleep 1000
'objShell.SendKeys "{TAB}"
sendKeyPress 9, "SRO_Client", ""
Wscript.Sleep 1000
sendTextEx strUser, "SRO_Client"
Wscript.Sleep 250
sendKeyPress 9, "SRO_Client", ""
Wscript.Sleep 250
sendTextEx strPass, "SRO_Client"
Wscript.Sleep 250
tLoop = 1000
Do while tLoop > 0
sucAA = objShell.AppActivate("SRO_Client")
sendKeyPress 13, "SRO_Client", ""
objShell.SendKeys "{ENTER}"
WScript.Sleep (15000 - (tLoop Mod 10))
if checkConEstablished <> 0 THEN
' Also send Keypress 13 onetime, because it could be Disconnect window is open
' and connection is open
WScript.Sleep 5000
sendKeyPress 13, "SRO_Client", ""
if checkConEstablished <> 0 THEN
MsgBox "Silkroad running, waiting for you, my master, to takeover control"
WScript.Quit
else
' Disconnected from Server window, close silkroad and restart
sucAA = objShell.AppActivate("SRO_Client")
sendKeyPress 13, "SRO_Client", ""
objShell.SendKeys "{ENTER}"
END IF
end if
WScript.Sleep 2000
sucAA = objShell.AppActivate("SRO_Client")
if Not sucAA THEN
WScript.Sleep 2000
tLoop = 0
END IF
tLoop = tLoop - 1
Loop
intCount = intCount - 1
' zu 2 Ende wg. no Continue
END IF
' zu 1 Ende wg. no Continue
END IF
Loop
WScript.Quit
' End of Example SendKeys VBScript
Die hier und in den Unterverzeichnissen aufgeführten Angebote, Produkte oder Dienstleistungen werden von mir aufgrund eigener Benutzung und Erfahrung empfohlen, soweit nicht anders vermerkt.
Back2Main