看下下面VBS代码

on error goto 0
dim ws,str,title,val,time
set ws=wscript.createobject("wscript.shell")
title=inputbox("请输入要攻击的好友昵称:","QQ攻击器")
if title="" then
wscript.Quit
end if
If ws.appactivate("与 " & title & " 交谈中")<>True Then
MsgBox "请确认目标窗口已经打开然后再运行本脚本"
WScript.Quit
end if
str=inputbox("请输入要发送的内容:","QQ攻击器","hello")
if str="" then
wscript.quit
end if
time=int(inputbox("请输入发送的间隔时间(单位秒)：","QQ攻击器","1"))*1000
val=msgbox("确定是否要发送？(关闭目标窗口自己关闭该脚本)",4)
select case val
case 6
do
result=ws.appactivate("与 " & title & " 交谈中") or ws.appactivate(title & " - 正在输入")
If result<>True Then
WScript.Quit
end if
wscript.sleep time
ws.sendkeys str & "{ENTER}"
l

帮我看下下面的JSP代码对不对 帮忙看下下面java代码为什么不能执行？ 帮我看下下面的代码怎么运行不出啊 请各位看下下面的代码是什么意思？能否写上注释？谢谢 java 代码 。请各路大侠帮忙看下下面的代码是什么意思？ 麻烦给写上注释。谢谢 帮我看下下面的手机 帮我看下下面几个配置 高手帮忙看下下面的配置 帮我看下下面这段ASP代码！ 帮我解释下下面的代码吧