求QQ强行聊天的代码，没种语言的代码都要

如题所述

Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox("by:作者 QQ：作者QQ"&vbCr&vbCr&" "&vbCr&vbCr&" ","QQ强行聊天器","默认QQ")
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 "http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM,0
-------------------------------------------------
的把上面的代码复制到记事本里面，保存再把文件拓展名改成VBS就可以了

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/m88m8s8p.html