技术交流群38684808
     大家好  现在没什么事就随便做一个教程    今天我们就用记事本来做一 个QQ强制聊天器
     我们大家在网上看到用VB做强制聊天器一定不少吧   当然我这个比较方便
     不过你先要懂VBS代码    废话不说了
     先来看看我做的效果怎么样吧
     呵呵  还是可以用的 哦  
     因为时间关系我就不在重复在做一个  很简单的
    
ON ERROR RESUME NEXT

Dim QQ_NUM
if wscrip.arguments.count<l then
     QQ_NUM=Inputbox(""&vbcr&vbr&"欢迎大家进人黑暗空间：http://573214738.q-zone.qq.com"&vbcr&vbr&"","QQ强制聊天器VBS","输入你想要聊天的QQ号码，如：123456789")
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
      就记事本把这代码复制进去  把格式改VBS
就可以用了   教程就到这里了