日期:2014-05-18 浏览次数:21436 次
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Url = New Uri("https://ebs.boc.cn/BocnetClient/PreLogin.do?_locale=zh_CN")
    End Sub
    Dim b As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Try
            Dim tbUserid As HtmlElement = WebBrowser1.Document.All("LoginName")
            Dim tbvalida As HtmlElement = WebBrowser1.Document.All("ValidationChar")
            Dim tbPasswd As HtmlElement = WebBrowser1.Document.All("pass")
            tbUserid.SetAttribute("value", "帐号")
            tbvalida.SetAttribute("value", "验证码") '只是测试,俺也不会识别验证码
            tbPasswd.SetAttribute("value", "密码") '提示参数数目与需要的数据不符
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
        <tr>
                                            <td> </td>
                                            <td height="30" class="input_font">用 户 名:</td>
                                            <td valign="bottom"><input type="text" name="LoginName" class="login" maxlength="20" /></td>
                                            <td rowspan="2" align="left" valign="top" class="input_font2">用户名和密码对大小写字母敏感,请注意区分</td>
                                        </tr>
                                        <tr>
                                            <td> </td>
                                            <td height="30" class="input_font">密  码:</td>
                                            <td>
                                            <div id="passobject" class="login">
                                                <script language="JavaScript">
                                                passr = CreateControl("passobject", "document.form1", "pass", "0", "zh_CN");
                                                </script>
                                            </div>
                                            </td>
                                        </tr>