比较好玩的一个教程
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=722983&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep 3000
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
2.重命为VBS类型文件
代码中的这一行是所发送的内容，可修改:
str="利用代码自动发送QQ消息/se"
/se 是表情可修改
如“微笑”就修改为 /wx
把红色部分中的QQ改为你想要发送的QQ
WshShell.run "tencent://message/?Menu=yes&uin=
553089120&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
最后双击就可以送了
有的人说重命名了还是TXT类型的文件双击也没反映
那是你电脑设置了隐藏已知文件类型的扩展名
把前面的对勾去掉就行了
方法：
我的电脑-----工具---文件夹选项--查看
好了
办法就是如此简单 一个很小的技巧 知道的 就算了。 不知道的 可以拿来玩玩 哈哈
不知道 可以加我Q问我 553089120
写这么多很累 申请点亮
