Einloggen bei the-WEst.de

Ich wollt ein Skript schreib was sich bei der Website the-West.de automatisch einloggt:
Mein Code:

Func login($Benutzername, $Passwort ,$Welt)
	_IENavigate ($IE_Instanz, "http://www.the-west.de")

		$IE_Login_Form = _IEFormGetCollection($IE_Instanz, 0)
		$IE_Login_Name = _IEFormElementGetObjByName($IE_Login_Form, "name")
		_IEFormElementSetValue($IE_Login_Name, $Benutzername)
		$IE_Login_Password = _IEFormElementGetObjByName($IE_Login_Form, "password")

		_IEFormElementSetValue($IE_Login_Password, $Passwort)
		_IEFormSubmit ($IE_Login_Form)



	





EndFunc

wenn ich das ausüfhre kommt: "Sie haben kein Javascript aktiviert"

wenn ich aber das _IEFormSubmit ($IE_Login_Form) weglasse dann komm alles ganz normal
jetzt hab ich probiert den Button zum einloggen anzuklicken aber ich kann seine ID nich finden spric ihn auch nicht anklicken
und mien nächtes Problem ist kann ich ieformgetcollection iwie ausgeben und angucken

hab mal fix ne lösung gebastelt

#include <IE.au3>

Dim $sName = "bla", $sPW = "bla"

$IE_Instanz = _IECreate("about:blank", 0, 1, 1, 1)
$sFormAction = "http://www.the-west.de/index.php?ajax=check_login"
$sHeader = "Content-Type: application/x-www-form-urlencoded; charset=utf-8"
$sDataToPost = "json=%7B%22name%22%3A%22"&$sName&"%22%2C%22password%22%3A%22"&$sPW&"%22%7D"
$sLength = "Content-Length: "&StringLen($sDataToPost)
$oDataToPostBstr = __IEStringToBstr($sDataToPost)
$IE_Instanz.navigate2 ($sFormAction, "Default", "_self", $oDataToPostBstr , $sHeader&@CRLF&$sLength)

2te Frage:

$oForms = _IEFormGetCollection($IE_Instanz, 0)
If @Error Then MsgBox(0,"", @Error)
$sForm = ""
For $oForm In $oForms
$sElements &= $oForm.name&@CRLF
Next

MsgBox(0,"", $sElements)

iwie tut die erste Lösung nicht, statt eingelogt zu werden lande ich auf dieser Seite:

{"player_id":136**5,"password":"9e4a53112f3****61468313b496c2169aab88ebe","worlds":[1,3]}

und den Befehl __IEStringToBstr kennt mein AutoIt net

und beim 2. kommt bei mir nix

falls du Lust auf direktsupport hast: ICQ 291485119

beta runterladen, sind Betafunktionen der IE.au3

wo krieg ich die und wo muss ich die IE.au3 dann einfügen?

naja auf der autoitscript.com seite

aber du brauchst ja eigentlich nur diese Funtion.

Func __IEStringToBstr($s_string, $s_charSet = "us-ascii")
Local Const $adTypeBinary = 1, $adTypeText = 2
Local $o_Stream

$o_Stream = ObjCreate("ADODB.Stream")

$o_Stream.Type = $adTypeText
$o_Stream.CharSet = $s_charSet
$o_Stream.Open
$o_Stream.WriteText($s_string)
$o_Stream.Position = 0

$o_Stream.Type = $adTypeBinary
$o_Stream.Position = 0

Return $o_Stream.Read
EndFunc ;==>__IEStringToBstr