写在前面

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编码保存

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