回复 3楼 风吹过b
											版主。老大、
  我能用IE填充点击按钮。可是非IE浏览器该怎么填充点击按钮?非IE浏览器怎么引用对象的?
 Dim IEList As New ShellWindows
    
    Dim browser
    Dim Doc
    On Error Resume Next
    
    '遍历当前地浏览器窗口
    For Each browser In IEList
        '找到需要地IE窗口
        If browser.Document.Title = "W彩票" Then
            '获得浏览器地文档对象
            Set Doc = browser.Document
            
            '填写用户名字段
            'Doc.body.All("login").Value = "eddie"
            '填写密码字段
            'Doc.body.All("pass").Value = "123456"
            'Doc.body.All("authnum").Value = "63217"
            '提交authnum
            'Doc.body.All("send-button").Click
        End If
    Next