Sign in to follow this  
Followers 0
Cosmo

AutoLgin-SRO

12 posts in this topic

#1 ·  Posted (edited)

Hi!

This script already exists i just wanted to give him a better look, iam noob so it wouldnt be such a better look.. :D

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("SilkRoad Online-Auto_Login", 625, 441, 187, 117)
GUISetBkColor(0xA6CAF0)
$Pic1 = GUICtrlCreatePic("E:\Docs\Nuno\sprint\fll3g.gif", 0, 0, 625, 441)
$login = GUICtrlCreateInput("ID no SilkRoad Online", 120, 400, 121, 21, -1, $WS_EX_CLIENTEDGE)
$password = GUICtrlCreateInput("PassWord do ID", 320, 400, 121, 21, -1, $WS_EX_CLIENTEDGE)
$character = GUICtrlCreateInput("Char nº", 256, 400, 49, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Auto Login do SilkRoad Online-Enserir A informação necessária em baixo da fig.                            Have Fun!!!", 0, 0, 520, 17)
GUICtrlCreateLabel("Usa a tecla TAB para mudares a caixa a preencher e depois carrega no botão Start.                            Have Fun!!!", 0, 32, 520, 17)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button1 = GUICtrlCreateButton("Run SRO", 552, 400, 73, 41)
GUICtrlSetFont(-1, 8, 400, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008080)
GUICtrlSetCursor ($Button1, 0)
GUISetState(@SW_SHOW)
;--------------------From here the script is copied
HotKeySet("{PAUSE}", "Pause")
Global $Paused
while 1=1
sleep(1500)
if WinExists("SRO_Client") then
sleep(500)    
else 
 
 Run("C:\Programas\Silkroad\sro_client.exe 1234 /18 0 0")
 
 while (PixelGetColor(22,757) <> 16744576) and (WinExists("Error") <> 1) and (WinExists("NetError","") <> 1)
 sleep(500)
 wend
 if WinExists("Error") or WinExists("NetError","") then
  WinActivate("Error")
  sleep(200)
  WinActivate("NetError","")
  ControlClick("Error","","Button1","left")
  sleep(200)
  ControlClick("NetError","","Button1","left")
  sleep(2000)
 else
  WinActivate("SRO_Client")
  loginStart()
 EndIf
endif
wend
func loginStart()
 sleep(200)
 ControlSend("SRO_Client", "", "", "{Enter}")
 sleep(1000)
 Send($login)
 sleep(1000)
 ControlSend("SRO_Client", "", "", "{TAB}")
 sleep(1000)
 send($password)
 sleep(1000)
 ControlSend("SRO_Client", "", "", "{Enter}")
 sleep(4000)
 while PixelGetColor(254,87) <> 14402189 and PixelGetColor(491,424) <> 16710616
  ControlSend("SRO_Client", "", "", "{Enter}")
  sleep(4000)
 wend
 if (PixelGetColor(528,425) = 16710616) then
  MouseMove(513,423,0)
  MouseClick("left",513,423,1)
  sleep(2000)
 else
  if (PixelGetColor(254,87) = 14402189) then
   sleep(3000)
   If $character=1 then
    MouseMove(325,348,0)
    MouseClick("left",325,348,2)
    MouseClick("left",325,348,2)
   EndIf
   If $character=2 then
    MouseMove(521,362,0)
    MouseClick("left",521,362,2)
    MouseClick("left",521,362,2)
   EndIf
   If $character=3 then
    MouseMove(704,374,0)
    MouseClick("left",704,374,2)
    MouseClick("left",704,374,2)
   EndIf
   sleep(800)
   If (PixelGetColor(789,231) = 16765009) then
    SoundPlay("C:\Windows\media\notify.wav")
    sleep(2200)
    MouseMove(791,710,0)
    MouseClick("left",791,710,2)
   else
    if (PixelGetColor(528,425) = 16710616) then
     MouseMove(513,423,0)
     MouseClick("left",513,423,1)
     sleep(2000)
    else
     MouseMove(996,712,0)
     MouseClick("left",996,712,1)
     sleep(3500)
     loginStart()    
    Endif
 
   Endif 
  Endif
 endif
EndFunc
Func Pause()
    $Paused = NOT $Paused
While  $Paused
        Sleep (400)
WEnd
EndFunc ; => Pause()
;--------------------End copie of script
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit

this was deleted from original script, the one that i copie

$login=inputbox("AutoLogin-SRO","ID de Login do SilkRoad")
$password=inputbox("Restarter","Password do ID do SilkRoad")
$character=inputbox("Restarter","Escolher personagem (1,2,3):")

it shouldnt start SRO without click on the button,....

Edited by Cosmo

Share this post


Link to post
Share on other sites



Hi.... :D

Share this post


Link to post
Share on other sites

you dont need to finish it, i´m trying the same and can tell you that Send() and ControlSend() wont work in SRO because GameGuard....


Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

this the original (not mine):

$login=inputbox("PT-AutoLogin-SRO","ID de Login do SilkRoad")
$password=inputbox("Restarter","Password do ID do SilkRoad")
$character=inputbox("Restarter","Escolher personagem (1,2,3):")
HotKeySet("{PAUSE}", "Pause")
Global $Paused
while 1=1
sleep(1500)
if WinExists("SRO_Client") then
sleep(500)    
else 
 
 Run("C:\Programas\Silkroad\sro_client.exe 1234 /18 0 0")
 
 while (PixelGetColor(22,757) <> 16744576) and (WinExists("Error") <> 1) and (WinExists("NetError","") <> 1)
 sleep(500)
 wend
 if WinExists("Error") or WinExists("NetError","") then
  WinActivate("Error")
  sleep(200)
  WinActivate("NetError","")
  ControlClick("Error","","Button1","left")
  sleep(200)
  ControlClick("NetError","","Button1","left")
  sleep(2000)
 else
  WinActivate("SRO_Client")
  loginStart()
 EndIf
endif
wend
func loginStart()
 sleep(200)
 ControlSend("SRO_Client", "", "", "{Enter}")
 sleep(1000)
 Send($login)
 sleep(1000)
 ControlSend("SRO_Client", "", "", "{TAB}")
 sleep(1000)
 send($password)
 sleep(1000)
 ControlSend("SRO_Client", "", "", "{Enter}")
 sleep(4000)
 while PixelGetColor(254,87) <> 14402189 and PixelGetColor(491,424) <> 16710616
  ControlSend("SRO_Client", "", "", "{Enter}")
  sleep(4000)
 wend
 if (PixelGetColor(528,425) = 16710616) then
  MouseMove(513,423,0)
  MouseClick("left",513,423,1)
  sleep(2000)
 else
  if (PixelGetColor(254,87) = 14402189) then
   sleep(3000)
   If $character=1 then
    MouseMove(325,348,0)
    MouseClick("left",325,348,2)
    MouseClick("left",325,348,2)
   EndIf
   If $character=2 then
    MouseMove(521,362,0)
    MouseClick("left",521,362,2)
    MouseClick("left",521,362,2)
   EndIf
   If $character=3 then
    MouseMove(704,374,0)
    MouseClick("left",704,374,2)
    MouseClick("left",704,374,2)
   EndIf
   sleep(800)
   If (PixelGetColor(789,231) = 16765009) then
    SoundPlay("C:\Windows\media\notify.wav")
    sleep(2200)
    MouseMove(791,710,0)
    MouseClick("left",791,710,2)
   else
    if (PixelGetColor(528,425) = 16710616) then
     MouseMove(513,423,0)
     MouseClick("left",513,423,1)
     sleep(2000)
    else
     MouseMove(996,712,0)
     MouseClick("left",996,712,1)
     sleep(3500)
     loginStart()    
    Endif
 
   Endif 
  Endif
 endif
EndFunc
Func Pause()
    $Paused = NOT $Paused
While  $Paused
        Sleep (400)
WEnd
EndFunc ; => Pause()

i just wanted to give it a better look

(this works when i have this file=having problems adding attachment)

Edited by Cosmo

Share this post


Link to post
Share on other sites

you dont need to finish it, i´m trying the same and can tell you that Send() and ControlSend() wont work in SRO because GameGuard....

This is not necessarily true. You can run it if you run the latest Zoomhack on 0x33.org , and you have to run silkroad.exe and have it click on the start button. Then it will work, I know this is true because that's how I'm running my script right now.

Share this post


Link to post
Share on other sites

This is not necessarily true. You can run it if you run the latest Zoomhack on 0x33.org , and you have to run silkroad.exe and have it click on the start button. Then it will work, I know this is true because that's how I'm running my script right now.

wtf? really? i must try that =)


