poulp86
Messages postés13Date d'inscriptionmardi 31 janvier 2006StatutMembreDernière intervention 5 février 2007
-
4 févr. 2007 à 20:24
poulp86
Messages postés13Date d'inscriptionmardi 31 janvier 2006StatutMembreDernière intervention 5 février 2007
-
5 févr. 2007 à 20:35
Bonjour je suis en train de decouvrir le langage vb.net et pour me
familiariser avec ce langage j'aurais voulu creer un petit programme
qui se connect à une cddb du net pour rappatrier les infos cd (album
titre etc...) d'un cd audio du commerce.
J'ai vu qu'il existait pas mal de post sur ce forum, mais je n'ai trouve que des codes
en vb6
OneHacker
Messages postés1447Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention23 septembre 20072 5 févr. 2007 à 01:58
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