Hallo,
ich will mit winsock eine Webseite aufrufen also ein HTTP Protokoll,
ohne Proxy! M?sste glaub ich ganz einfach sein, arbeite eigentlich fast nie mit
Winsock.
Vielen Dank!
Nobert
Winsock Http anfrage
-
-
Danke, das hat mir sehr geholfen
Hab das ganze jetzt so gemacht, noch irgend welche verbesserungs Vorschl?ge?
Alles anzeigenCode- Option Explicit
- Private Connect As Boolean
- Private Sub start_Click()
- Dim Url As String
- Dim Host As String
- Dim HttpReq As String
- Url = "http://www.google.de/"
- Host = "google.de"
- If Connect = True Then Exit Sub
- Winsock.RemotePort = "80"
- Winsock.RemoteHost = Host
- Winsock.Close
- Winsock.Connect
- While Not Connect
- DoEvents
- Wend
- Winsock.SendData "GET" & "http://www.google.de/" & " HTTP/1.0" & vbCrLf
- Winsock.SendData "Host: " & Host & vbCrLf
- Winsock.SendData "Accept: */*" & vbCrLf
- Winsock.SendData "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3"
- Winsock.SendData vbCrLf
- End Sub
- Private Sub Winsock_Connect()
- Connect = True
- End Sub
- Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
- Dim data As String
- Winsock.GetData data
- Text1.Text = ""
- Text1.Text = Text1.Text & data
- End Sub
Mit freundlichen Gr??en
Nobert -