利用代码自动发送qq消息[也可以用作强制聊天]_电脑百科

ZxID：4107540

等级: 大校

______ 习惯一个人孤独

举报只看楼主使用道具楼主发表于: 2010-05-24 0

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=722983&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true

最后双击就可以送了

有的人说重命名了还是TXT类型的文件双击也没反映
那是你电脑设置了隐藏已知文件类型的扩展名
把前面的对勾去掉就行了

方法：
我的电脑-----工具---文件夹选项--查看好了

办法就是如此简单一个很小的技巧知道的就算了。不知道的可以拿来玩玩哈哈