Samsung 3010 Reconnect
lima-city → Forum → Programmiersprachen → Basic
aktion
browser
code
datei
hilfe
leute
methode
post
problem
router
starten
steuerelement
string
url
verbinden
zeugs
zugreifen
zugriff
zusatz
-
Hi Leute,
ich habe ein Problem mit einem Router:
Ich möchte den Samsung 3010 neu verbinden, jedoch dauert mir das über die \'Website\' des Routers einfach zu lange. Also möchte ich, wie bei meinem SpeedPort 500V ein eigenes Reconnect-Script schreiben.
Wisst ihr, wie genau die Datei (-en) heißen, mit URL, usw., welche ich ausführen muss (z.B. mit einem WebBrowser-Steuerelement) um den Router (Samsung 3010 [Firmware: 2.02]) neu-zu-starten?
Vlt. heißen die, wie bei meinem SpeedPort:
-disconnect.exe
-conncet.exe
Vielen Dank für eure Hilfe!! -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Was meinst du jetzt genau?
Möchtest du den Router mir VB \"anbrowsen\" und dann auf ihn Zugreifen oder möchtest du ihn richtig \"fernsteuern\", ohne einen Zugriff wie mit dem Browser.
Ich wüsste eine Möglichkeit:
Hol dir den Paros Proxy (Google), mach den an und geb ihn under Proxies beim Browser an.
Nun reconnectest du deinen Router neu (über den Browser) und Paros Proxy loggt dabei mit.
Jetzt kannst du mithilfe von VB.NET diese Aktionen nachvollziehen z.B. so:
Bei einer Post-Methode:
Sub Post_Content(Uri As String, Referer As String, Accept As String, Content As String) Dim a As Net.HttpWebRequest = net.HttpWebRequest.Create(URI) a.Method = \"POST\" \'a.Headers.Add(Net.HttpRequestHeader.AcceptCharset, \'ADD) \'a.Headers.Add(net.HttpRequestHeader.AcceptLanguage, \'ADD) \'a.Headers.Add(net.HttpRequestHeader.KeepAlive, \"300\") \'a.Headers.Add(\"\") \'möglicher Zusatz-Content, kommmt drauf an was Paros Proxy sagt a.UserAgent = \'ADD a.Accept = Accept \'möglicherweise zu vernachlässigen a.Referer = Referer \'möglicherweise zu vernachlässigen a.KeepAlive = True \'möglicherweise zu vernachlässigen a.ContentType = \'ADD \'möglicherweise zu vernachlässigen a.AllowAutoRedirect = False \'möglicherweise zu vernachlässigen Dim zeugs As String = Content a.ContentLength = zeugs.Length Dim stream As IO.Stream = a.GetRequestStream() Dim writer As New IO.StreamWriter(stream) writer.Write(zeugs) writer.Close() Dim response As Net.HttpWebResponse = a.GetResponse() End Sub
Für GET-MEthode:
Function GET(uri As String, referer As String, accept As String) As String Dim a As Net.HttpWebRequest = net.HttpWebRequest.Create(uri) a.Method = \"GET\" a.Headers.Add(Net.HttpRequestHeader.AcceptCharset, \'ADD) a.Headers.Add(net.HttpRequestHeader.AcceptLanguage, \'ADD) a.Headers.Add(net.HttpRequestHeader.KeepAlive, \"300\") Dim ccontain As New Net.CookieContainer() a.Headers.Add(\"\")) \'ADD a.Accept = accept \'möglicherweise zu vernachlässigen a.Referer = referer \'möglicherweise zu vernachlässigen a.KeepAlive = True \'möglicherweise zu vernachlässigen Dim b As Net.HttpWebResponse = a.GetResponse() Dim s As IO.Stream = b.GetResponseStream Dim r As New IO.StreamReader(s) Dim z As String = r.ReadToEnd() b.Close() Return z End Function
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage