command() 可以返回命令行参数。
检查各个参数再决定程序是否可以运行.sub main()
dim strcmd as string
    strcmd= command()
    if ... then    else
        end
    endif
end sub