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%">&nbsp;</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>&nbsp;</td>
                            </tr>
                            <tr>
                                <td>&nbsp;</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