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