PureBoard

Code: Alles auswählen

InitNetwork() 

ConnectionID = OpenNetworkConnection("table.finance.yahoo.com", 80) 

If ConnectionID 
  com$="GET http://table.finance.yahoo.com/table.csv?s=IBM&g=d 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: "+host$+Chr(13)+Chr(10) 
  com$=com$+"User-Agent: Yahoo CVS Parser"+Chr(13)+Chr(10) 
  com$=com$+Chr(13)+Chr(10) 
  Res = SendNetworkData(ConnectionID,@com$,Len(com$)) 

    Repeat 
    Delay(10) 
    Result = NetworkClientEvent(ConnectionID) 
  
    Select Result 
  
    Case 2 
      Content$ = Space(14500) 
      ReceiveNetworkData(ConnectionID,@Content$,14500) 
      Ok = 1 
      MessageRequester("Done!","Your Data" + Chr(13) + Chr(10) + Content$,0) 
      CloseNetworkConnection(ConnectionID) 
    EndSelect 
    
    Until Ok = 1 
EndIf 

Code: Alles auswählen

InitNetwork()

ConnectionID = OpenNetworkConnection("table.finance.yahoo.com", 80)

If ConnectionID
	com$="GET http://table.finance.yahoo.com/table.csv?s=IBM&g=d 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: "+host$+Chr(13)+Chr(10)
	com$=com$+"User-Agent: Yahoo CVS Parser"+Chr(13)+Chr(10)
	com$=com$+Chr(13)+Chr(10)
	Res = SendNetworkData(ConnectionID,@com$,Len(com$))
	
	Repeat
		Delay(10)
		Result = NetworkClientEvent(ConnectionID)
		
		Select Result
				
			Case 2
				*ContentID = AllocateMemory(14500)
				If *ContentID
					ReceiveNetworkData(ConnectionID,*ContentID,14500)
					Ok = 1
					MessageRequester("Done!","Your Data" + PeekS(*ContentID, -1, #PB_Ascii), 0)
					FreeMemory(*ContentID)
				EndIf
		EndSelect
		
	Until Ok = 1
CloseNetworkConnection(ConnectionID)
EndIf