[Code Sharing][AutoIt]DarkOrbit Login

04/15/2013 17:03 Requi#1
Hey Folks,

I just want share with you a code, how to login easily and fast in DO, via AutoIt and WinHttp (Include download below)

Code:
#Region Includes
#include <WinHttp.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#EndRegion
#Region GUI
$form = GUICreate("DarkOrbit Login", 220, 202, 453, 228)
$name = GUICtrlCreateInput("", 80, 48, 121, 21)
$label1 = GUICtrlCreateLabel("Please Login here!", 32, 8, 153, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$label2 = GUICtrlCreateLabel("Name:", 16, 48, 35, 17)
$label3 = GUICtrlCreateLabel("Password:", 16, 88, 53, 17)
$pw = GUICtrlCreateInput("", 80, 88, 121, 21, BitOR($gui_ss_default_input, $es_password))
$serv = GUICtrlCreateInput("", 80, 120, 121, 21)
$login = GUICtrlCreateButton("LOGIN ^__^", 16, 152, 187, 41)
$label4 = GUICtrlCreateLabel("Server:", 16, 120, 38, 17)
GUISetState(@SW_SHOW)
#EndRegion
While 1
	$nmsg = GUIGetMsg()
	Switch $nmsg
		Case $gui_event_close
			Exit
		Case $login
			$login = GuiCtrlRead($serv) & ".darkorbit.bigpoint.com"
			$logined = "loginForm_default_username=" & decode(GuiCtrlRead($name)) & "&loginForm_default_password=" & decode(GUICtrlRead($pw)) & "&loginForm_default_login_submit=Login"
			TrayTip("", "Open Connection", 10)
			$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.2; WOW64; rv:17.0) Gecko/20100101 Firefox/17.0") ;<====Opens a connection
			TrayTip("", "Connecting", 10)
			$hConnect = _WinHttpConnect($hSession, $login) ;<===Connecting to DO
			TrayTip("", "Get Serverlist", 10)
			$sHtml = _WinHttpSimpleRequest($hConnect, "GET", "")
			$sHtml = _WinHttpSimpleRequest($hConnect, "POST", "?locale=de&aid=2997&aip=", $login, $logined) ;<===Start Login in DO

			$aString = _StringBetween($sHtml,'class="serverSelection_ini ini_active" target="http://' & GUICtrlRead($serv),'" onclick="InstanceSelection.clickedIni(this);"') ;<====Get the serverselection number, to login to the right server
			$aString = "http://" & GUICtrlRead($serv) & $aString[0]
			TrayTip("", "Loging in", 10)
			$sHtml = _WinHttpSimpleRequest($hConnect, "GET", $aString, $login);<===Login
			TrayTip("", "Get Startpage", 10)
			$sHtml = _WinHttpSimpleRequest($hConnect, "GET", "indexInternal.es?action=internalStart", $login, "indexInternal.es?action=internalStart");<===Logined :)
	EndSwitch
WEnd

Func decode($string) ;<====Decode the name, to use Specialcharacters like ♥
	$decoded = ""
	$temp = StringToBinary($string,4)
	$temp = StringTrimLeft($temp,2)
	for $i = 1 to StringLen($temp) Step 2
		$decoded = $decoded & "%" & StringMid($temp,$i,2)
	Next
	Return $decoded
EndFunc
I hope, you can make something with it. Maybe I'll release a Login in VB, via HttpWebRequest ;)

See ya,
...........
...................__
............./´¯/'...'/´¯¯`·¸
........../'/.../..../......./¨¯\
........('(...´...´.... ¯~/'...')
.........\.................'...../
..........''...\.......... _.·´
............\..............(
BROFIST ...........
04/15/2013 17:08 blauemauritius#2
nice, thx for sharing :)
04/15/2013 19:37 Dr.Toni#3
Don't release it in VB :)

Because you can do much more things with VB and maybe BP will change the Login :p
04/15/2013 19:49 hello..#4
Quote:
Originally Posted by Dг.Tσпi™ View Post
Don't release it in VB :)

Because you can do much more things with VB and maybe BP will change the Login :p
Then you change your Login logic and it works again :D
04/15/2013 20:09 Dr.Toni#5
It's right... But I'm to lazy to do that :D

Like I said...

Please don't do it! :D
04/15/2013 20:25 manulaiko#6
I think you should explain the code, not everyone know programming, if you know at least one, it´s easy to understand but... not everyone know programming
04/15/2013 20:28 'Heaven.#7
Well, it doesnt make sence only to give epvp the login... i think its useless

It will be useful if you do more, explain how to do something by yourown andsoon
04/15/2013 20:46 NoCheatImPGM#8
Thank you but PLEASE like Dr.Toni have said don't release it in vb.
PLEASE :P
04/15/2013 20:52 Roberto2525#9
Don't work for me :(
04/15/2013 21:01 Dr.Toni#10
Just copy and paste won't help you! You have to understand what are you doing :)
04/15/2013 21:08 Roberto2525#11
Quote:
Originally Posted by Dг.Tσпi™ View Post
Just copy and paste won't help you! You have to understand what are you doing :)
I copied and pasted the code in autoit but I get this error:
Code:
Line 2 (File "C:\User\******\Desktio\file.au3")

#include <WinHttp.au3>

Error: Error opening the file.
I tryed to delete the line 2 but i receve another error when press login:

Code:
Line 31 (File "C:\User\*******\Desktop\file.au3")

$gSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.2; WOW64;rv:17.0) Gecko/20100101 Firefox/17.0
$hSession = ^ ERROR

Error: Unknown function name.
Help :(
04/15/2013 21:40 Roberto2525#12
Quote:
Originally Posted by Requι View Post
Download WinHttp.rar from Attachment and unpack it to your Includes Folder of AutoIt
I don't find the attachments..
04/15/2013 21:44 YerAWizard#13
Quote:
Originally Posted by Roberto2525 View Post
I don't find the attachments..
You can find winhttp.au3 here [Only registered and activated users can see links. Click Here To Register...]
04/15/2013 22:51 -yusuf000-#14
what is this ?
04/16/2013 13:15 Dr.Toni#15
Reading is hard...
It's an autoit login source..