────────────────────────────────────────────── set WshShell= WScript.CreateObject(“WScript.Shell”) WshShell.AppActivate"哈哈" for i=1 to 20 WScript.Sleep 100 WshShell.SendKeys “^v” WshShell.SendKeys i WshShell.SendKeys “%s” Next ────────────────────────────────────────────── 有人如果想要连续给别人发10条以上的信息，你就可以用此代码代劳你的手。 代码里面加粗的数字20你可以随你的意愿调节数字大小。微信，QQ都可以用（本人已经亲自试过了） 用法 在微或者QQ上面你先输入你要发的消息，然后点击右键复制，复制好后双击你写好的vbs，最后点一下你要发消息的消息框，就完成了。

注意 文本格式为vbs