Discussion :

[crashdown31]

Bonjour, je suis debutant et bel et bien bloqué dans mon projet,

je cherche le moyen de coder une requete envoyée vers un site et reponse à cette requete dans mon programme :

le mot clé serai tapé dans une textbox et validé avec un bouton de commande vert une url de method post php. ensuite je voudrai que les resultats à cette requete s'affiche dans mon programme (dailleur quel objet utiliser pour l'affichage des requetes).

J'attends votre aide avec impatience, en espérant etre compris
merci d'avance !

[Vesta]

Controle Inet ou Webbrowser et du chipottage avec le code source renvoyé et c bon...

[crashdown31]

ok je vais essayer ce genre de contrôle je donne des nouvelles sur le fonctionnement merci à toi

[crashdown31]

Ok j'ai réussi avec un contrôle webbrowser, je tape le mot clé le site s'affiche bien mais le mot clé n'est pas inséré dans l'url de method post :

voila ce qui se passe quand je clique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Command1_Click()
Code.Text = vbNullString
Label1 = "Recherche des liens en cours..."
WebBrowser1.Navigate TxtUrl Variable de l'adresse du formulaire
End Sub

Voila le code qui renvoi le mot clé tapé vers l'url du formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Text1_Click()
Text1.Text = ""On tape le mot clé dans l'objet Text1
TxtUrl.Text = "http://www.xxxxxxxxxx.com/Result.php?nbrows=7&motsclefs=" & Text1 & "&cat=&type=Fiches&operateur=AND"
End Sub

j'espère que c'est compréhensible ! merci

[Vesta]

Navigate2 c'est mieu il parrait...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Command1_Click()
Code.Text = vbNullString
Label1 = "Recherche des liens en cours..."
WebBrowser1.Navigate2 TxtUrl.text
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Text1_Click()
TxtUrl.Text = "http://www.xxxxxxxxxx.com/Result.php?nbrows=7&motsclefs=" & Text1.Text & "&cat=&type=Fiches&operateur=AND"
End Sub

[crashdown31]

merci Vesta pour le changement de code j'ai bien remplacé par Navigate2 la variable txturl par txturl.text ; mais le code ne fonctionne toujours pas, le mot clé n'est pas rajouté dans l'adresse du formulaire donc le site s'affiche et me retourne que rien n'a été saisie.

Merci quand même, si il y'a d'autres proposition n'hésitez pas elles sont toutes les bien venu merci à vous.