VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4521|回复: 5

[讨论] 网页自动填表问题

[复制链接]
 楼主| 发表于 2010-11-29 16:41:23 | 显示全部楼层 |阅读模式
看下这段代码问题在哪,采用遍历标签的方法自动填表总是不成功,下面的代码是登陆百度空间的地址hi.baidu.com  运行时提示 错误 438 对象不支持该属性或方法



Private Sub Form_Load()
    web.Navigate Text1.Text
End Sub


Private Sub Command1_Click()
Dim i As Integer
    Dim vTag As Object
    Dim vDoc As Object
    Set vDoc = web.Document
        For i = 0 To vDoc.All.length - 1
            If UCase(vDoc.All(i).tagName) = "INPUT" And UCase(vDoc.All(i).Name) = "USERNAME" Then
                vDoc.All(i).Value = "caonibdxyz"
            End If
            If UCase(vDoc.All(i).tagName) = "INPUT" And UCase(vDoc.All(i).Name) = "PASSWORD" Then
                 vDoc.All(i).Value = "bailang"
            End If
             If UCase(vDoc.All(i).tagName) = "INPUT" And UCase(vDoc.All(i).Name) = "SUBMIT" Then
                 vDoc.All(i).Click
            End If
        Next
   
End Sub




附录:百度登陆空间源文件


td width="56" class="f14">用户名:</td>
<td><input type="text" name="username" class="ip2"></td>
</tr>
<tr>
<td class="f14">密 码:</td>
<td><input type="password" name="password" class="ip2"></td>
</tr>
<tr>
<td colspan="2">
<span class="f13"><input name="mem_pass" type="checkbox">记住我的登录状态</span>
</td>
</tr>
<tr>
<td colspan="2" width="240">
<span class="item" id="rempassItem" >为了确保你的信息安全,请不要在网吧或者公共机房选择此项。</span></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input name="Submit" type="submit" value=" 登录 " id="tk_btn_login">&nbsp;&nbsp;<a href="https://passport.baidu.com/?getpass" target="_blank" id="tk_link_findpsw">忘记密码?</a></td>
发表于 2010-11-29 18:28:01 | 显示全部楼层
这号是马甲吗?密码居然正确
回复 支持 反对

使用道具 举报

发表于 2010-11-29 18:28:38 | 显示全部楼层
自动填写表单.rar (2.05 KB, 下载次数: 813)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-11-30 14:12:50 | 显示全部楼层
谢谢了,不错不错,网上给的另外的 代码怎么都是错误的,害的我调试了很久,无果。www.007dianying.tk
回复 支持 反对

使用道具 举报

发表于 2011-1-3 13:37:21 | 显示全部楼层
:)挺好的
回复 支持 反对

使用道具 举报

发表于 2011-1-4 00:16:02 | 显示全部楼层
试试看 谢谢啦
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2023-2-6 06:59

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表