Im SVZ mit der Http-UDF anmelden (Hilfe)?

DeepRed92

Hallo,

ich bin gerade dabei, einen Script zu schreiben, das sich automatisch im SchülerVZ einloggenkann. Doch irgendwie will das nicht richtig funktionieren. Es wird immer Angezeigt, dass das Passwort falsch sei.

Hier mein Script:

Spoiler anzeigen

[autoit]

#include <WinAPI.au3>
#include <WinHTTP.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $hw_open = _WinHttpOpen("SVZ Poster")
Global $hw_connect = _WinHttpConnect($hw_open, "schuelervz.net")

[/autoit] [autoit][/autoit] [autoit]

Global Const $Token = _GetFormKey()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Return = _Einloggen("Username", "Passwort")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Einloggen($username, $pw)
Global $h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", "/sessions", "HTTP/1.1", "https://secure.schuelervz.net/Login")

[/autoit] [autoit][/autoit] [autoit]

$sPost = "email=" & _URIEncode($username) & "&password=" & _URIEncode($pw) & "&login=Einloggen&jsEnabled=true&formkey=" & $Token[0] & "&iv=" & $Token[1]

[/autoit] [autoit][/autoit] [autoit]

_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error

[/autoit] [autoit][/autoit] [autoit]

If StringInStr($data, "Falsche E-Mail-Adresse oder falsches Passwort!") Or _
StringInStr($data, "Triff deine Freunde aus der Schule!") Then

[/autoit] [autoit][/autoit] [autoit]

MsgBox(16, " Falsches Passwort ", "Das von ihnen eingegebene Passwort ist falsch")
Else
MsgBox(0, "", "Eingeloggt")
$Eingelogt = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($h_openRequest)
EndFunc ;==>_Einloggen

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _URIEncode($sData)
; Author: Prog@ndy
Local $aData = StringSplit(BinaryToString(StringToBinary($sData, 4), 1), "")
Local $nChar
$sData = ""
For $i = 1 To $aData[0]
;~ ConsoleWrite($aData[$i] & @CRLF)
$nChar = Asc($aData[$i])
Switch $nChar
Case 45, 46, 48 - 57, 65 To 90, 95, 97 To 122, 126
$sData &= $aData[$i]
Case 32
$sData &= "+"
Case Else
$sData &= "%" & Hex($nChar, 2)
EndSwitch
Next
Return $sData
EndFunc ;==>_URIEncode

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _GetFormKey()
Global $h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", "/", "HTTP/1.1", "http://twitter.com/")
Local $j_array[2]
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
_WinHttpCloseHandle($h_openRequest)
$result1 = StringRegExp($data, '<[^>]*?name="formkey"[^>]*?value="(.*?)"', 1)
$result2 = StringRegExp($data, '<[^>]*?name="iv"[^>]*?value="(.*?)"', 1)
$j_array[0] = $result1[0]
$j_array[1] = $result2[0]
Return $j_array
EndFunc ;==>_GetFormKey

[/autoit]

und die Daten, die man dafür braucht:

Spoiler anzeigen

Code

https://secure.schuelervz.net/Login


POST /Login HTTP/1.1
Host: secure.schuelervz.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://www.schuelervz.net/
Cookie: PHPSESSID=6aa6ffc517ab8b3a9b75ea6a9b32e207ce30c12d; logoutCheck=1
Content-Type: application/x-www-form-urlencoded
Content-Length: 327
email=HIERKOMMTDIEMAILADRESSEREIN&password=HIERKOMMTDASPWASSWORTREIN&login=Einloggen&jsEnabled=true&formkey=2a970684548226ec14f25a0cc3e379ad434c523bfe34c9fa77d590666817c9ccf09af1ba1a010d32a223db9d2c20e42236fac2fc47c7d77b3d73dd9e19521bd548f3d8f09d7ae0b2b592d126af601eba01aec287ed8382a01557c113d209c5af&iv=286bd842f9e2e4b9cfbf02c326a7613a
HTTP/1.x 302 Found
Server: nginx
Date: Sun, 30 Aug 2009 08:02:21 GMT
Content-Type: text/html; charset=utf-8
Transfer-Encoding: chunked
Connection: close
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Set-Cookie: PHPSESSID=34476c36f45d7d35f78b3078b41fce4768af7429; path=/; domain=.schuelervz.net; HttpOnly
Set-Cookie: logoutCheck=1
Location: http://www.schuelervz.net/Start
Content-Encoding: gzip
Vary: Accept-Encoding

