[Code Sharing][AutoIt]DarkOrbit Login

[Requi]

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)

#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 ...........

[blauemauritius]

nice, thx for sharing

[Dr.Toni]

Don't release it in VB

Because you can do much more things with VB and maybe BP will change the Login

[hello..]

Originally Posted by Dг.Tσпi™

Don't release it in VB

Because you can do much more things with VB and maybe BP will change the Login

Then you change your Login logic and it works again

[Dr.Toni]

It's right... But I'm to lazy to do that

Like I said...

Please don't do it!

[manulaiko]

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

['Heaven.]

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

[NoCheatImPGM]

Thank you but PLEASE like Dr.Toni have said don't release it in vb.
PLEASE :P

[Roberto2525]

Don't work for me

[Dr.Toni]

Just copy and paste won't help you! You have to understand what are you doing

[Roberto2525]

Originally Posted by Dг.Tσпi™

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:

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:

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

[Roberto2525]

Originally Posted by Requι

Download WinHttp.rar from Attachment and unpack it to your Includes Folder of AutoIt

I don't find the attachments..

[YerAWizard]

Originally Posted by Roberto2525

I don't find the attachments..

You can find winhttp.au3 here

[-yusuf000-]

what is this ?

[Dr.Toni]

Reading is hard...
It's an autoit login source..