制作QQ强行聊天！

 

需要：一个记事本，和一窜代码，打开记事本，把代码复制进去后！

 

代码：

 

ON ERROR RESUME NEXT

Dim QQ_NUM
if wscrip.arguments.count<l then
     QQ_NUM=Inputbox(""&vbcr&vbr&"━━━━━━━━━━━━━━━━━━━▕作者:就是这么拽　　　　　 拽　　▕　▕有事Q我:123099002　　 　　　拽　▕　▕本网站:http://911ok.sgsg.cn　 拽▕　━━━━━━━━━━━━━━━━━━━"&vbcr&vbr&"","就是这么拽『QQ强行聊天器』","佛祖曰:功夫再高，也怕菜刀!装备再叼，一刀就倒!.")
if QQ_NUM="" then
wscript_.quit
end if
wlse
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+"&site=ioshenmue&menu=yes",o

 

按[文件] 选择[另存为]

 

另存为：记事本 .txt 格式 改为 .vbs 格式 在保存

 

点击它你想强行对方的QQ号

教程完毕

注意：把佛祖曰：的全部字去掉在输入QQ号