UC知道谁帮我解释一下这段VB代码
来源：百度知道 编辑：UC知道 时间：2024/06/10 14:06:10
这是一段QQ强制聊天的代码：
ON ERROR RESUME NEXT （这行要解释）
Dim QQ_NUM
if wscrip.arguments.count<l then （wscrip.arguments.count这个不明白什么来的）
QQ_NUM=Inputbox(""&vbcr&vbr&"请输入QQ号码："&vbcr&vbr&"","QQ强制聊天器VBS","")
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
希望逐行解释啦，谢谢大家
ON ERROR RESUME NEXT （这行要解释）
Dim QQ_NUM
if wscrip.arguments.count<l then （wscrip.arguments.count这个不明白什么来的）
QQ_NUM=Inputbox(""&vbcr&vbr&"请输入QQ号码："&vbcr&vbr&"","QQ强制聊天器VBS","")
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
希望逐行解释啦，谢谢大家
ON ERROR RESUME NEXT 【如果没有错误继续运行】
Dim QQ_NUM
if wscrip.arguments.count<l then 【wscrip.arguments.count应该是腾讯的一个锁定ip的东西，不太清楚】
QQ_NUM=Inputbox(""&vbcr&vbr&"请输入QQ号码："&vbcr&vbr&"","QQ强制聊天器VBS","") 【这个就不用解释了吧】
if QQ_NUM="" then
wscript_.quit
end if 【如果qq号码没有填写则退出wscript文件的运行】
wlse 【这个应该是else吧】
vQQ_NUM = wscript.arguments.item(0)
end if 【写了QQ号码就关联到那个wscript.arguments.item所锁定的服务器（也可以理解成我上面说的IP哈）】
set ws=wscript.createobject("wscript.shell")
ws.run"http://wpa.qq.com/msgrd?v=1&uin="+QQ_num+"&site=ioshenmue&menu=yes",o【最后这个是运行那个程序，并打开这个网页】
因为我不知道这段代码在哪里出现的，所以只能给你大概翻译下~~可能不准哈。
谢谢HBpcbar指点哈：wscrpt 是某个window脚本对象
wscrpt 是window脚本对象。楼上的可以在重新注释以下。呵呵