activexcontrol.htm代码如下:

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

这样就可以去掉htm的本地验证了。

二、hta接收命令行参数

书中的代码我估计有错,不可能成功,我研究了一下,hta2应当这样写:

<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> 

在命令行下:hta2 lcx 就会弹出lcx的对话框

上一篇: 脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
下一篇: vbscript 三个数比较大小的实现代码