Alles anzeigen

Spoiler anzeigen

Code

http://www.schuelervz.net/Start


GET /Start HTTP/1.1
Host: www.schuelervz.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://www.schuelervz.net/
Cookie: Storage=%7B%22SuperSearch%22%3A%22%22%7D; POPUPCHECK=1251708664379; PHPSESSID=34476c36f45d7d35f78b3078b41fce4768af7429; SessionStorage=%7B%22TabGuid%22%3A%7B%22guid%22%3A1251696721046%7D%2C%22SessionActivity%22%3A%7B%22time%22%3A1251696573569%7D%7D


HTTP/1.x 200 OK
Server: nginx
Date: Sun, 30 Aug 2009 08:02:21 GMT
Content-Type: text/html; charset=utf-8
Transfer-Encoding: chunked
Connection: close
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Set-Cookie: SessionStorage=%7B%22TabGuid%22%3A%7B%22guid%22%3A1251696721046%7D%2C%22SessionActivity%22%3A%7B%22time%22%3A1251696573569%7D%7D
Content-Encoding: gzip
Vary: Accept-Encoding

Alles anzeigen

Und das alles nochmal als Anhang:

**BugFix**

Welchen Zweck soll diese Form der Anmeldung haben? Du bist dann nicht auf Browserebene im SVZ und müßtest, um Inhalte lesen zu können, diese Auslesen und auf deinen PC kopieren. Dieses jedoch, ist dir laut AGB untersagt.

Edit: Hier der Ausschnitt aus den AGB

Zitat

5.4.3
Inhalte anderer Nutzer im schülerVZ darfst du nicht auslesen (z.B. durch ein Programm oder durch bloßes Kopieren), um sie außerhalb der Plattform zu nutzen.

Lenny

Ich habe vor einigen Tagen in einem Blog gelesen, dass SchülerVZ bald eine öffentlich zugängliche API bekommt!

bG, lenny

DeepRed92

BugFix ich hab nicht vor die Daten anderer User zu klauen. Es ging mir dabei nur darum, meinen Statustext ganz einfach zu verändern. Weiß den keiner eine ganz genaue Lösung, bzw was ich falsch gemacht habe?

McPoldy

Was blöde, um sich da anzumelden, braucht man eine Einladung oder man bekommt die Meldung "Schummeln gilt nicht". Da will man mal helfen und kann nicht Pech.

DeepRed92

Also nochmal. Ich bin da schon angemeldet! Ich möchte mich da nu einloggen und das per Http-UDF, um den Statustext zu ändern.

Edit: Hab den Fehler im ersten Post von anmelden auf einloggen geändert. Sry war mein Fehler .

McPoldy

Zitat von Deepred

Also nochmal. Ich bin da schon angemeldet! Ich möchte mich da nu einloggen und das per Http-UDF, um den Statustext zu ändern.

Edit: Hab den Fehler im ersten Post von anmelden auf einloggen geändert. Sry war mein Fehler .

Ne, ich wollte mich da schnell mal anmelden um zu sehen, wie es geht den Statustext zu ändern, aber da kommt man ja nur mit Einladung rein und mit 32 bin ich wohl zu alt um als Schüler durch zu gehen

Greek

Da stimmt irgendwas mit dem Token nicht, bei meinem Twitter Chat hat einer gepostet das man damit bei Schülervz den Buschfunk benutzen kann.

Ich komm noch nicht mal mit meinem orginal Token mit deinem Script rein, habs mir schnell selbst gemacht:

Spoiler anzeigen

[autoit]

#include <WinHTTP.au3>

[/autoit] [autoit][/autoit] [autoit]

$username="sagichnicht@web.de"
$pw=FileRead( "hide.txt" )

[/autoit] [autoit][/autoit] [autoit]

