Hallo,
folgendes Script läuft unter XP 32Bit, Vista 32Bit und Vista 64Bit unter Windows 7 64Bit leider nicht.
Hat jemand eine Lösung dafür?
Spoiler anzeigen
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
__Login()
Exit
Func __Login()
$objHTTP = ObjCreate ("winhttp.winhttprequest.5.1")
$objHTTP.open ("POST", "https://www.save.tv/STV/M/Index.cfm?sk=PREMIUM", False)
$objHTTP.SetRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
$objHTTP.Send("sUsername=username&" & "sPassword=password")
$cookie = $objHTTP.GetResponseHeader("Set-Cookie")
$objHTTP = 0
EndFunc
Func MyErrFunc()
Msgbox(0, "AutoItCOM Test", "Ein COM-Fehler ist aufgetreten !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & hex($oMyError.number,8) & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext _
, 5 _
)
Local $err = $oMyError.number
If $err = 0 Then $err = -1
$g_eventerror = $err ; to check for after this function returns
Endfunc
Bekomme die Fehlermaledung:
Der Vorgang wurde abgebrochen
WinHttp.WinHttp.Request
errno 80020009
Ja, ich bekomme die Meldung auch mit gültigem Username und Password
Gruß Paule
Edit: Korrigiert sPassword statt Password