Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0546: HTTP Anfragen über Proxy ausführen

VB 5/6-Tipp 0546: HTTP Anfragen über Proxy ausführen

 von Jörg Vehlow

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [3,63 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------- Anfang Projektdatei Winsock ueber Proxy.vbp  -------
' Die Komponente ' (MSWINSCK.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Textfeld "Text3"
' Steuerelement: Textfeld "Text2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Windows Socket "Winsock1"
' Steuerelement: Textfeld "Text4"
' Steuerelement: Beschriftungsfeld "Label3"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private Sub Command1_Click()
    Dim test As Variant
    Dim slash As Variant
    Dim host As String

    Text4.Text = ""
    'prüfen http:// vorhanden ist, wenn nicht ergänzen
    If Left(Text1.Text, 7) <> "http://" Then Text1.Text = "http://" & Text1.Text
    
    'slash anhängen, falls hinter der adresse noch keiner steht
    test = Split(Text1.Text, "/")
    If UBound(test) < 3 Then Text1.Text = Text1.Text & "/"
    
    slash = Split(Text1.Text, "/")
    'den Hostnamen und die subdomain herrausfinden
    host = slash(2)
    
    Winsock1.Close                                          'Man kann ja nie wissen...
    Winsock1.RemotePort = Text3.Text                        'Proxy Port
    Winsock1.RemoteHost = Text2.Text                        'Proxy Adresse
    Winsock1.Connect
    Do While Winsock1.State = 6: DoEvents: Loop
    If Winsock1.State <> 7 Then Exit Sub
    
    'Unseren request senden
    Winsock1.SendData "GET " & Text1.Text & " HTTP/1.0" & vbCrLf
    'Alle mime-Typen akzeptieren
    Winsock1.SendData "Accept: */*" & vbCrLf
    'Allen Proxys mitteilen, das sie die verbindung aufrecht erhalten sollen
    Winsock1.SendData "Proxy-Connection: Keep-Alive" & vbCrLf
    'Mitteilen, das wir den IE6 nutzen
    Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
    'Jetzt muß der Proxy noch wissen wohin er die anfrage weiterleiten soll.
    'Würden wir eine direkte verbindung zum host aufbauen, müßten könnten wir das weglassen.
    Winsock1.SendData "Host: " & host & vbCrLf
    'Dieser zeilenumbruch signalisiert dem server, das wir fertig sind.
    Winsock1.SendData vbCrLf
    
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    Winsock1.GetData data
    Text4.Text = Text4.Text & data
End Sub

Private Sub Winsock1_Error( _
            ByVal Number As Integer, _
            Description As String, _
            ByVal Scode As Long, _
            ByVal Source As String, _
            ByVal HelpFile As String, _
            ByVal HelpContext As Long, _
            CancelDisplay As Boolean)
    MsgBox "Der Winsock hat den Fehler """ & Number & """ gemeldet:" _
            & vbCrLf & vbCrLf & Description, vbCritical
End Sub

'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------- Ende Projektdatei Winsock ueber Proxy.vbp  --------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 6 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.