Hallo com,
ich bräuchte ein Script , welches sich an einem Webserver anmeldet und dann den Seitenquelltext ausgibt.
Das mit dem Seitenquelltext habe ich schon hinbekommen, nur die automatische Anmeldung funzt nicht.
Habe erst Inetget benutzt , nur leider funzt auch da die Anmeldung nicht. ("http://myuser:mypassword@https://autoit.de/www.somesite.com")
Hier mein Script:
Spoiler anzeigen
#include <WinHttp.au3>
#include <String.au3>
MsgBox(0,"",_holeZaehlerstaende("xx.xx.xx.xx")) ; IP-Adresse eintragen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _holeZaehlerstaende($ip=0)
$data = _download($ip,"Public User@http://" & $ip & "/index.html")
$gesamt1 = _StringBetween($data,'Gesamtseiten','</tr>')
$gesamt2 = _StringBetween($gesamt1[0],'"Total">','</td>')
Return $gesamt2[0]
EndFunc
func _download($ip,$site)
Local $hw_connect, $hw_open, $h_openRequest, $data
$hw_open = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10 GTB7.1")
$hw_connect = _WinHttpConnect($hw_open, $ip)
$h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", "/"&$site, "HTTP/1.1")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ''
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
Return $data
EndFunc
In der Funktion "_download" müsste man also i-wie die Anmeldung realisieren.
