使用vbs连续快速发消息，以下数字可更改！，这相当于连续粘贴发消息

On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 5000 wscript.sleep 1 wsh.AppActivate("emmm") wsh.sendKeys "^v" wsh.sendKeys str(i) wsh.sendKeys "%s" next wscript.quit`