写在前面
用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