使用VBA登录网站并清除以前的登录凭据

Sub LoginAndClearCredentials()
    Dim IE As Object
    Dim URL As String
    
    ' 创建 Internet Explorer 对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置网站 URL
    URL = "https://www.example.com/login"
    
    ' 打开网站
    With IE
        .Visible = True
        .navigate URL
        ' 等待页面加载完成
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
    End With
    
    ' 填写登录表单
    With IE.document
        .getElementById("username").Value = "your_username"
        .getElementById("password").Value = "your_password"
        .getElementById("loginButton").Click
    End With
    
    ' 清除以前的登录凭据
    IE.Quit
    Set IE = Nothing
End Sub