PureBasic Forums - English

Code: Select all

result=InitNetwork()
Debug result
If result
  ; these are the fields being posted for the system to call back the data
  ; not sure if these codes are still valid for getting data
  apiUSERID.s="2196844"
  apiUSERKEY.s="Xm1GcG9eVCbNoZXZApZe1Vs9FZf2qHrNpcRYOr34X4i7uEcyVc9htLeWUqvyZyem"
  
  ; web page to post to
  hostpgm$="http://api.eve-online.com/account/Characters.xml.aspx?"
  hostdata$="userID="+apiUSERID+"&apiKey="+apiUSERKEY
  lenhostdata=Len(hostdata$)
  lenhd$=Str(lenhostdata)

  hostconnectionstring$=hostpgm$+hostdata$
  Debug hostconnectionstring$
  ConnectionID = OpenNetworkConnection("api.eve-online.com", 80)
  Debug ConnectionID
  If ConnectionID
  
  ; proper format
  com$="POST "+hostconnectionstring$+" HTTP/1.1"+Chr(13)+Chr(10)
  com$=com$+"Accept: */*"+Chr(13)+Chr(10)
  com$=com$+"Accept: text/html"+Chr(13)+Chr(10)
  com$=com$+"Host: "+"api.eve-online.com"+Chr(13)+Chr(10)
  com$=com$+"User-Agent: Skill Parser"+Chr(13)+Chr(10)
  com$=com$+"Content-Length: " + lenhd$ + Chr(13) + Chr(10)
  com$=com$+Chr(13)+Chr(10)
  
  ; open the network
  Res = SendNetworkData(ConnectionID,@com$,Len(com$)) 
  ; POST the request
  Res = SendNetworkData(ConnectionID,@hostconnectionstring$,Len(hostconnectionstring$)) 

      Repeat
      Delay(100)
      Result = NetworkClientEvent(ConnectionID)
      Debug Result
      
      Select Result
 
      Case 2
        Content$ = Space(14500)
        ReceiveNetworkData(ConnectionID,@Content$,14500)
        Debug Content$
        Ok = 1
        CloseNetworkConnection(ConnectionID)
     EndSelect
 
    Until Ok = 1
  EndIf 
 Else
  MessageRequester("Error","NO TCP/IP Stack to call",#PB_MessageRequester_Ok)
EndIf

;write the response web-page to a txt file for processing by other program.
filnum=OpenFile(#PB_Any,"c:\test.txt")
If filnum
  WriteString(filnum,Content$)
EndIf
CloseFile(filnum)

Code: Select all

InitNetwork()

Connect = OpenNetworkConnection("88.191.63.41", 80)

If Connect
  two$ = "GET /index.php HTTP/1.1" + Chr(13) + Chr(10)
  two$ = two$ + "Host: www.purebasic.com" + Chr(13) + Chr(10)
  two$ = two$ + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1) Gecko/20090624 Firefox/3.5" + Chr(13) + Chr(10)
  two$ = two$ + "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" + Chr(13) + Chr(10)
  two$ = two$ + "Accept-Language: ru,en-us;q=0.7,en;q=0.3" + Chr(13) + Chr(10)
  two$ = two$ + "Accept-Encoding: gzip,deflate" + Chr(13) + Chr(10)
  two$ = two$ + "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" + Chr(13) + Chr(10)
  two$ = two$ + "Keep-Alive: 300" + Chr(13) + Chr(10)
  two$ = two$ + "Connection: keep-alive" + Chr(13) + Chr(10)
  two$ = two$ + Chr(13) + Chr(10)
  
  SendNetworkData(Connect, @two$, Len(two$))
  
  two$ = ""
  Debug ReceiveNetworkData(Connect, @two$, 5000)
  
  If CreateFile(0, "C:/2.txt")
    WriteString(0, two$)
  EndIf
Else
  End
EndIf

Code: Select all

Repeat
      Delay(100)
      Result = NetworkClientEvent(ConnectionID)
      Debug Result
     
      Select Result
 
      Case 2
        Content$ = Space(14500)
        ReceiveNetworkData(ConnectionID,@Content$,14500)
        Debug Content$
        Ok = 1
        CloseNetworkConnection(ConnectionID)
     EndSelect
 
Until Ok = 1