- Mitglied seit
- 21 Jan 2006
- Beiträge
- 1,305
- Punkte für Reaktionen
- 85
- Punkte
- 48
Hallo,
auch auf die Gefahr hin, dass es nicht ganz hingehört.
Der Login auf die Fritz!Box über vb.net bekomm ich nicht hin. Wenn ich den üblichen Link im Firefox eingebe:
Dann geschieht nichts.
Im Internet habe ich einen Code gefunden, der funktionieren soll.
Mit dem Programm WireShark habe ich schon herausgefunden, dass das POST rausgeht. Nur erhalte ich einen TImeout, wenn ich die Antwort der FB erwarte.
Hat jemand bereits den Login der FritzBox mit vb.net hinbekommen, und kann mir sagen was ich falsch mache?
Kruemel
auch auf die Gefahr hin, dass es nicht ganz hingehört.
Der Login auf die Fritz!Box über vb.net bekomm ich nicht hin. Wenn ich den üblichen Link im Firefox eingebe:
Code:
http://192.168.177.1/cgi-bin/webcm?getpage=../html/de/menus/menu2.html&login:command/password=pwd
Im Internet habe ich einen Code gefunden, der funktionieren soll.
Code:
Public Function write(ByVal Link As String, Optional ByVal data As String = "") As String
Dim uri As New Uri(Link)
If (uri.Scheme = uri.UriSchemeHttp) Then
Dim request As HttpWebRequest = CType(HttpWebRequest.Create(uri), HttpWebRequest)
request.Method = WebRequestMethods.Http.Post
request.Timeout = 5000
request.AllowWriteStreamBuffering = True
request.AllowAutoRedirect = True
request.AuthenticationLevel = Security.AuthenticationLevel.None
request.ContentLength = data.Length
request.ContentType = "application/x-www-form-urlencoded"
Dim wStream As IO.Stream = request.GetRequestStream
Dim writer As New IO.StreamWriter(wStream)
writer.Write(data)
writer.Close()
Dim response As HttpWebResponse
response = CType(request.GetResponse(), HttpWebResponse)
Dim reader As New IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.Unicode)
Dim tmp As String = reader.ReadToEnd()
reader.Close()
response.Close()
Return tmp
End If
End Function
Hat jemand bereits den Login der FritzBox mit vb.net hinbekommen, und kann mir sagen was ich falsch mache?
Kruemel