ON ERROR RESUME NEXT  Dim QQ_NUM  if Wscript.arguments.count<1 then      QQ_NUM=InputBox(""&vbCr&vbCr&"久久乡情"&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 "tencent://message/?uin="+QQ_NUM+"&Site=久久乡情&Menu=yes",0 保存为XXX.vbs文件名 qq273698471 提供
|