本文目录一览：
关于QQ强制聊天代码
代码 ：;Uin=********Site=ioshenmueMenu=yes
使用方法：把代码中的“********”星号换成你想与其聊天的QQ号后复制到浏览器的地址栏处即可。无论他是否你的好友，你无须加他为好友就能给他发QQ消息。
qq强制聊天代码原理
1.QQ强制聊天代码，把代码中的“********”星号换成想与其聊天的QQ号即可。
代码如下：;Uin=********amp;Site=ioshenmueMenu=yes
使用方法：把代码中星号换成想与其聊天的QQ号后复制到浏览器的地址栏处即可。无论他是否是好友，无须加好友就能给对方发QQ消息。
2.
第一步：在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码：
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count1 then
QQ_NUM=InputBox(""vbCrvbCr"QQ强行聊天器"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 ";Uin="+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 退出脚本
3.tencent://Message/?Menu=YESUin=此处替换为您的qq号码websiteName=im.qq.com
把上面那个写入要聊天的QQ号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.
4.tencent://Message/?Menu=YESUin=此处替换为自己的qq号码websiteName=im.qq.com
把上面那个写入你要聊天的QQ号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.
5.有个小技巧,在地址栏输入 “ wpa.qq.com/msgrd?Uin=加明星的QQ号 ”就能和对方聊天啦!以上QQ大多数是加不上好友的!
手机QQ的整人代码大全
第一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在30秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
QQ聊天可以用代码吗？怎么用？
QQ强制聊天代码，把代码中的红色的“********”星号换成你想与其聊天的QQ号即可。
代码如下：;Uin=********Site=ioshenmueMenu=yes
使用方法：把代码中的红色的“********”星号换成你想与其聊天的QQ号后复制到浏览器的地址栏处即可。无论他是否你的好友，你无须加他为好友就能给他发QQ消息。
注：强制可不好，不过用用也无妨。
有什么在QQ聊天中用的vbs整人代码？
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit