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
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
Danke, das hat mir sehr geholfen
Hab das ganze jetzt so gemacht, noch irgend welche verbesserungs Vorschl?ge?
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
Alles anzeigen
Mit freundlichen Gr??en
Nobert