基于Visual Basic实现VPN自动登录的焦点控制与事件驱动问题咨询

我之前帮不少开发者处理过类似的VB自动操作第三方窗口的需求，你的两个问题本质上都是因为没有和VPN窗口的控件做精准交互导致的，下面给你具体的解决方案：

一、精准设置输入字段的焦点 #

要把焦点定位到指定输入框，不能只靠假设光标位置，得通过Windows API找到目标窗口和控件的句柄，再强制设置焦点：

1. 首先需要声明几个关键的Windows API函数，放在VB模块里：

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

2. 然后编写代码找到VPN窗口，再定位到用户名输入框并设置焦点：

Sub SetFocusToVPNUsername()
    Dim vpnWindowHandle As Long
    Dim usernameInputHandle As Long
    
    ' 先找到VPN主窗口的句柄，这里需要替换成你VPN窗口的标题或类名
    vpnWindowHandle = FindWindow(vbNullString, "你的VPN窗口标题")
    
    If vpnWindowHandle <> 0 Then
        ' 激活VPN窗口
        SetForegroundWindow vpnWindowHandle
        ' 找到用户名输入框的句柄，需要根据VPN控件的实际类名/标题调整参数
        usernameInputHandle = FindWindowEx(vpnWindowHandle, 0, "Edit", vbNullString)
        
        If usernameInputHandle <> 0 Then
            ' 设置焦点到输入框
            SetFocus usernameInputHandle
        Else
            MsgBox "找不到用户名输入控件，请检查控件类名"
        End If
    Else
        MsgBox "找不到VPN窗口，请确认VPN已启动"
    End If
End Sub

注意：你需要用Spy++工具（VS自带）查看VPN窗口和输入控件的类名、标题，替换代码里的对应参数

二、转向事件驱动的可靠登录流程 #

完全摆脱对光标位置的依赖，直接和每个控件交互，模拟用户输入和点击操作：

在刚才的API基础上，再添加发送文本和点击按钮的API声明：

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SETTEXT = &HC
Const BM_CLICK = &HF5

然后编写完整的登录流程：

Sub AutoLoginVPN()
    Dim vpnWindowHandle As Long
    Dim usernameInputHandle As Long
    Dim passwordInputHandle As Long
    Dim loginBtnHandle As Long
    
    ' 定位VPN窗口
    vpnWindowHandle = FindWindow(vbNullString, "你的VPN窗口标题")
    If vpnWindowHandle = 0 Then
        MsgBox "VPN窗口未找到，请先启动VPN客户端"
        Exit Sub
    End If
    
    ' 激活窗口
    SetForegroundWindow vpnWindowHandle
    
    ' 定位用户名输入框并填入内容
    usernameInputHandle = FindWindowEx(vpnWindowHandle, 0, "Edit", vbNullString)
    If usernameInputHandle <> 0 Then
        SendMessage usernameInputHandle, WM_SETTEXT, 0, ByVal "你的VPN用户名"
    Else
        MsgBox "用户名输入框未找到"
        Exit Sub
    End If
    
    ' 定位密码输入框并填入内容（注意：有些VPN密码框类名可能不是Edit，需要用Spy++确认）
    passwordInputHandle = FindWindowEx(vpnWindowHandle, usernameInputHandle, "Edit", vbNullString)
    If passwordInputHandle <> 0 Then
        SendMessage passwordInputHandle, WM_SETTEXT, 0, ByVal "你的VPN密码"
    Else
        MsgBox "密码输入框未找到"
        Exit Sub
    End If
    
    ' 定位登录按钮并模拟点击
    loginBtnHandle = FindWindowEx(vpnWindowHandle, 0, "Button", "登录")
    If loginBtnHandle <> 0 Then
        SendMessage loginBtnHandle, BM_CLICK, 0, 0
    Else
        MsgBox "登录按钮未找到"
        Exit Sub
    End If
End Sub

这种方式完全不需要关心光标位置，通过直接操作控件句柄实现事件驱动的交互，稳定性比依赖光标位置高得多。

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