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

社区服务
高级搜索
猴岛论坛电脑百科利用代码自动发送qq消息[也可以用作强制聊天]
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
4个回复

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

楼层直达
Mua、诺熙

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类型的文件双击也没反映
那是你电脑设置了隐藏已知文件类型的扩展名
把前面的对勾去掉就行了

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



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

 

浮华一场梦ゝ

ZxID:7956186

等级: 少校
级别:管理员

举报 只看该作者 沙发   发表于: 2010-05-25 0
哥发送的不是消息  是寂寞。
_____唯美

ZxID:11068515

等级: 上校

举报 只看该作者 板凳   发表于: 2010-05-25 0
不错!
`_____★唯美


〆 ˉ 壞壊

ZxID:9778602

等级: 大将
我爱你

举报 只看该作者 地板   发表于: 2010-05-25 0
谢谢分享
没有人会记得我,潜水是我唯一的选择
北方游

ZxID:8186843

等级: 上等兵
举报 只看该作者 4楼  发表于: 2010-06-23 0
创意哦!楼主高人啊 谢
« 返回列表
发帖 回复