使用VBA自动化IE时如何输入Windows Security密码？

看来你在处理内网网站的VBA自动化登录时踩了不少坑——SendKeys被弹窗卡壳，任务计划跑的时候密码还容易输到别的程序里，连弹窗的真实窗口名都搞不清，确实够闹心的。我给你几个实用的解决方案，帮你把这个问题彻底搞定：

方案一：用Windows API精确控制登录弹窗（最稳定） #

Windows Security对话框的类名是固定的#32770，咱们可以靠这个类名精准定位弹窗，不用依赖不靠谱的窗口标题，再用API直接给输入框赋值，完全避免焦点乱跑的问题。

首先在VBA模块顶部添加API声明（兼容32/64位Office）：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Private Const WM_SETTEXT = &HC
Private Const BM_CLICK = &HF5

然后写处理登录的核心代码：

Sub AutoLoginAndScrape()
    Dim ie As InternetExplorerMedium
    Dim hWndDialog As LongPtr
    Dim hWndUserInput As LongPtr, hWndPassInput As LongPtr
    Dim timeout As Date
    
    ' 初始化IE
    Set ie = New InternetExplorerMedium
    ie.Visible = True
    ie.Navigate "https://XYZ.aspx"
    
    ' 等待登录弹窗出现（最多等10秒，防止卡死）
    timeout = Now + TimeValue("00:00:10")
    Do
        hWndDialog = FindWindow("#32770", vbNullString) ' 靠类名找Windows Security弹窗
        DoEvents
    Loop Until hWndDialog <> 0 Or Now > timeout
    
    If hWndDialog = 0 Then
        MsgBox "登录弹窗没出现，没法继续啦", vbExclamation
        ie.Quit
        Set ie = Nothing
        Exit Sub
    End If
    
    ' 定位用户名和密码输入框（弹窗里的Edit控件，第一个是用户名，第二个是密码）
    hWndUserInput = FindWindowEx(hWndDialog, 0, "Edit", vbNullString)
    hWndPassInput = FindWindowEx(hWndDialog, hWndUserInput, "Edit", vbNullString)
    
    If hWndUserInput <> 0 And hWndPassInput <> 0 Then
        ' 直接给输入框赋值（比SendKeys靠谱100倍）
        SendMessage hWndUserInput, WM_SETTEXT, 0, ByVal "你的内网用户名"
        SendMessage hWndPassInput, WM_SETTEXT, 0, ByVal "你的内网密码"
        
        ' 定位登录按钮（中文系统是"确定"，英文是"OK"）
        Dim hWndLoginBtn As LongPtr
        hWndLoginBtn = FindWindowEx(hWndDialog, 0, "Button", "确定")
        If hWndLoginBtn = 0 Then hWndLoginBtn = FindWindowEx(hWndDialog, 0, "Button", "OK")
        
        If hWndLoginBtn <> 0 Then
            SendMessage hWndLoginBtn, BM_CLICK, 0, 0 ' 模拟点击按钮
        Else
            ' 找不到按钮就直接按回车兜底
            SetForegroundWindow hWndDialog
            SendKeys "{ENTER}", True
        End If
    Else
        MsgBox "找不到用户名或密码输入框，检查下弹窗结构吧", vbExclamation
        ie.Quit
        Set ie = Nothing
        Exit Sub
    End If
    
    ' 等待页面加载完成，接下来就可以抓数据了
    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' ----------------------
    ' 这里添加你的数据抓取和发邮件代码
    ' 比如：ie.document.getElementById("xxx").Value
    ' ----------------------
    
    ' 收尾工作
    ie.Quit
    Set ie = Nothing
End Sub

这个方案的好处是：

• 不依赖窗口标题，完全避免任务计划中窗口切换导致的焦点错误
• 用SendMessage直接给输入框赋值，不会因为弹窗没激活就把密码输到别的地方
• 兼容中英文系统的登录按钮，通用性强

方案二：配置IE自动登录（最简单，适合有权限的场景） #

如果你的Windows账号本身就有访问这个内网网站的权限，那直接让IE自动登录就行，根本不用处理弹窗：

1. 打开IE，点击右上角的「工具」→「Internet选项」
2. 切换到「安全」标签，选中「本地Intranet」，点击「站点」→「高级」
3. 把你的内网网站地址（比如https://XYZ.net）添加到列表里，点击「确定」
4. 回到「安全」标签，点击「自定义级别」，找到「用户身份验证」→「登录」，选择「自动使用当前用户名和密码登录」
5. 保存设置后，VBA打开IE访问网站时会自动用当前Windows账号登录，完全跳过弹窗

这个方案零代码，最省心，优先试试这个！

方案三：优化原有VBS脚本的激活逻辑（兼容现有代码） #

如果你不想改太多现有代码，那可以优化你的Logon.vbs，先精准定位到你的IE窗口，再发送按键：

Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' 找到咱们打开的那个IE进程（根据命令行里的网址判断）
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='iexplore.exe'")
For Each objProcess In colProcesses
    If InStr(objProcess.CommandLine, "XYZ.aspx") > 0 Then
        objShell.AppActivate objProcess.ProcessId ' 用进程ID激活，比标题靠谱
        Exit For
    End If
Next

' 等弹窗加载出来
WScript.Sleep 2000
' 发送用户名→Tab→密码→回车
objShell.SendKeys "你的用户名"
objShell.SendKeys "{TAB}"
objShell.SendKeys "你的密码"
objShell.SendKeys "{ENTER}"

不过这个方案还是依赖SendKeys，任务计划执行时如果有其他窗口抢焦点，还是可能出问题，不如方案一稳定。

内容的提问来源于stack exchange，提问作者user1612851