HTA文件去除html控件认证和接收命令行参数

html> 
head> 
title>Sample HTML Application one/title> 
/head> 
body onload="Viewer.document.location.href='activexcontrol.htm'"> 
iframe id="Viewer" application="yes">!--这里是去掉验证的关键--> 
/iframe> 
/body> 
/html> 

script language="VBSCRIPT"> 
Dim FileSystem 
' Creates the FileSystemObject 
Set FileSystem = CreateObject("Scripting.FileSystemObject") 
/script> 

HTA:APPLICATION 
ID="MySampleHTA" 
Caption="yes"> 
html> 
head> 
title>Sample HTML Application two/title> 
/head> 
body> 
script language="VBScript"> 
cmdLineArray = Split(MySampleHTA.commandLine)‘这是把命令中的参数变成数组 
MsgBox cmdLineArray(UBound(cmdLineArray)) '接收最后一个参数 
a=document.getElementById("MySampleHTA").commandLine '这样写法是一个字符串，不是数组 
MsgBox TypeName(a)"--"a '验证 
/script> 
/body> 
/html>