Remplir fomulaire html java script avec VB.NET 2012
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:
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:
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 |
