QQ强制聊天代码.docxVIP

1.QQ 强制聊天代码，把代码中的“********”星号换成你想与其聊天的 QQ 号即可。 代码如下： /msgrd?V=1amp;Uin=********amp;Site=ioshenmueMenu=yes 使用方法：把代码中星号换成你想与其聊天的 QQ 号后复制到浏览器的地址栏处即可。无论他是否你的好友，你无须加他为好友就能给他发 QQ 消息。 2. 第一步：在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码： ON ERROR RESUME NEXT Dim QQ_NUM if Wscript.arguments.count1 then QQ_NUM=InputBox(vbCrvbCrQQ 强行聊天器vbCrvbCr,QQ 强行聊天器VBS 实现,输入你想要聊天的QQ 号码，如：123456789) if QQ_NUM= then Wscript_.quit end if else VQQ_NUM = Wscript.arguments.Item(0) end if set ws=wscript.createobject(wscript.shell) ws.run /msgrd?V=1Uin=+QQ_NUM+Site=ioshenmueMenu=yes,0 第二步：当输入完毕之后，点击“文件”，然后选择“另存为”，选择保存名字为“QQ 强行聊天器 VBS 实现.vbs”（不外加引号）。保存类型为“所有文件”。这时在保存的地方双击打开这个文件，就可以在输入的对话框中输入任意 QQ 聊天了。前提是你在本机上已经打开 QQ 了。 说明：上面是一段 VBS 代码具体意思如下： ON ERROR RESUME NEXT 如果程序发生错误继续执行 Dim QQ_NUM 定义变量 inputbox 界面中默认显示内容，大家可以修改 对话框内容 if QQ_NUM= then 检测用户的输入是否为空，如果为空 Wscript_.quit 退出脚本 tencent://Message/?Menu=YESUin= 此处替换为您的 qq 号码websiteName= 把上面那个写入你要聊天的 QQ 号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页. tencent://Message/?Menu=YESUin= 此处替换为您的 qq 号码websiteName= 把上面那个写入你要聊天的 QQ 号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页. 有个小技巧,在地址栏输入 “ /msgrd?Uin=加明星的 QQ 号 ”就能和他聊天啦!以上 QQ 大多数是加不上好友的!