QQ临时聊天工具的VB代码
答案:1 悬赏:30 手机版
解决时间 2021-04-16 05:05
- 提问者网友：相思似海深
- 2021-04-15 13:00
QQ临时聊天工具的VB代码
最佳答案
- 五星知识达人网友：青灯有味
- 2021-04-15 14:30
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox(""&vbCr&vbCr&"QQ：648561277 "&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+"&Site=ioshenmue&Menu=yes",0
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