Share this post


Link to post
Share on other sites

I can post my script if you'd like. Though it's right now hard-coded for 1280x1024 desktop and 1024x768 ingame.

Share this post


Link to post
Share on other sites

I can post my script if you'd like. Though it's right now hard-coded for 1280x1024 desktop and 1024x768 ingame.

no thx, my script is already complete :wacko:

my problem was just that gameguard blocked it :D

for those one who will search for this i post some keywords again, i looked through many searchresult and found nothing that work so i hope ppl will find this thread :D

nprotect gameguard workaround send controlsend silkroad


Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

Send does work. I made a combo script, for my champion on my friends server, everyones liek, wow, how do you do so many combos? "Im quick :D

"

EDIT::

Opps, I thought you were talking about s-ro, ragnarok xD

Edited by AzKay

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

SilkRoad Online....

i am havig trouble adding the attachment

Edited by Cosmo

Share this post


Link to post
Share on other sites

SilkRoad Online....

i am havig trouble adding the attachment

Forget it on any autologin script for silkroad. They have added a new feature to the client when loggin in. After you give your user name and password it now displays a dyamic word which you need to type in and hit confirm.

Not unless you have some type of OCR function to read the screen and then enter this word pass your attempt at auto login for silk is a waste of time.

Share this post


Link to post
Share on other sites

Only thing missing is the auto it dynamic image scanner, if i want to start a image scanner script , that scanns the dynamic image of sro

i tryed this if i dont know if it will or nt am i doing something wrong?

[ $# -lt 1 ]; then
    echo "Usage: $0 <imagefile>"
    exit 1
fi

PNMTOTIFF=/usr/bin/pnmtotiff
IMAGE_FILE=$1
TIFF_FILE=${IMAGE_FILE%.*}.tif

echo "scanscript.sh"
echo "Image is ${SCAN_WIDTH}x${SCAN_HEIGHT} pixels at ${SCAN_RES}DPI"

echo -n "Converting image..."
$PNMTOTIFF -g4  "$IMAGE_FILE" > "$TIFF_FILE"
status=$?
echo "Status = ${status}"

try it but i get error.

Posted Image


[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
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
Sign in to follow this  
Followers 0