和你在一起 陈绮贞:大家帮我分析一下这些代码~~~

这是用什么软件编的?
那里有下载和教程?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

if $CmdLine[0] = "" then
MsgBox(8192, "http://soft.netnest.com.cn","自动安装脚本 by boom")
exit
endif
if $CmdLine[1] = "/office" then
office()
endif
if $CmdLine[1] = "/wb" then
wb()
endif
if $CmdLine[1] = "/kmp" then
kmp()
endif

if $CmdLine[1] = "/kav" then
kav()
endif
if $CmdLine[1] = "/upkav" then
upkav()
endif
if $CmdLine[1] = "/ABC" then
ABC()
endif

if $CmdLine[1] = "/dos" then
dos()
endif
if $CmdLine[1] = "/vislan" then
vislan()
endif
if $CmdLine[1] = "/kavw" then
kavw()
endif
if $CmdLine[1] = "/sdxp" then
sdxp()
endif
if $CmdLine[1] = "/qcg" then
qcg()
endif
if $CmdLine[1] = "/jsk" then
jsk()
endif
if $CmdLine[1] = "/jkj" then
jkj()
endif
if $CmdLine[1] = "/jkc" then
jkc()
endif
if $CmdLine[1] = "/gbc" then
gbc()
endif

func office()
WinMinimizeAll()
run("office2003.exe")
WinWaitActive("Microsoft Office 2003 安装")
WinActive("Microsoft Office 2003 安装")
sleep(1000)
WinWaitActive("Microsoft Office 2003 安装","用户信息")
WinActive("Microsoft Office 2003 安装","用户信息")
controlclick("Microsoft Office 2003 安装","用户信息","Button1")
WinWaitActive("Microsoft Office 2003 安装","安装类型")
WinActive("Microsoft Office 2003 安装","安装类型")
controlclick("Microsoft Office 2003 安装","安装类型","Button5")
controlclick("Microsoft Office 2003 安装","安装类型","Button7")
WinWaitActive("Microsoft Office 2003 安装","请选择要安装的 Microsoft Office 2003 应用程序")
WinActive("Microsoft Office 2003 安装","请选择要安装的 Microsoft Office 2003 应用程序")
controlclick("Microsoft Office 2003 安装","请选择要安装的 Microsoft Office 2003 应用程序","Button6")
controlclick("Microsoft Office 2003 安装","请选择要安装的 Microsoft Office 2003 应用程序","Button10")
WinWaitActive("Microsoft Office 2003 安装","摘要")
WinActive("Microsoft Office 2003 安装","摘要")
controlclick("Microsoft Office 2003 安装","摘要","Button1")
WinWaitActive("Microsoft Office 2003 安装","安装已完成")
WinActive("Microsoft Office 2003 安装","安装已完成")
controlclick("Microsoft Office 2003 安装","安装已完成","Button2")
WinMinimizeAllUndo()
exit
………………
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
谢了!!!