Set WshShell= WScript.CreateObject("WScript.shell")
'激活指定窗口，引号内是微信聊天窗口标题
WshShell.AppActivate "文件传输助手"
'循环{N}次
for i = 1 to 99
    '等待100毫秒
    Wscript.sleep 100
    '发送快捷键 Ctrl+V 粘贴
    WshShell.SendKeys "^v"
    '发送回车发送消息
    WshShell.SendKeys "{ENTER}"
next