效果
源码
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.AppActivate "这是你的聊天对象"
for i=1 to 50
WScript.sleep 350
WshShell.Sendkeys "^v"
WshShell.Sendkeys i
WshShell.Sendkeys "%s"
Next
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.AppActivate "这是你的聊天对象"
for i=1 to 50
WScript.sleep 350
WshShell.Sendkeys "^v"
WshShell.Sendkeys i
WshShell.Sendkeys "%s"
Next