VB webbrowser点击没有id的html提交表单

时间:2016-09-03 14:51:49

标签: vba

我想登录网站http://seafight.com

这是网站上的登录代码

            </div>
            <fieldset class="bgcdw_login_form_login"><div class="bgcdw_input_text bgcdw_login_form_username">
                    <label for="bgcdw_login_form_username">Nazwa</label>
                    <input id="bgcdw_login_form_username" name="username" type="text" maxlength="20"></div>
                <div class="bgcdw_input_password bgcdw_login_form_password">
                    <label for="bgcdw_login_form_password">Has&#322;o</label>
                    <input id="bgcdw_login_form_password" name="password" type="password" maxlength="45"></div>
            </div>
            <fieldset class="bgcdw_login_form_buttons"><input class="bgcdw_button bgcdw_login_form_login" type="submit" value="Logowanie">
    </div>
这是我的应用

中的一段代码
        WebBrowser1.Navigate("http://seafight.com")
    WriteLog("Loading Seafight page...")
    While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
        Application.DoEvents()
    End While
    WebBrowser1.Document.GetElementById("username").InnerText = LoginBox.Text
    WebBrowser1.Document.GetElementById("password").InnerText = PasswordBox.Text

我不知道如何点击提交按钮,因为它没有ID。有任何想法吗?

我试过

WebBrowser1.Document.GetElementById("submitButton").InvokeMember("click")

WebBrowser1.Document.GetElementsByTagName("button, submit etc") 

(0使用此标记名称计算)

0 个答案:

没有答案