UC知道vb制作问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 16:52:36
Private Sub Command1_Click()
Wb1.Navigate "http://warlord.duowan.com/f1.html" －－－－出错地方
'连接到网站
End Sub
Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = Wb1.Document
List1.Clear
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then ' 查找Object属性为Input的可输入项
Set vTag = vDoc.All(i)
List1.AddItem vDoc.All(i).tagName
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case vTag.Name
Case "username" '如果是用户名的那个框
vTag.Value = "xxxxxxx" '这个是用户名
Case "passwd"
vTag.Value = "xxxxxxxxx" '这个是密码
Case "sessioncode"
vTag.Value = "xxxx" '这个是验证码
End Select
With vDoc
Wb1.Navigate "http://warlord.duowan.com/f1.html" －－－－出错地方
'连接到网站
End Sub
Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = Wb1.Document
List1.Clear
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then ' 查找Object属性为Input的可输入项
Set vTag = vDoc.All(i)
List1.AddItem vDoc.All(i).tagName
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case vTag.Name
Case "username" '如果是用户名的那个框
vTag.Value = "xxxxxxx" '这个是用户名
Case "passwd"
vTag.Value = "xxxxxxxxx" '这个是密码
Case "sessioncode"
vTag.Value = "xxxx" '这个是验证码
End Select
With vDoc
应该是你的窗体上没有Wb1这个控件.
控件应该是个浏览器.
工程菜单---->部件----->选择 Microsoft Internet Controls---->确定
然后在窗体上加个浏览器控件,命名为Wb1
你的WebBroser控件的名字应该叫Wb1，你检查一下对吗？
没有添加控件,或是对象名不是WB1
