Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
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