[顶]QQ强行聊天代码
tencent://message/?uin=强聊的QQ号本文链接:[url=http://user.qzone.qq.com/94724910/blog/1206097735]http://user.qzone.qq.com/94724910/blog/1206097735[/url]
[qq]94724910[/qq]
汗
这个我已经发过啦,把这些应该输入运行中,别忘啦我也来一个
[url]http://wpa.qq.com/msgrd?V=1&Uin=[/url]********&Site=ioshenmue&Menu=yes*******处添QQ号 ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox(""&vbCr&vbCr&"Hello谢谢大家的使用,我的QQ空间:[url]http://user.qzone.qq.com/280097765[/url]"&vbCr&vbCr&"","QQ强行聊天器 by LY","输入你想要聊天的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+"&Site=ioshenmue&Menu=yes",0
回复 4# 的帖子
::16:: ::16:: ::16:: 保存什么格式!!!!!! BAT::08:: ::08:: ::08:: ::08:: ::08::页:
[1]
