写在前面

VBS脚本来快速粘贴回车发送消息

很赞

输入执行次数

输入执行次数

代码实现

Option Explicit ' 创建输入对话框获取循环次数 Dim objShell, loopCount, i Set objShell = CreateObject("WScript.Shell") ' 获取用户输入的循环次数 loopCount = InputBox("请输入要循环执行的次数:", "输入次数") ' 验证输入是否为数字 If Not IsNumeric(loopCount) Or loopCount <= 0 Then MsgBox "请输入一个有效的正整数!", vbExclamation, "输入错误" WScript.Quit End If ' 给用户准备时间 MsgBox "准备开始执行,倒计时3秒后开始,请将鼠标焦点切换到需要操作的窗口。", vbInformation, "准备开始" WScript.Sleep 3000 ' 等待3秒 ' 循环执行Ctrl+V和回车 For i = 1 To loopCount ' 模拟Ctrl+V (粘贴) objShell.SendKeys "^v" WScript.Sleep 100 ' 等待100毫秒 ' 模拟按下回车键 objShell.SendKeys "{ENTER}" WScript.Sleep 100 ' 等待100毫秒 Next MsgBox "操作已完成,共执行了 " & loopCount & " 次粘贴和回车操作。", vbInformation, "完成"

注意,用记事本保存,并且选择对应编码为:ANSI

ANSI编码保存

ANSI编码保存

最后修改:2025 年 07 月 06 日
如果您对各种技术博客文章感兴趣,欢迎关注拓行公众号,分享各种专业技术知识~