如果想在www.csdn.net上的首页中,我想让WebBrowser控件来自动输入用户名称和密码的表单呢?然后自动登陆!
这个怎么个实现方法啊??我原先看到一片文章说是:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To 10 'vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case vTag.Name
Case "Name"
vTag.Value = "put2001_ruan"
Case "Pass"
vTag.Value = "5523279"
End Select
'ElseIf vTag.Type = "image" Then 《-这里有问题,
'vTag.Click
End If
End If
MsgBox vDoc.Text
Next i
End Sub
这段代码是用来按按钮的,但是CSDN上是按下一个文字连接的!
还有我在MSDN上查不到WebBrowser控件的属性和方法(特别是Document属性),在哪里有啊文档啊?
这个怎么个实现方法啊??我原先看到一片文章说是:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To 10 'vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case vTag.Name
Case "Name"
vTag.Value = "put2001_ruan"
Case "Pass"
vTag.Value = "5523279"
End Select
'ElseIf vTag.Type = "image" Then 《-这里有问题,
'vTag.Click
End If
End If
MsgBox vDoc.Text
Next i
End Sub
这段代码是用来按按钮的,但是CSDN上是按下一个文字连接的!
还有我在MSDN上查不到WebBrowser控件的属性和方法(特别是Document属性),在哪里有啊文档啊?
这是VB在访问DOM时的方便之处,远比其它语言来得简单。WebBrowser1.Document.All("name")="你的名字"
WebBrowser1.Document.All("pass")="你的口令"
WebBrowser1.Document.All("alogon").Submit当然,还有许多方法可以达到目标,详情请参看MSDN中关于DOM方面的参考