; Einloggen
$post="email="&_URIEncode($username)&"&password="&_URIEncode($pw)&"&login=Einloggen&jsEnabled=true&formkey=a5418f438de118815150960de43568945fc4756baf8bfa621faa506823a6da4e13032e5374765951630bb5b2309d2126b2d5fd0c7dc3f3f20e893f90d74d80ab3d1e9b216d7499c081dd53682569fe170c5a0ad5d82d95abd102401ec826b64d&iv=4690dfc615be3811e637a8f5f46528f0"
$hw_open = _WinHttpOpen("Einloggen")
$hw_connect = _WinHttpConnect($hw_open,"www.schuelervz.net" )
$h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", "/Login", "HTTP/1.1", "http://www.schuelervz.net/" )
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $post)
_WinHttpReceiveResponse($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

If _WinHttpQueryDataAvailable($h_openRequest) Then
$header = _WinHttpQueryHeaders($h_openRequest)
MsgBox(0, "Header", $header)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $data=""
Do
$data&=_WinHttpReadData($h_openRequest)
Until @error
FileWrite ("body.html", $data)

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($h_openRequest)
_WinHttpCloseHandle($hw_connect)
_WinHttpCloseHandle($hw_open)

[/autoit] [autoit][/autoit] [autoit]

Func _URIEncode($sData)
; Author: Prog@ndy
Local $aData = StringSplit(BinaryToString(StringToBinary($sData, 4), 1), "")
Local $nChar
$sData = ""
For $i = 1 To $aData[0]
;~ ConsoleWrite($aData[$i] & @CRLF)
$nChar = Asc($aData[$i])
Switch $nChar
Case 45, 46, 48 - 57, 65 To 90, 95, 97 To 122, 126
$sData &= $aData[$i]
Case 32
$sData &= "+"
Case Else
$sData &= "%" & Hex($nChar, 2)
EndSwitch
Next
Return $sData
EndFunc ;==>_URIEncode

[/autoit] [autoit][/autoit] [autoit]

Func _GetFormKey()
Global $h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", "/", "HTTP/1.1", "http://twitter.com/")
Local $j_array[2]
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
_WinHttpCloseHandle($h_openRequest)
$result1 = StringRegExp($data, '<[^>]*?name="formkey"[^>]*?value="(.*?)"', 1)
$result2 = StringRegExp($data, '<[^>]*?name="iv"[^>]*?value="(.*?)"', 1)
$j_array[0] = $result1[0]
$j_array[1] = $result2[0]
Return $j_array
EndFunc ;==>_GetFormKey

[/autoit]

Damit bin ich angemeldet, muss man halt noch den Token holen, hab deine Funktion dafür mal ausprobiert, hat aber nicht geklappt, ich schau morgen mal nach dem Token, ist jetzt schon zu spät.

Greek

So bin fertig, probiers mal aus Funktioniert bei mir:

Spoiler anzeigen

[autoit]

#include <WinHTTP.au3>

[/autoit] [autoit][/autoit] [autoit]

$username="geheim@web.de" ; ausfüllen
$pw=FileRead( "hide.txt" ) ; ausfüllen

[/autoit] [autoit][/autoit] [autoit]

Global $hw_open = _WinHttpOpen("Einloggen")
Global $hw_connect = _WinHttpConnect($hw_open, "www.schuelervz.net")

[/autoit] [autoit][/autoit] [autoit]

Global Const $Token = _GetToken()

[/autoit] [autoit][/autoit] [autoit]

; Einloggen
$post="email="&$username&"&password="&$pw&"&login=Einloggen&jsEnabled=true&formkey="&$Token[0]&"&iv="&$Token[1]
MsgBox(0,"",$post)
$h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", "/Login", "HTTP/1.1", "http://www.schuelervz.net/" )
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $post)
_WinHttpReceiveResponse($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

If _WinHttpQueryDataAvailable($h_openRequest) Then
$header = _WinHttpQueryHeaders($h_openRequest)
MsgBox(0, "Header", $header)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $data=""
Do
$data&=_WinHttpReadData($h_openRequest)
Until @error
FileWrite ("body.html", $data)

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($h_openRequest)
_WinHttpCloseHandle($hw_connect)
_WinHttpCloseHandle($hw_open)

[/autoit] [autoit][/autoit] [autoit]

Func _GetToken()
;Greek
Local $h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", "/Login", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
$formkey = StringRegExp($data, '<input type="hidden" name="formkey" value="(.*?)" />', 1)
$ivkey = StringRegExp($data, '<input type="hidden" name="iv" value="(.*?)" />', 1)

[/autoit] [autoit][/autoit] [autoit]

Dim $result[2]
$result[0] = $formkey[0]
$result[1] = $ivkey[0]

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

Return $result
EndFunc ;==>_GetToken

[/autoit]

DeepRed92

Also erstmal viiiiiiiiielen Dank für eure (besonders für Greeks) Hilfe.Bi mir funktioniert das jetzt endlich auch
Eine Frage hätte ich da noch. Wie kann ich mich noch ausloggen?

Vieleeen Dank

Greek

Da brauchste auch schon wieder nen Token dafür

Code

http://www.schuelervz.net/Logout/17ca866710853e9739a41ddd9e08b03a/tid/127

Den findest du wahrscheinlich im Quelltext wenn du eingeloggt bist, musst ihn wieder rausfiltern. Also musst nochmal eine Funktion _GetToken() schreiben nur für ausloggen.

DeepRed92

Guten Abend. Ich versuche gerade den Statustext per AutoIt zu verändern. Ich habe alles schon versucht doch irgendwie scheint es nicht zu klappen . Die Funktion, die nicht funktioniert heißt übrigens "_SVZ_Set_Status($Session, $Status)".

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Au3check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.0.0
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

;Credits: Progandy, Greek usw...

[/autoit] [autoit][/autoit] [autoit]

#include <WinHTTP.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$Init = _SVZ_Init()
$Text = _SVZ_Login($Init, "email", "pass")
;~ $visitors = _SVZ_Get_Visitors($Text)
;~ MsgBox(0, "", $visitors)

[/autoit] [autoit][/autoit] [autoit]

_SVZ_Set_Status($Init, "...")

[/autoit] [autoit][/autoit] [autoit]

_SVZ_Exit($Init)

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Init()
Local $Array[2]
$Array[0] = _WinHttpOpen("Einloggen")
$Array[1] = _WinHttpConnect($Array[0], "www.schuelervz.net")
Return $Array
EndFunc ;==>_SVZ_Init

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Login($Session, $i_username, $i_passwort)
Local $i_pw = _URIEncode($i_passwort)
Local $i_un = _URIEncode($i_username)
Global Const $Token = _GetToken($Init)
Global $post = "email=" & $i_un & "&password=" & $i_pw & "&login=Einloggen&jsEnabled=true&formkey=" & $Token[0] & "&iv=" & $Token[1]
Global $h_openRequest = _WinHttpOpenRequest($Session[1], "POST", "/Login", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $post)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
_WinHttpCloseHandle($h_openRequest)
Return $data
EndFunc ;==>_SVZ_Login

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Exit($Session)
_WinHttpCloseHandle($Session[0])
_WinHttpCloseHandle($Session[1])
EndFunc ;==>_SVZ_Exit

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Get_Visitors($i_Login)
$SBW = _StringBetween($i_Login, "Besucher (insgesamt): ", "</div>")
Return $SBW[0]
EndFunc ;==>_SVZ_Get_Visitors

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Set_Status($Session, $Status)

[/autoit] [autoit][/autoit] [autoit]

Local $BToken = _GetBuschfunkToken($Session)

[/autoit] [autoit][/autoit] [autoit]

$sPost = "text=" & _URIEncode($Status) & "&formkey=" & $BToken[0] & "&iv=" & $BToken[1]

[/autoit] [autoit][/autoit] [autoit]

Local $h_openRequest = _WinHttpOpenRequest($Session[1], "POST", "/Ajax", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, $sPost)
_WinHttpReceiveResponse($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_SVZ_Set_Status

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _GetBuschfunkToken($Session)
Local $h_openRequest = _WinHttpOpenRequest($Session[1], "GET", "/Ajax", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
$formkey = StringRegExp($data, '<input type="hidden" name="formkey" value="(.*?)" />', 1)
$ivkey = StringRegExp($data, '<input type="hidden" name="iv" value="(.*?)" />', 1)
Dim $result[2]
$result[0] = $formkey[0]
$result[1] = $ivkey[0]
_WinHttpCloseHandle($h_openRequest)
Return $result
EndFunc ;==>_GetBuschfunkToken

[/autoit] [autoit][/autoit] [autoit]

Func _GetToken($Session)
Local $h_openRequest = _WinHttpOpenRequest($Session[1], "GET", "/Login", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
$formkey = StringRegExp($data, '<input type="hidden" name="formkey" value="(.*?)" />', 1)
$ivkey = StringRegExp($data, '<input type="hidden" name="iv" value="(.*?)" />', 1)
Dim $result[2]
$result[0] = $formkey[0]
$result[1] = $ivkey[0]
_WinHttpCloseHandle($h_openRequest)
Return $result
EndFunc ;==>_GetToken

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _URIEncode($sData)
Local $aData = StringSplit(BinaryToString(StringToBinary($sData, 4), 1), "")
Local $nChar
$sData = ""
For $i = 1 To $aData[0]
$nChar = Asc($aData[$i])
Switch $nChar
Case 45, 46, 48 - 57, 65 To 90, 95, 97 To 122, 126
$sData &= $aData[$i]
Case 32
$sData &= "+"
Case Else
$sData &= "%" & Hex($nChar, 2)
EndSwitch
Next
Return $sData
EndFunc ;==>_URIEncode

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

DeepRed92

Weiß denn niemand, wie das richtig geht?

chrisatack

servus...

also ich habe das ganze mal bei wkw getestet...
vieleicht hilft dir der Code..

Spoiler anzeigen

[autoit]

#include <string.au3>

[/autoit] [autoit][/autoit] [autoit]

$SID = _wkw_login('mustermann%40web.de','passwort') ; Achtung @ = %40
$quelltext = _INetGetSourcePostCookie('http://www.wer-kennt-wen.de/people/online',' ',$SID) ; wenn du nicht Posten willst muss ein Leerzeichen drinne sein..
ConsoleWrite ( $quelltext[0]&@CRLF )
ClipPut ( $quelltext[1] )

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;#################################################################################
;
; _wkw_Login(BENUTZER,PASSWORT)
; Einloggen in WKW und cookie mit $SID speichern
;
;################################################################################
Func _wkw_login($_WKW_Name,$_WKW_PW)
$quelltext = _INetGetSourcePostCookie('http://www.wer-kennt-wen.de/logout/success/',' ','')
;~ ConsoleWrite ( $quelltext[0]&@CRLF )
$cookie = _StringBetween($quelltext[0],'Set-Cookie: ',';')
;~ ConsoleWrite ( $cookie[1]&@CRLF )
$quelltext = _INetGetSourcePostCookie('http://www.wer-kennt-wen.de/start.php','loginName='&$_WKW_Name&'&pass='&$_WKW_PW&'&logIn=1',$cookie[1] )
$cookie = _StringBetween($quelltext[0],'Set-Cookie: ',';')
$_SID = $cookie[1]
;~ ConsoleWrite ( $quelltext[0]&@CRLF
Return $_SID
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;#################################################################################
;
; _INetGetSourcePostCookie
; Funktion um eine Post Methode zu versenden und ein Cookie zu speichern/benutzen
;
;################################################################################
Func _INetGetSourcePostCookie($sURL, $sPost ,$cookie )
Local $iSocket, $sHeader, $sRecv, $iIP, $sHost, $aRegExp, $sHttp1,$iErr,$iSend,$aReturn[2]
If $sURL = '' Or $sPost = '' Then Return SetError(1, 0, 0)
If StringLeft($sURL, 7) <> 'http://' And StringLeft($sURL, <> 'https://' Then $sURL = "http://" & $sURL
$aRegExp = StringRegExp($sURL, "http?://(.*?)/", 3)
If @error Then Return SetError(2, 0, 0)
$sHost = $aRegExp[0]
If $sHost = '' Then Return SetError(3, 0, 0)
$sHttp1 = StringTrimLeft($sURL,StringInStr($sURL,"/",-1,3)-1)
If $sHttp1 = '' Then Return SetError(3, 0, 0)
$sHeader = "POST " & $sHttp1 & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.4) Gecko/2008111317 Ubuntu/8.04 (hardy) Firefox/3.0.4" & @CRLF & _
"Connection:close" & @CRLF & _
"Cookie:"& $cookie& @CRLF & _
"Content-type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost
TCPStartup() ;If not already done
$iIP = TCPNameToIP($sHost)
If $iIP = '' Or StringInStr($iIP, ".") = 0 Then Return SetError(4, 0, 0)
$iSocket = TCPConnect($iIP, 80)
If @error Or $iSocket < 0 Then Return SetError(5, 0, 0)
$iSend = TCPSend($iSocket, $sHeader)
If @error Or $iSend < 1 Then Return SetError(6, 0, 0)
While 1
$sRecv = TCPRecv($iSocket, 1024)
$iErr = @error
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($iSocket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
If $iErr Then Return SetError(7,0,0)
WEnd
$aReturn[0] = StringLeft($sRecv,StringInStr($sRecv,@CRLF&@CRLF)-1)
$aReturn[1] = StringTrimLeft($sRecv,StringLen($aReturn[0])+4)
Return $aReturn
EndFunc ;==>_INetGetSourcePost

[/autoit]

MFG chris