如何在Visual Basic控制台程序中模拟回车键按下以自动关闭弹窗

嘿，我懂你的困扰——VB控制台应用确实没有内置的SendKeys功能，但咱们可以通过调用Windows原生API来搞定模拟回车键的需求，具体步骤和代码如下：

1. 声明所需的Windows API函数 #

首先得在代码里导入user32.dll里的几个关键函数，用来定位目标窗口、激活它并发送按键消息：

Imports System.Runtime.InteropServices

Module KeySimulator
    ' 根据窗口标题查找窗口句柄
    <DllImport("user32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
    Private Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function

    ' 将目标窗口设置为前台活动窗口
    <DllImport("user32.dll", SetLastError:=True)>
    Private Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
    End Function

    ' 向指定窗口发送消息
    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
    Private Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    ' 回车键对应的消息和按键常量
    Private Const WM_KEYDOWN As UInteger = &H100
    Private Const WM_KEYUP As UInteger = &H101
    Private Const VK_RETURN As Integer = &HD
End Module

2. 封装模拟回车的方法 #

接下来写一个易用的方法，用来找到目标保存窗口并发送回车键：

Public Sub SendEnterToWindow(windowTitle As String)
    ' 根据窗口标题查找窗口句柄
    Dim windowHandle As IntPtr = FindWindow(Nothing, windowTitle)
    
    If windowHandle <> IntPtr.Zero Then
        ' 把窗口切换到前台，确保按键能被接收
        SetForegroundWindow(windowHandle)
        
        ' 模拟按下再释放回车键的完整动作
        SendMessage(windowHandle, WM_KEYDOWN, New IntPtr(VK_RETURN), IntPtr.Zero)
        SendMessage(windowHandle, WM_KEYUP, New IntPtr(VK_RETURN), IntPtr.Zero)
        
        Console.WriteLine("已成功向目标窗口发送回车键")
    Else
        Console.WriteLine("没找到目标保存窗口哦")
    End If
End Sub

3. 在主程序中调用（结合定时逻辑） #

你可以把这个方法和定时器结合，实现每15分钟自动检查并发送回车的逻辑，示例如下：

Imports System.Timers

Sub Main()
    ' 替换成你实际遇到的保存窗口标题
    Dim targetWindowTitle As String = "保存更新后结构"
    
    ' 设置15分钟执行一次的定时器
    Dim autoTimer As New Timer(15 * 60 * 1000) ' 毫秒为单位
    AddHandler autoTimer.Elapsed, Sub() SendEnterToWindow(targetWindowTitle)
    autoTimer.Start()
    
    Console.WriteLine("自动回车服务已启动，按任意键退出...")
    Console.ReadLine()
    autoTimer.Stop()
End Sub

几个要注意的点 #

• 窗口标题要准确：如果保存窗口的标题有变化，或者你不确定，可以用Spy++这类工具查看窗口的类名，然后把FindWindow的第一个参数换成类名来查找。
• 权限问题：如果你的目标软件需要管理员权限运行，那你的控制台应用也得右键以管理员身份启动，不然可能找不到或激活不了窗口。
• 定时器线程：System.Timers.Timer是后台线程触发的，不会阻塞控制台的主线程，适合这种定时任务场景。

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