Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
test_getwanipa.bas
| Uploader: |  ThePuppetMaster |
| 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