[分享]网页数据下载与控制

yzf_2000

原帖由 qqboy1 于 2008-2-16 19:22 发表
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'登录163邮箱
    Dim I As Single
    Dim username As String
    Dim password As String
    Dim 登录邮箱 As String
    Dim Doc As Object
On Error GoTo Vend:
    If WebBrowser1.ReadyState <> READYSTATE_COMPLETE Then Exit Sub
    '获得浏览器的文档对象
    Set Doc = WebBrowser1.Document
      
    Doc.body.All("username").Value = Cells(1, 2)
    Doc.body.All("password").Value = Cells(2, 2)
    Doc.body.All("登录邮箱").Click
   If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then Exit Sub

   MsgBox "成功登录"
Vend:
End Sub

怎么将
    Doc.body.All("password").Value = Cells(2, 2)
换成
    SendKeys "{TAB}"
    SendKeys Cells(2, 2)
就没用了？

bibisin

谢谢LZ分享

saiguang

正常学习网站的打开和数据记录

yagi2008

收藏了，楼主的分享技术的精神非常可贵！

hkdavid2008

兄弟，你这个东西来得很及时，强烈建议加精和顶置

allforone

收益多多，谢谢。

blazetwf

谢谢。资料详细，非常好

kent007

很實用  感謝啦

Big5

最近在搞，学习一下！

jilijun

感谢分享！收藏备用