fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

PNE :: include/pne/pne.mod.sparse.http.bi

Uploader:	PMedia
Datum/Zeit:	05.12.2007 15:08:21

type thttp

    dummy as ubyte

    Declare Sub Get(byref host as string, byref path as string, byref page as string)

end type



Sub thttp.Get(byref host as string, byref path as string, byref page as string)

    dim as client servercall



    serverCall.connectDNS(host, 80)

    if path = "" then path = "/"

    serverCall.lock_writebuffer()

    serverCall.writeLN("GET "+path+" HTTP/1.0")

    serverCall.writeLN("HOST: "+host)

    serverCall.writeLN("CONNECTION: CLOSE")

    serverCall.writeLN("USER-AGENT: PNE " + serverCall.VersionS)

    serverCall.writeLN("")

    serverCall.unlock_writebuffer()



    serverCall.readUntilDCon(page)



    serverCall.disconnect()

End Sub

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.