bau einer kleinen autologin.exe

#include <IE.au3>

$Url = 'http://www.darkorbit.bigpoint.com/'
$User = 'User'
$Pwd = 'pasword'


$test = _IEAutoLogin($Url, $User, $Pwd)

Func _IEAutoLogin($sUrl, $sUsername, $sPwd)
;funkey 09.09.09
$oIE = _IECreate($sUrl)
_IEErrorNotify(False)
_IEErrorHandlerRegister()
$oForms = _IEFormGetCollection($oIE)
If @error Then
  Return SetError(1, _IEErrorHandlerDeRegister(), $oIE) ;'no forms --> no login'
Else
  $Index = 0
  For $oForm In $oForms
   $oFormElements = _IEFormElementGetCollection($oForm)
   If IsObj($oFormElements) Then
    $IndexElement = 0
    For $oElement In $oFormElements
     If $oElement.Type = 'password' Then
      $oPwd = _IEFormElementGetObjByName($oForm, $oElement.Name)
      _IEFormElementSetValue($oPwd, $sPwd)
      For $i = $IndexElement - 1 To 0 Step -1
       $oUser = _IEFormElementGetCollection($oForm, $i)
       If $oUser.Type = 'text' Then
        _IEFormElementSetValue($oUser, $sUsername)
        ExitLoop
       EndIf
      Next
      If $oForm.action <> "0" And Not StringInStr($oForm.action, '.php') Then  ;submit
       _IEFormSubmit($oForm, 0)
       _IELoadWait($oIE)
      Else  ;click
       For $i = $IndexElement + 1 To $IndexElement + 10 ;check the next 10 elements
        $oButton = _IEFormElementGetCollection($oForm, $i)
        If $oButton.Type = 'submit' Then
         _IEAction($oButton, "click")
         ExitLoop
        EndIf
       Next
      EndIf
      Return SetExtended(_IEErrorHandlerDeRegister(), $oIE)
     EndIf
     $IndexElement += 1
    Next
   EndIf
   $Index += 1
  Next
EndIf
Return SetError(2, _IEErrorHandlerDeRegister(), $oIE) ;no password-field found
EndFunc   ;==>_IEAutoLogin

#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")
			TrayTip("", "Connecting", 10)
			$hConnect = _WinHttpConnect($hSession, $login)
			TrayTip("", "Get Serverlist", 10)
			$sHtml = _WinHttpSimpleRequest($hConnect, "GET", "")
			$sHtml = _WinHttpSimpleRequest($hConnect, "POST", "?locale=de&aid=2997&aip=", $login, $logined)

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

Func decode($string)
	$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