I have the idea and i have codet the login in autoit:
Code:
#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
local $config, $conf
local $userdat, $user
local $passdat, $pass
local $weltdat, $welt
If FileExists("konfiguriert.txt") Then
$config = FileOpen("konfiguriert.txt")
If FileReadLine($config) == "true" Then
$userdat = FileOpen("username.txt")
$user = FileReadLine($userdat)
$passdat = FileOpen("passwort.txt")
$pass = FileReadLine($passdat)
$weltdat = FileOpen("weltkuerzel.txt")
$welt = FileReadLine($weltdat)
FileClose($config)
EndIf
Else
_FileCreate("username.txt")
_FileCreate("passwort.txt")
_FileCreate("weltkuerzel.txt")
_FileCreate("konfiguriert.txt")
FileSetAttrib("*.txt", "+H")
$inputuser = InputBox( "Login Username", "Bitte gib deinen Username ein:")
$inputpass = InputBox( "Login Passwort", "Bitte gib dein Passwort ein:")
$inputwelt = InputBox( "Login Welt", "Bitte gib den Weltkürzel deiner Welt ein:")
$userdat = FileOpen("username.txt", 1)
$user = FileWriteLine($userdat, $inputuser)
$passdat = FileOpen("passwort.txt", 1)
$pass = FileWriteLine($passdat, $inputpass)
$weltdat = FileOpen("weltkuerzel.txt", 1)
$welt = FileWriteLine($weltdat, $inputwelt)
$config = FileOpen("konfiguriert.txt",1)
$conf = FileWriteLine($config, "true")
FileClose($config)
EndIf
$Url = 'http://www.darkorbit.com/'
$User = $user
$Pwd = $pass
$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
Opt("WinTitleMatchMode",4)
$Titel = WinGetTitle("active")
WinSetState($Titel,"",@SW_MAXIMIZE)
MsgBox (0, "Login", "Bitte Welt auswählen!")
WinWaitActive("Darkorbit | Das Browsergames Adventure für Action im Hyperspace. - Windows Internet Explorer")
$urlbrowser = _IEPropertyGet( $Titel, "locationurl")
While True
If $urlbrowser = "http://"$welt".darkorbit.bigpoint.com/indexInternal.es?action=internalStart" Then ;==> here is a error but it will fixed
Exit
EndIf
WEnd
$game = _IECreate("http://"$welt".darkorbit.bigpoint.com/indexInternal.es?action=internalMapRevolution")
I work on my own project , I don't have time for "free project's"