Application Vb interagit avec une page HTML Comment Faire ?

Version imprimable

Bonjour, pour commencer après plusieurs recherches sur google et les cours de vb qui ne sont pas très pratiques car ils utilisent des versions anciennes ou une version studio et que beaucoup de tuto son expliqués rapidement sur ce sujet qui m'intéresse beaucoup .

J'utilise la version 2010 de Visual-basic express !

Voila j'aurais voulu savoir si c’était possible d’intéragir entre une application vb et une page html pour mieux expliquer mon problème .

Sur mon application vb il y a une fenêtre principal = Form1 (logique) !
textbox1 - textbox2 - boutton1 - Webbrowser1

A quoi sert t'il :
Form1
textbox1 (pour le pseudo)
textbox2 (pour le mdp)
boutton1 (pour valider)
Webbrowser1 ( pour afficher la page d'arriver après la connexion )

et je voudrais que quand j'appuie sur valider cela exécute la page "connexion.html" qui est dans la racine du projet ( bin/debug/.. )

connexion.html
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 <form name="log_identification" method="POST" action="Url d'action(exemple : log.php)"> <input type="hidden" name="path" value="Url d'arriver (exemple : accueilmembre_log.php)"> <input type="hidden" name="posted" value="1"> <table border="0" align="center" width="80%"> <TR height="30"><TD><font color="#ffffff"><B>Votre Pseudo :</B></font><br><img src="images/shim.gif" width="200" height="10"></TD> <td><INPUT type="TEXT" name="pseudo" SIZE="20" onKeypress="return valid_accents(event);"></TD></TR> <TR height="30"><TD><font color="#ffffff"><B>Votre mot de passe :</B></font></TD> <td><INPUT type="PASSWORD" name="mdp" SIZE="20"> </TD></TR> </table> <BR><BR> <div align="center"> <INPUT type="submit" name="submit" value="CONNEXION" style="border:0px"> <BR><BR> </div> <BR><BR> </form>
donc en fait je voudrais que mon champs "pseudo" et "mdp" de mon application se réintègre automatiquement dans la feuille "connexion.html" et s’exécute .
Donc la page de l'url d'arrivée s'affiche dans le "webbrowser1", donc avec la page "accueilmembre_log.php" (si la connexion a fonctionner bien-sur).

J’espère que vous pourrez m'aider et m'orienter sur une voie qui pourrait m'aider !!

Merci d'avance

Salut !

Pour ta réponse, voici ce code :

Code:

1
2
3
4
 
If TextBox1.Text = "NomDUtilisateur" And TextBox2.Text = "MotDePasse1234"
     WebBrowser1.Url = "file:///c:/users/tonnom/emplacement/du/fichier.html"
End If

Ou encore :

Code:

1
2
3
4
 
If TextBox1.Text = "NomDUtilisateur" And TextBox2.Text = "MotDePasse1234"
     WebBrowser1.Url = "about:<html><body><span>Ton code HTML en une seule ligne</span></body></html>"
End If

En éspérant avoir pu t'aider
Paul

Code:

1
2
3
4
 
If TextBox1.Text = "NomDUtilisateur" And TextBox2.Text = "MotDePasse1234"
     WebBrowser1.Url = "about:<form name="log_identification" method="POST" action="log.php"><input type="hidden" name="path" value="accueilmembre_log.php"><input type="hidden" name="posted" value="1"><table border="0" align="center" width="80%"><TR height="30"><TD><font color="#ffffff"><B>Votre Pseudo :</B></font><br><img src="images/shim.gif" width="200" height="10"></TD><td><INPUT type="TEXT" name="pseudo" SIZE="20"  onKeypress="return valid_accents(event);"></TD></TR><TR height="30"><TD><font color="#ffffff"><B>Votre mot de passe :</B></font></TD><td><INPUT type="PASSWORD" name="mdp" SIZE="20">/TD></TR></table><BR><BR><div align="center"><INPUT type="submit" name="submit" value="CONNEXION" style="border:0px"><BR><BR></div><BR><BR></form>"
End If

Mais comment intéragit la réponse de TextBox1.Text et TextBox2.Text dans la partie pseudo et mdp de la partie html ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Class Form1
    Private IsLoaded As Boolean
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        
        WebBrowser1.Navigate("C:\Users\x2FuUk\Desktop\page.html")
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        'attends que la page soit chargée
        If IsLoaded = False Then Exit Sub
 
        'rempli pseudo et mdp
        WebBrowser1.Document.GetElementById("pseudo").SetAttribute("Value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("mdp").SetAttribute("Value", TextBox2.Text)
 
        'simule un click sur le bouton submit
        WebBrowser1.Document.GetElementById("submit").Focus()
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
        IsLoaded = False
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        'indique dans une variable boolean que la page à été chargée
        IsLoaded = True
    End Sub
End Class

Citation:
Envoyé par ShadowTzu
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Public Class Form1 Private IsLoaded As Boolean Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.Navigate("C:\Users\x2FuUk\Desktop\page.html") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'attends que la page soit chargée If IsLoaded = False Then Exit Sub 'rempli pseudo et mdp WebBrowser1.Document.GetElementById("pseudo").SetAttribute("Value", TextBox1.Text) WebBrowser1.Document.GetElementById("mdp").SetAttribute("Value", TextBox2.Text) 'simule un click sur le bouton submit WebBrowser1.Document.GetElementById("submit").Focus() WebBrowser1.Document.GetElementById("submit").InvokeMember("click") IsLoaded = False End Sub Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 'indique dans une variable boolean que la page à été chargée IsLoaded = True End Sub End Class
Merci a toi ShadowTzu

Je suis d'accord avec toi mais là en fait ça charge ma feuille html et me l'affiche dans le WebBrowser , Quand je rentre mon "pseudo" et "mdp" dans mes TextBox cela fonctionne mais est-il possible de charger la page sans l'afficher dans le WebBrowser, afficher simplement que la page de réponse a la connexion ( la page membre ) en gros tant que je ne rentre pas de pseudo ni de mot de passe et que je n'appuie pas sur le bouton connecter (submit) mon WebBrowser ne m'affiche rien et à partir du moment où je clique sur le bouton seulement il me renvoit la réponse de la page de connexion ! !

02/09/2014, 21h57
sinople

Hello

Avec la fonction navigate de l'objet webbrowser, il est possible d'inclure les données POST (les valeurs du formulaire). Tu peux donc directement envoyer une requête sur la page qui doit traiter l'identification sans passer par une page fictive contenant un formulaire bidon et simuler un clique pour l'envoi du formulaire.

Il faut encoder les données du formulaires en un tableau de byte de la façon suivante :

Encode.GetBytes("username=robert&password=123")

http://msdn.microsoft.com/fr-fr/library/ms161356(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1