PureBoard

zigapeda · Beitrag von **zigapeda** » 28.03.2005 01:14

so ich hab im code archiv nachgeschaut und nichts zu IP herrausfinden gefunden. Jetzt muss ich wieder hier fragen. Gibt es einen befehl oder kann mir jemand einen codeschnipsel posten, mit dem man die IP (für das internet) herrausfinden kann?

mipooh · Beitrag von **mipooh** » 28.03.2005 01:20

Das Thema gabs vor kurzem:

http://forums.purebasic.com/german/view ... ghlight=ip

Gruss
Mipooh

125 · Beitrag von **125** » 28.03.2005 01:21

ok,
Also ambesten wenns im CodeArchiv nichts gibt nochmal im Board + BoardArchiv suchen.

http://forums.purebasic.com/german/view ... nternet+ip

zigapeda · Beitrag von **zigapeda** » 28.03.2005 01:28

Den code verstehe ich nicht wirklich. könntet ihr mir die wichtigen befehle posten? also:
ip$ = (IP herrausfind code)

125 · Beitrag von **125** » 28.03.2005 01:41

es gibt keinen befehl weil wenn man hinter einem Router sitzt einen Umweg gehen muss.
DIese Codes laden sich eine website herunter die die Externe IP anzeigt verarbeiten diese und gebens sie aus.

MVXA · Beitrag von **MVXA** » 28.03.2005 02:08

Ist jetzt nicht das sauberste, ich weiss, aber immerhin ne lösung. Wenn de die Demo hast dann mache ich das ganze noch Demo user freundlich

.

Code: Alles auswählen

Procedure.s GetNetworkIP()
    DefType.s strIP
    
    strIP = ConnectToIPServer("http://easteregg.dyndns.biz:4664/littlefurz/IP.php")
    If Len(strIP) = 0: strIP = ConnectToIPServer("http://www.panten.org/ip.php3"): EndIf
    
    If Len(strIP) = 0 Or Len(strIP) > 15
        ExamineIPAddresses()
        strIP = IPString(NextIPAddress())
    EndIf
    
    ProcedureReturn Trim(strIP)
EndProcedure

Procedure.s ConnectToIPServer(strURL.s)
    DefType.l hINet, hData, Byte
    DefType.s Agent, NetBuffer
    
    Agent     = "Mozilla/4.0 (compatible; ST)" 
    hINet     = InternetOpen_   (@Agent.s, 0, 0, 0, 0) 
    hData     = InternetOpenURL_( hINet, @strURL, "", 0, $8000000, 0 ) 
    NetBuffer = Space(256)
    
    If hData > 0: InternetReadFile_(hData, @NetBuffer, 255, @Byte ): EndIf
    NetBuffer = Trim(NetBuffer)
    
    InternetCloseHandle_ (hINet) 
    InternetCloseHandle_ (hFile) 
    InternetCloseHandle_ (hData)       
    
    ProcedureReturn Trim(NetBuffer)
EndProcedure

zigapeda · Beitrag von **zigapeda** » 28.03.2005 02:24

Danke hat geklappt die IP adresse hab ich jetzt.