VB webbrowser 自动登陆问题急!!!

最新推荐文章于 2021-05-31 08:53:23 发布

原创最新推荐文章于 2021-05-31 08:53:23 发布 · 2.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#webbrowser #vb #object #url #input

博主编写了一个自动登录程序，在部分网站可行，但在特定网站无法提交，出现“对象不支持该属性或方法代码438”的错误提示。文中给出了程序代码，包括网页导航、填充输入元素及尝试提交表单等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

写了一个自动登录程序,在有的网站用同样方法可以,下面这个不行,不知道为何?
>能写入username及password就是不能submit?
>错误提示对象不支持该属性或方法代码438
>谢谢.
>
>
>WebBrowser1.Navigate2 " http://202.84.17.88/chn"
>
>Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
Variant)
>Dim doc As IHTMLDocument2
>Set doc = WebBrowser1.Document
>If WebBrowser1.Busy = False And URL = " http://202.84.17.88/chn" Then
>     '填充带输入标记的元素集合
>     Dim Inputs2 As IHTMLElementCollection
>     Set Inputs2 = doc.All.tags("INPUT")
>     '选择第一个输入标记
>     Dim Element As IHTMLElement
>     Dim Element1 As IHTMLElement
>'    Dim Element2 As IHTMLElement
>     Set Element = Inputs2.Item(0)
>     Set Element1 = Inputs2.Item(1)
>'    Set Element2 = Inputs2.Item(2)
>     '使用正确的界面
>     Dim InputElement(2) As IHTMLInputElement
>     Set InputElement(0) = Element
>     Set InputElement(1) = Element1
>'    Set InputElement(2) = Element2
>     InputElement(0).Value = "aaaaaa"
>     InputElement(1).Value = "111111"
>     '调用该页第一个窗体上的提交
>     doc.Forms.Item(0).submit