Je connais une méthode qui peut te servir. c'est de créer une requête HTTP Get qui va remplacer le champ rechercher et le bouton ok d'un site qui détient les renseignements sur plein d'artistes.
Voici la fonction pour obtenir le code HTML pour obtenir le HTML résultant de la requête GET ou POST (à mettre dans un module ou classe).
#Region "HTTPRequest"
' --- HTTPRequests ---
' ----- Module créer par Redman(OneHacker's VBFrance.com) -----
' Description :
' Requêtes GET et POST en HTTP
' Gestion des cookies (bientôt)
' IMPORTANT
' Vous devez ajouter une référence System.Web pour à votre Projet que ce module fonctionne
' Code valable pour Framework 1.1 VB.Net 2003
Public Function Get_request(ByVal url As String) As String
Dim reader As IO.StreamReader 'on crée un objet streamreader
Try
Dim hwebrequest As HttpWebRequest = HttpWebRequest.Create(url) 'on crée la requete web
Dim hwebresponse As HttpWebResponse = hwebrequest.GetResponse 'on crée un objet de reponse a notre requete
reader = New IO.StreamReader(hwebresponse.GetResponseStream) 'on redefini notre streamreader avec la reponse à la requete en argument
Return reader.ReadToEnd() 'on renvoie l'ensemble du resultat
reader.Close() 'on ferme l'objet
Catch ex As Exception
Return ex.Message.ToString ' en cas d'erreur, on renvoie la description de l'erreur
reader.Close()
End Try
End Function
Public Function Post_request(ByVal url As String, ByVal data As String) As String
Dim reader As IO.StreamReader
Dim writer As IO.StreamWriter
Try
Dim hwebrequest As HttpWebRequest = HttpWebRequest.Create(url) ' on crée la requete web à partir de l'url
hwebrequest.Method = "POST" 'on defini la methode à utiliser
hwebrequest.ContentType = "application/x-www-form-urlencoded" 'on defini le type de contenu de la requete
hwebrequest.ContentLength = data.Length 'on defini la taille des données à envoyé
writer = New IO.StreamWriter(hwebrequest.GetRequestStream) 'on crée un objet streamwriter qui va nous permettre d'envoyer nos données
writer.Write(data) 'on ecrit les données
writer.Close() 'on ferme l'objet streamwriter
Dim hwebresponse As HttpWebResponse = hwebrequest.GetResponse 'on crée un objet de reponse a notre requete
reader = New IO.StreamReader(hwebresponse.GetResponseStream) 'on redefini notre streamreader avec la reponse à la requete en argument
Return reader.ReadToEnd() 'on renvoie l'ensemble du resultat
reader.Close() 'on ferme l'objet
Catch ex As Exception
Return ex.Message.ToString
writer.Close()
reader.Close()
End Try
End Function
#End Region
Redman