Comment puis-je récupérer une page web ?
Créez un formulaire avec un control Microsoft Winsock ( Ctrl + T ) et appellez-le Winsock1 ainsi qu'un TextBox (Text1)
Mettez ce code dans votre Form_Load par exemple :
Source / Exemple :
Winsock1.RemoteHost = "www.vbfrance.com"
Winsock1.RemotePort = 80
Winsock1.Connect
' Dans le Winsock1_Connect mettez ce code :
Dim CommandeHTTP As String
Dim URLPageWeb As String
URLPageWeb = "http://www.vbfrance.com/"
CommandeHTTP = "GET " & URLPageWeb & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf
Winsock1.SendData CommandeHTTP
' Dans le Winsock1_DataArrival mettez ce code :
Dim HTTPDonnees As String
Winsock1.GetData HTTPDonnees, vbString
Text1.Text = HTTPDonnees
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.