kostenloser Webspace werbefrei: lima-city

Samsung 3010 Reconnect

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   lccserver

   

   lccserver hat kostenlosen Webspace.

   16:27, 20.2.2008

   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!!

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. g*c

   18:57, 25.3.2008

   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

   
   

4. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?