使用VBA登录银行

Sub LoginToBank()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开银行网站
    IE.Navigate "https://www.bank.com"
    
    ' 等待页面加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 填写用户名和密码
    IE.document.getElementById("username").Value = "YourUsername"
    IE.document.getElementById("password").Value = "YourPassword"
    
    ' 提交登录表单
    IE.document.getElementById("loginButton").Click
    
    ' 等待登录完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 执行其他操作，如查询账户余额等
    
    ' 关闭浏览器
    IE.Quit
    Set IE = Nothing
End Sub