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 :o
mfg Zonk
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 :o
Code:
#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