Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

test_getwanipa.bas

Uploader:MitgliedThePuppetMaster
Datum/Zeit:31.01.2011 23:50:39
Hinweis: Dieser Quelltext ist Bestandteil des Projekts TSNEX V2/V3 (Extension), zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

'##############################################################################################################
'Get WAN-IPA TEST-CLIENT für TSNE_V3 und TSNEX_V3
'##############################################################################################################



'##############################################################################################################
#include once "TSNEX_V3.bi"             'Wir binden die TSNE-X Version 3 ein. Sie beinhaltet bereits die TSNE_V3



'##############################################################################################################
Dim TIPA as String                          'Hier speichern wir die IP-Adresse rein


'Hier rufen wir die Get Funktion für die WAN-IPA Abfrage auf.
Dim RV as Integer = TSNEX_GetWANIPA(TIPA)
If RV <> TSNEX_Const_NoError Then         'Prüfen, ob die Abfrage erfolgreich war. Wenn nicht
    Print TSNEX_GetGURUCode(RV)             'dann geben wir den Fehlercode zurück
    End -1                                  'Und beenden das Programm
End If

Print "WAN IP-Adresse: "; TIPA              'Zu guter letzt noch die IP-Adresse ausgeben

End 0                                       'Zum schluss das Programm sauber beenden