Function network_Igetip() ; lese wieistmeineip.de in myip ein

Local webserver$ = "www.meineipadresse.de"
Local webpath$ = "meine_ip.php"
Local tmp_msg$
Local tcp

;Verbinde zur Webseite

   tcp = OpenTCPStream( webserver$, 80 )
   
   If Not tcp
      Return 1 ;-> connection fehlgeschlagen
   EndIf
            
   ;Lese Meine Internet IP
   WriteLine tcp, "GET http://" + webserver$ + "/" + webpath$ + " HTTP/1.0"
   WriteLine tcp, ""

   If Eof( tcp )
      Return 1 ;-> connection fehlgeschlagen
   Else
                           
      While Not Eof(tcp) ;lese nun das Vz aus

         tmp_msg$ = ReadLine$(tcp)
         ;DebugLog(tmp_msg$)
         
         t = Instr(tmp_msg$, "<B>", 1)
         If t > 0
            s = Instr(tmp_msg$, ";", t)
            e = Instr(tmp_msg$, "<", s)
            tmp_ip_dot$=Mid( tmp_msg$, s + 1, e - s -1 )
            
            Exit         
         EndIf

      Wend
                        
   EndIf

   CloseTCPStream tcp

   Return network_intip(tmp_ip_dot$)
   
End Function

Function network_intip(IP$)
   
   Local c, s, e

   While s < StringWidth(IP$) / fontw
      s = e
      If Instr(IP$,".",s+1) > 0 Then e = Instr(IP$,".",s+1)
      If s >= e Then Exit
      c = c + 1
   Wend

   If Not c = 3 Then Return -1

     a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
     a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
     a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
     a4=Int(IP$)
     Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function

Dim HTML_Line$( 1024 ) ;Array für HTML Lines einrichten... 1025 Felder müssten reichen?

Website$ = "www.google.de"
Port = 80
;Verbinden
Stream = OpenTCPStream( Website$, Port )
If Stream = 0 Then RuntimeError"Konnte nicht zur Website verbinden!"

;Anfrage senden
WriteLine Stream, "GET "+ RequestedFile$ +" HTML/1.0"
WriteLine Stream, "Host: "+ Website$
WriteLine Stream, ""

;Auf Antwort warten
Repeat
Until ReadLine( Stream ) <> ""

;Bis zur Leer-Zeile auslesen (alles andere sind nur Browser Informationen, also gehört nur indirekt zum HTML Code)
Repeat
Until ReadLine( Stream ) = ""

Repeat
   i = i + 1
   CurrentLine$ = ReadLine( Stream )
   
   If i > 4
      If HTML_Line$( i - 1 ) = "" And HTML_Line$( i - 2 ) = "" And HTML_Line$( i - 3 ) = "" And HTML_Line$( i - 4 ) = ""
         Exit
      End If
   End If
   
   HTML_Line$( i ) = CurrentLine$( Stream )
Forever

CloseTCPStream( Stream )

;Restlicher Code...

Graphics 1000,600

; OpenTCPStream/CloseTCPStream Example

Print "Connecting..."
tcp=OpenTCPStream( "XYZ.net",80 )

If Not tcp Print "Failed.":WaitKey:End

Print "Connected! Sending request..."

WriteLine tcp,"GET http://XYZ.net/light.txt HTTP/1.0"
WriteLine tcp,Chr$(10)

If Eof(tcp) Print "Failed.":WaitKey:End

Print "Request sent! Waiting for reply..."

While Not Eof(tcp)
filedata$=ReadLine$( tcp )
Wend

If Eof(tcp)=1 Then Print "Success!" Else Print "Error!"

CloseTCPStream tcp

print filedata$
WaitKey
End

Graphics 1000,600

; OpenTCPStream/CloseTCPStream Example

Print "Connecting..."
tcp=OpenTCPStream( "XYZ.com",80 )

If Not tcp Print "Failed.":WaitKey:End

Print "Connected! Sending request..."

WriteLine tcp,"GET http://XYZ.com/light.txt HTTP/1.0"
WriteLine tcp,Chr$(10)

If Eof(tcp) Print "Failed.":WaitKey:End

Print "Request sent! Waiting for reply..."

While Not Eof(tcp)
filedata$=ReadLine$( tcp )
Wend

If Eof(tcp)=1 Then Print "Success!" Else Print "Error!"

CloseTCPStream tcp

Print filedata$
WaitKey
End