使用VBA登录网站

Sub LoginToWebsite()
    Dim IE As Object
    Dim URL As String
    Dim UserName As String
    Dim Password As String
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置要访问的网站URL
    URL = "https://www.example.com/login"
    
    ' 设置用户名和密码
    UserName = "your_username"
    Password = "your_password"
    
    ' 打开网站
    IE.Visible = True
    IE.Navigate URL
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 填写用户名和密码并提交表单
    IE.document.getElementById("username").Value = UserName
    IE.document.getElementById("password").Value = Password
    IE.document.forms(0).submit
    
    ' 等待登录完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 执行其他操作，例如访问登录后的页面
    
    ' 关闭Internet Explorer对象
    IE.Quit
    Set IE = Nothing
End Sub