PureBoard

Code: Alles auswählen

Procedure do_post(Stop)
  Protected host.s,get_url.s,result.s,open_handle,connect_handle,request_handle,headers.s
  Protected post_data.s,post_data_len,send_handle,buffer.s,bytes_read.l,total_read.l
  
  result=""
  rs$="Überprüfe Status!"
  SetGadgetText(#str_Status,rs$)
  SetGadgetColor(#str_Status, #PB_Gadget_FrontColor, $000000)
  Debug "IM THREAD!"
   host.s = "xxx.xxx.com"
   get_url.s = "/index.html"
   result.s = ""
   open_handle = InternetOpen_("User Agent Info Goes Here",#INTERNET_OPEN_TYPE_DIRECT,"","",0)
   connect_handle = InternetConnect_(open_handle,host,#INTERNET_DEFAULT_HTTP_PORT,"","",#INTERNET_SERVICE_HTTP,0,0)
   request_handle = HttpOpenRequest_(connect_handle,"POST",get_url,"","",0,0,0)
   headers.s = "Content-Type: application/x-www-form-urlencoded" +Chr(13)+Chr(10)
   HttpAddRequestHeaders_(request_handle,headers,Len(headers), #HTTP_ADDREQ_FLAG_REPLACE | #HTTP_ADDREQ_FLAG_ADD)
   post_data.s = "Name=xxxx&Password=xxxx"
   post_data_len = Len(post_data)
   send_handle = HttpSendRequest_(request_handle,"",0,post_data,post_data_len)
   Buffer.s = Space(1024)
   bytes_read.l
   total_read.l
   total_read = 0
   
   Repeat
     InternetReadFile_(request_handle,@Buffer,1024,@bytes_read)
     result + Left(Buffer,bytes_read) + Chr(13)
     Buffer = Space(1024)
   Until bytes_read=0
   
   InternetCloseHandle_(open_handle)

Delay(stop)
EndProcedure

Code: Alles auswählen

procedure thread(dummy)
 while #true
 ; function
 wend 
endprocedure