fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
test_getWAN_IPA.bas

Uploader:	ThePuppetMaster
Datum/Zeit:	31.01.2011 23:10:12
Hinweis: Dieser Quelltext ist Bestandteil des Projekts TSNE V2 / V3, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
'##############################################################################################################

'Get WAN IPA Client für TSNE_V3

'##############################################################################################################







'##############################################################################################################

#include once "TSNE_V3.bi"                          'Die TCP Netzwerkbibliotek integrieren







'##############################################################################################################

Dim G_Client as UInteger                            'Eine Variable für den Client-Handel erstellen

Dim Shared G_DataRX as String                       'Variable welche die HTML-Daten aufnimmt







'##############################################################################################################

'   Deklarationen für die Empfänger Sub Routinen erstellen

'   Nur dann nötig, wenn die Sub's unterhalb des aufrufs stehen.

Declare Sub TSNE_Disconnected   (ByVal V_TSNEID as UInteger)

Declare Sub TSNE_Connected      (ByVal V_TSNEID as UInteger)

Declare Sub TSNE_NewData        (ByVal V_TSNEID as UInteger, ByRef V_Data as String)







'##############################################################################################################

Dim BV as Integer                                   'Variable für Statusrückgabe erstellen



Print "IPA erfragen..."



'Client erstellen, und das DATA und Connected Callback angeben. Disconnect ist nicht nötig,

'da der HTTP Request ein Connection: Close verlangt

BV = TSNE_Create_Client(G_Client, "checkip.dyndns.org", 80, 0, @TSNE_Connected, @TSNE_NewData, 60)

'   Statusrückgabe auswerten

If BV <> TSNE_Const_NoError Then

    Print "[FEHLER] " & TSNE_GetGURUCode(BV)      'Fehler ausgeben

    End -1                                          'Programmbeenden

End If



'Solange warten, bis die Verbindung beendet wurde

TSNE_WaitClose(G_Client)



'Empfangene Daten (IP-Adresse) auslesen

Dim XPos as UInteger = InStr(1, G_DataRX, "IP Address:")

If XPos = 0 Then

    Print "[FEHLER] Konnte IP-Adresse nicht ermitteln!"

    End -1

End If

G_DataRX = Trim(Mid(G_DataRX, XPos + 11))

XPos = InStr(1, G_DataRX, "<")

If XPos = 0 Then

    Print "[FEHLER] Konnte IP-Adresse nicht ermitteln!"

    End -1

End If

Dim XIPA as String = Trim(Left(G_DataRX, XPos - 1))

Print "Neue IP-Adresse: "; XIPA

End                                                 'Anschliessend beenden wir unser Programm







'##############################################################################################################

Sub TSNE_Connected(ByVal V_TSNEID as UInteger)      'Empfänger für das Connect Signal (Verbindung besteht)

'Anfrage vorbereiten

Dim D as String

D = "GET / HTTP/1.0" & Chr(13, 10)

D += "Host: checkip.dyndns.org" & Chr(13, 10)

D += "User-Agent: TSNE_V3_DyndnsUpDateClient" & Chr(13, 10)

D += "connection: close" & Chr(13, 10)

D += Chr(13, 10)

'Anfrage and en Server senden

Dim BV as Integer = TSNE_Data_Send(V_TSNEID, D)

If BV <> TSNE_Const_NoError Then

    Print "[FEHLER] " & TSNE_GetGURUCode(BV)      'Fehler ausgeben

    TSNE_Disconnect(V_TSNEID)

End If

End Sub







'##############################################################################################################

Sub TSNE_NewData (ByVal V_TSNEID as UInteger, ByRef V_Data as String)   'Empfänger für neue Daten

'Neue Daten an die bereits vorhandenen anhängen

G_DataRX += V_Data

End Sub