fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

TSNEX_HTTP_Get.bas

Uploader:	ThePuppetMaster
Datum/Zeit:	21.01.2008 21:24:41

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

' HTTP_Get mit TSNE Version 2 (Extensions)

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







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

'Das Programm wird mit einer Kommandozeile aufgerufen

'z.B. "TSXNEX_HTTP_Get http://www.google.de"

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







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

'   Die Erweiterungsdatei von TSNE_V2 einbinden

#include once "TSNEX_HTTP.bi"







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

'   Programm beginnen

Print "Führe Anfrage aus..."

'   Variable für Statusrückgabe erstellen

Dim T as String

Dim BV as Long

Dim XReturnData as String

Dim XReturnCode as Long

T = Command

'   Aufruf ausführen

Print "Anfrage an: " & T & "...";

BV = TSNEX_HTTP_Get(T, XReturnData, XReturnCode)

If BV = 0 Then

    Print "[OK]"

    Print "RückgabeCode: " & Str(XReturnCode)

    Print "== Es folgen die Daten! =="

    Print XReturnData

Else

    Print "[FEHLER]"

    Print "Fehler-Beschreibung: " & TSNEX_Get_GURUCode(BV)

End If

'   Programm beenden

End

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.