Router-Konfig.-Aufruf scheitert an Sicherheitsabfrage

[Falko]

Vielleicht mal über Telnet probieren. Ist zwar für Fritzbox,
aber die Speetports sind teiweise intern eine Fritzbox.

http://www.ip-phone-forum.de/showthread ... 569&page=2

[Deluxe0321]

Servus, habe mich hier an http://www.xup.in/dl,98328107/504.rar/ orientiert, ist ein Script um die IP des Routers zu ändern.

Bitte mal die ersten beiden Zeilen im Code anpassen und ausführen.

Code: Alles auswählen

Define CurlFile.s = "C:\Users\WSKeller\Desktop\curl_wlan\curl.exe" ;anpassen
Define Passwort.s = "xxxxxxx" ;passwort


Define NewList CurlDo.s()

Procedure CurlDo_Add(CMD.s)
  Shared CurlDo.s()
 
  If CMD.s
    If AddElement(CurlDo())
      CurlDo() = CMD.s 
    EndIf
  EndIf
 
EndProcedure


Procedure.s CurlDO_Invoke(CurlFile.s)
  Shared CurlDo.s()
  Protected PID.i
 
 
  If FileSize(CurlFile.s) > 0 And ListSize(CurlDo())
    ForEach CurlDo()
     
      PID.i = RunProgram(CurlFile.s,CurlDo(),GetPathPart(CurlFile.s),#PB_Program_Open | #PB_Program_Read)
      If PID.i
        While ProgramRunning(PID.i)
          If AvailableProgramOutput(PID.i)
            Debug ReadProgramString(PID.i) + Chr(13)
          Else
            Delay(1)
          EndIf
        Wend
        CloseProgram(PID.i)
      EndIf
     
    Next   
  EndIf
 
EndProcedure

OpenConsole()


;CurlDo_Add("-k https://speedport.ip/ -c cookie.txt")
CurlDo_Add("-k https://speedport.ip/cgi-bin/login.cgi --data "+#DQUOTE$+"pws="+Passwort.s+#DQUOTE$+" -c "+#DQUOTE$+"cookie.txt"+#DQUOTE$+"")
CurlDo_Add("-k https://speedport.ip/cgi-bin/wireless_ssid.cgi --data "+#DQUOTE$+"wlanEnable=1&wlanMode=9&powerLevel=3&channel=0&wlan_speed=1&T0_1=00&T0_2=00&T0_3=24&T0_4=00&T1_1=00&T1_2=00&T1_3=24&T1_4=00&T2_1=00&T2_2=00&T2_3=24&T2_4=00&T3_1=00&T3_2=00&T3_3=24&T3_4=00&T4_1=00&T4_2=00&T4_3=24&T4_4=00&T5_1=00&T5_2=00&T5_3=24&T5_4=00&T6_1=00&T6_2=00&T6_3=24&T6_4=00"+#DQUOTE$+" -c cookie.txt")

CurlDO_Invoke(CurlFile.s)

End

Grüße,
Deluxe0321

[Kiffi]

hier wäre noch mal ein Ansatz mit Ff und einem Macro-Plugin:

http://www.purebasic.fr/english/viewtop ... 54#p413154

Grüße ... Kiffi

[OlderCoder]

Danke!
Ich werde mich später mal wieder damit befassen.
Für das Thema hab ich nicht mehr so den richtigen Nerv.
Im Moment funktioniert mein Maus-Auto-Klick-Programm auch wieder, warum auch immer.
Ich wollte das vor ein paar Tagen hier posten, aber das Forum war nicht zu erreichen.
Aber vielen Dank nochmal für die Hilfe!!! (Kann man hier eigentlich keine Danke verteilen?)
Gruß
OlderCoder