PureBasic

Code : Tout sélectionner

<input type="button" onclick="ipwajax('enabletorch')" value="Allumer la LED"/>

Code : Tout sélectionner

wget --post-data="username=nomutilisateur&password=motdepasse&exec_cgis=login_CGI" \
	http://$1/cgi-bin/login.exe \
	--save-cookies cookies.$1.txt >> /dev/null 2>/dev/null

Code : Tout sélectionner

#INTERNET_OPEN_TYPE_DIRECT = 1
#INTERNET_OPTION_RECEIVE_TIMEOUT=6
#INTERNET_OPTION_SEND_TIMEOUT=5
#INTERNET_SERVICE_HTTP = 3
#INTERNET_FLAG_RELOAD=$80000000
#HTTP_ADDREQ_FLAG_ADD = $20000000
#HTTP_ADDREQ_FLAG_REPLACE = $80000000
#HTTP_QUERY_RAW_HEADERS_CRLF=22

Procedure.s GetHttp(host.s, Port.l, url.s)
  Protected open_handle.i, connect_handle.i, request_handle.i
  Protected headers.s, headers1.s, headers2.s, HeaderReponse.s, LenHeader.l
  Protected bytes_read.l, dwTimeOut.l, Buffer.s, Result.s
  
  open_handle = InternetOpen_("User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.11 (KHTML, like Gecko) Chrome/23.0.1271.64 Safari/537.11", #INTERNET_OPEN_TYPE_DIRECT, "", "", 0)
  
  If open_handle
    connect_handle = InternetConnect_(open_handle, host, Port, "", "", #INTERNET_SERVICE_HTTP, 0, 0)
    
    If connect_handle
      request_handle = HttpOpenRequest_(connect_handle, "GET", url, "HTTP/1.1", "", 0, #INTERNET_FLAG_RELOAD ,0)
      
      If request_handle
        headers1.s = "Connection: keep-alive" + #CRLF$
        headers2.s = "X-Requested-With: XMLHttpRequest" + #CRLF$
        
        
        headers = headers1 + headers2
        
        
        If HttpAddRequestHeaders_(request_handle, headers, Len(headers), #HTTP_ADDREQ_FLAG_REPLACE | #HTTP_ADDREQ_FLAG_ADD) <> 0
          
          
          dwTimeOut.l=10*500
          InternetSetOption_(request_handle, #INTERNET_OPTION_RECEIVE_TIMEOUT, @dwTimeOut, SizeOf(dwTimeOut))
          
          InternetSetOption_(request_handle, #INTERNET_OPTION_SEND_TIMEOUT, @dwTimeOut, SizeOf(dwTimeOut))
          
          If HttpSendRequest_(request_handle, "", 0, 0, 0) <> 0
            
            HeaderReponse=Space(2048)
            LenHeader.l=2048
            
            If HttpQueryInfo_(request_handle, #HTTP_QUERY_RAW_HEADERS_CRLF, @HeaderReponse, @LenHeader, #Null) <> 0
              
              HeaderReponse = Trim(HeaderReponse)
              
              buffer = Space(1024)
              
              While  InternetReadFile_(request_handle, @buffer, 1024, @bytes_read) = 1
                
                If bytes_read=0
                  Break
                EndIf 
                
                result + Trim(PeekS(@buffer,bytes_read, #PB_Ascii))
                buffer = Space(1024)
                
              Wend 
              result = HeaderReponse + result
            EndIf 
          EndIf
        EndIf
        InternetCloseHandle_(request_handle)
      EndIf
      InternetCloseHandle_(connect_handle)
    EndIf
    InternetCloseHandle_(open_handle)
  EndIf
  
  ProcedureReturn result
EndProcedure

Debug GetHttp(adresse ip du téléphone", 8080, "/enabletorch")
Delay(2000)
Debug GetHttp(adresse ip du téléphone", 8080, "/disabletorch")

Code : Tout sélectionner

192.168.1.x:8080/enabletorch

Code : Tout sélectionner

Procedure.l ReadUrlFile(URL.s, OpenType.b=1, ProxyAndPort.s="")
  ;  OpenType
  ; 1 INTERNET_OPEN_TYPE_DIRECT (Resolves all host names locally.)
  ; 0 INTERNET_OPEN_TYPE_PRECONFIG (Retrieves the proxy Or direct configuration from the registry)
  ; 4 INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  (Retrieves the proxy Or direct configuration from the registry And prevents the use of a startup Microsoft JScript Or Internet Setup (INS) file.)
  ; 3 INTERNET_OPEN_TYPE_PROXY (Passes requests To the proxy unless a proxy bypass list is supplied And the name To be resolved bypasses the proxy. In this Case, the function uses INTERNET_OPEN_TYPE_DIRECT. )
 
  isLoop.b=1
  INET_RELOAD.l = $80000000
  hInet.l=0
  hURL.l=0
  Bytes.l=0
  
  
  taille_totale.l = 0
 
  hInet = InternetOpen_("", OpenType, ProxyAndPort, "", 0)
  hURL = InternetOpenUrl_(hInet, URL, #Null, 0, INET_RELOAD, 0)
  
  
  InternetCloseHandle_(hURL)
  InternetCloseHandle_(hInet)
  
  ProcedureReturn taille_totale
EndProcedure

ReadUrlFile("http://192.168.1.x:8080/enabletorch")

Delay(2000)

ReadUrlFile("http://192.168.1.x:8080/disabletorch")