brauche hilfe

[Zonk02]

moin comm

bin dabei ein acc Manager für Darkorbit zu basteln,
er leuft nicht und ich weiss nicht was ich da falsch gemacht habe oder übershen habe. würde mich freuen wen ihr mihr helfen fürdet.
hir was ich habe

 Spoiler

#include <Forms\accManager.isf>
#include <accDaten.ini>
#include <WinHttp.au3>
#Include <GuiButton.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

Global $accManager = GUICreate("accManager",533,307,-1,-1,-1,-1)
GUICtrlCreateInput("username",20,20,150,20,-1,512)
GUICtrlCreateInput("password",20,60,150,20,32,512)
GUICtrlCreateInput("server",20,100,150,20,-1,512)
GUICtrlCreateButton("login",50,140,100,30,-1,-1)
GUICtrlCreateProgress(20,190,151,20,8388609,-1)
GUICtrlCreatelist("",200,20,303,188,-1,131584)
GUISetState(@SW_SHOW,$accManager)


While 1
	$nmsg = GUIGetMsg()
	Switch $nmsg
		Case $gui_event_close
			Exit
		Case $login
			$login = GUICtrlRead($serv) & ".darkorbit.bigpoint.com"
			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 D0;
			$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

mfg Zonk