PureBoard

Code: Alles auswählen

Procedure.s DownloadToString(URL$, TimeOut=5000)
 Protected Event, Time, Size, String$
 Protected BufferSize = $1000
 Protected *Buffer = AllocateMemory(BufferSize)
 Protected ServerName$ = GetURLPart(URL$, #PB_URL_Site) 
 Protected ConnectionID = OpenNetworkConnection(ServerName$, 80) 
 If ConnectionID 
  SendNetworkString(ConnectionID, "GET "+URL$+" HTTP/1.0"+#LFCR$+#LFCR$) 
  Time = ElapsedMilliseconds()
  Repeat 
   Delay(10)
   Event = NetworkClientEvent(ConnectionID)
  Until Event Or ElapsedMilliseconds()-Time > TimeOut
  If Event
   Repeat
    Size = ReceiveNetworkData(ConnectionID, *Buffer, BufferSize) 
    String$ + PeekS(*Buffer, Size, #PB_Ascii) 
   Until Not Size
   Inhalt = FindString(String$, #LFCR$, 1)
   If Inhalt
    ProcedureReturn Mid(String$,Inhalt+3)
   Else
    ProcedureReturn String$
   EndIf
  EndIf
 EndIf 
EndProcedure

InitNetwork()

Debug DownloadToString("http://data.unionbytes.de/ip.php")

Code: Alles auswählen

EnableExplicit

Define sHeader.s, sMarker1.s, sMarker2.s, lIPPos.i, lIPLen.i

InitNetwork()

sHeader = GetHTTPHeader("http://checkip.dyndns.org")
; Debug sHeader
sMarker1 = "Current IP Address:"
sMarker2 = "<"

lIPPos = FindString(sHeader, sMarker1, 1) + Len(sMarker1)
lIPLen = FindString(sHeader, sMarker2, lIPPos) - lIPPos

Debug Mid(sHeader, lIPPos, lIPLen)

Code: Alles auswählen

URLDownloadToFile_(0,"http://guttgame.q-soft.ch/ip.php","C:\ip.txt",0,0)
If x=1
EndIf
OpenFile(0,"C:\ip.txt")
Debug ReadString(0)
CloseFile(0)
End

Code: Alles auswählen

URLDownloadToFile_(0,"http://guttgame.q-soft.ch/ip.php","C:\ip.txt",0,0)
If x=1
EndIf
OpenFile(0,"C:\ip.txt")
ip$=ReadString(0)
MessageRequester("IP-Adresse",ip$)
CloseFile(0)
End