1.首先然桌面上建个文本文档
把下面代码粘贴进去保存:
On Error Resume Next
str="利用代码自动发送QQ消息/se"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
WshShell.run "tencent://message/?Menu=yes&uin=451644593&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep 3000
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
代码中的这一行是所发送的内容，可修改:
str="利用代码自动发送QQ消息/se"
/se 是表情可修改
如“微笑”就修改为 /wx
把红色部分中的QQ改为你想要发送的QQ
WshShell.run "tencent://message/?Menu=yes&uin=451644593&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
最后双击就可以送了
有的人说重命名了还是TXT类型的文件双击也没反映
那是你电脑设置了隐藏已知文件类型的扩展名
把前面的对勾去掉就行了
方法：
我的电脑-----工具---文件夹选项--查看
