set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
WScript.Sleep 3000
for i=1 to 3
WScript.Sleep 300
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next
WScript.Sleep 3000是延迟多少毫秒
for i=1 to 3是发送多少次,发送100次就是for i=1 to 100
WScript.Sleep 300是发送消息间隔
使用方法:
第一步:在桌面创建一个文本文档
第二步:将改代码复制到文本里面
第三步:改文本后缀为.vbs
第四步:打开软件复制想要聊天的内容
第五步:双击后选中聊天软件的聊天框等待第一个延迟时间过去就会自动发送你复制的内容