Bonjour,
J'ai un petit problème, je n'arrive pas à remplir un formulaire web html avec VB.NET mais je ne sais pas pourquoi, je dois y rentrer le login et le pwd
code source de la page
Code HTML : Sélectionner tout - Visualiser dans une fenêtre à part
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73 <INPUT type="hidden" name="autologin" value="yes"> <INPUT type="hidden" name="requestType" value="login"> <INPUT type="hidden" name="validationKey" value=""> <INPUT type="hidden" name="strategyName" value="Topaz"> <script type="text/javascript"> </script> <table class="full_HV" width="180" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="login_top_left" colspan="2"> <table class="full_HV" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="login_logo"><img src="/topaz/static/act/images/login_logo_fr.gif" alt="" border="0" /></td> <td></td> </tr> <tr> <td></td> <td class="login_appname"><img src="/topaz/static/act/images/login_appname_bac_fr.gif" alt="" height="40" border="0" /></td> </tr> </table> </td> <td class="login_top_right"><img src="/topaz/static/act/images/dot_trans.gif" alt="" height="20" width="20" border="0" /></td> </tr> <tr valign="top"> <td colspan="3"> <div id="closeBlock" style="display:none"> <table width="100%" heigth = "100%" cellspacing="0" cellpadding="0"> <tr> <td class="login_mid_left" width="40%"><img src="/topaz/static/act/images/dot_trans.gif" alt="" height="200" width="20" border="0" /></td> <td class="login_fields_lable" style="vertical-align:middle;text-align:left; background-color: #eee; background-image: url(/topaz/static/act/images/gray_bg.png); background-repeat: repeat-x;" ><span class="textlarge">HP Business Service Management a été démarré avec succès.</span><br><br><span class="text_em">Vous pouvez maintenant fermer cette fenêtre.</span></td> <td class="login_mid_right" width="40%"> </td> </tr> </table> </div> <div id="loginBlock"> <table width="100%" heigth = "100%" cellspacing="0" cellpadding="0"> <tr> <td rowspan="2" class="login_mid_left"><img src="/topaz/static/act/images/dot_trans.gif" alt="" height="20" width="20" border="0" /></td> <td class="login_mid_center"> <table class="full_H" border="0" cellspacing="0" cellpadding="0"> <tr> <td id="login_name" class="login_fields_lable" style="vertical-align:middle"><span class="textlarge">Nom de connexion:</span></td> </tr> <tr> <td id="login_password" class="login_fields_lable" ><span class="textlarge"><span class="textbig">Mot de passe:</span></span></td> <script type="text/javascript"> if (!is.ie) { var loginPasswordElement = document.getElementById("login_password"); loginPasswordElement.style.verticalAlign = "middle"; } </script> </tr> <tr> <td> </td> </tr> <tr> <td> </td> </tr> </table> </td> <td class="login_mid_right"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td class="login_fields" width="180"><input class="login_name" type="text" alt="Nom de connexion" name="userlogin" id="userlogin" value="XXXXX" size="15" /></td> <td width="100%" style="padding-right:20px;" valign="top"><img src="/topaz/static/act/images/help.png" alt="" border="0" style="cursor: pointer;" align=right onclick="javascript:openHelpWindow('http://XXXXX/topaz/amdocs/eng/doc_lib/BSM_Help_CSH.htm#login_help');"></td> </tr> <tr> <td class="login_fields" width="180"><input class="login_password" alt="Mot de passe" type="password" id="userpassword" name="userpassword" size="15" /></td>
Et voici de que j'utilise dans mon VB.NET 2012
Code VB.NET : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click On Error Resume Next ListBox5.Items.Clear() ListBox6.Items.Clear() IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate("http:/XXXXXX/topaz/") Threading.Thread.Sleep(3000) IE.document.All("userpassword").Value = "pwd" 'IE.document.All("ok_blanc").Click() Button51.BackColor = Color.GreenYellow If Err.Number <> 0 Then MsgBox("Une erreur est apparue", vbCritical, "Erreur") Button51.BackColor = Color.Red End If End Sub
Partager