HTA程序:VBS/JS脚本GUI

原文地址HTA程序:VBS/JS脚本GUI

1.概述

  HTA全称Html Application,在Windows中由mshta.exe加载执行,是一种本地程序。可使用html元素来构建界面,用JS或VBS来构建执行逻辑,从而强化Windows脚本的交互能力与友好性。只要将Html文件扩展名改为.hta即可将html当做一个hta程序来运行。

2.<HTA:APPLICATION>元素

  <HTA:APPLICATION>元素必须全大写,其中的APPLICATION不可少;它拥有一些属性【它们是只读的】,用以来控制HTA进程和窗口的一些特性,具体如下:

【1】applicationName:string=>设置HTA程序的名称,在singleInstance属性设置为"Yes"时有用

【2】border:enum=>设置HTA窗口的边框类型,默认值Thick

 所有允许的值:                  Thick         粗边框

                                       Dialog       对话框【大小不可调整】

                                       None         无边框【无标题栏】

                                       Thin          窄边框

【3】borderSytle:enum=>设置HTA窗口的边框风格,默认值是Normal

 所有允许的值:                  Normal     普通

                                       Complex  凹凸格式组合边框

                                       Raised      凸出的3D边框

                                       Static        3D边框格式

                                       Sunken     凹进的3D边框

【4】caption:Yes/No=>设置HTA窗口是否显示标题,默认值为Yes

【5】commandLine:string=>此属性保存了HTA程序的启动参数【无法通过在<HTA:APPLICATION>元素中设置来定义,是受调用传递的参数控制的】,参数可以在Script块中通过<Id>.commandLine来引用,如本程序则是Test.commandLine。它的各个参数之间以空格分隔;包含空格的参数请在调用时,用引号引起来,否则会被当成多个参数;第一个参数总是HTA程序的文件路径;其参数需要自己手动解析;因为这个属性的存在,你可以方便地使用JS/VBS总调用各种HTA界面,而后通过window.onunload来记录下结果,以方便总调程序获取HTA交互结果

【6】contextMenu:Yes/No=>是否显示右键上下文菜单

【7】icon:stirng=>设置应用程序的图标文件路径,须是有效的ico图标文件,如icon="c:\\a.ico"

【8】innerBorder:Yes/No=>是否显示内部边框的3D边界

【9】navigable:Yes/No=>是否在本窗口加载新navigate(url)的链接,当navigable=Yes时,window.navigate(url)方法加载的页面将在本HTA窗口中加载,而不是新的浏览器页面

【10】maximizeButton:Yes/No=>是否显示最大化按钮,默认值Yes

【11】minimizeButton:Yes/No=>是否显示最小化按钮,默认值Yes

【12】scroll:Yes/No=>是否在页面右侧显示垂直滚动条,默认值是Yes

【13】scrollFlat:Yes/No=>设置滚动条是3D(No)或者平面的(Yes)

【14】selection:Yes/No=>设置内容是否可以被鼠标或键盘选中

【15】showInTaskbar:Yes/No=>是否在任务栏显示任务图标,默认值Yes

【16】singleInstance:Yes/No=>是否同时只允许有一个运行实例【进程】,默认值No。当第二次启动同一个HTA程序时, mshta.exe通过上面applicaitonName来区分是否名称已占用

【17】sysMenu:Yes/No=>是否允许显示标题栏右键菜单,默认值是Yes

【18】version:string=>设置应用程序的版本,如"1.0",默认值为""

【19】windowState:enum=>设置HTA窗口的显示类型,默认值为Normal

所有允许的值:     Normal              常规

                        Minimize             最小化

                        Maximize            最大化

3.HTA窗口事件

窗口级事件如下:

window.onafterprint                 此事件在HTA窗口的打印工作完成之后发生

window.onbeforeprint              此事件在HTA窗口的打印工作开始之前发生

window.onbeforeunload           此事件在HTA窗口被销毁前发生

window.onblur                        此事件在将键盘焦点从HTA窗口移开时发生

window.onerror                      此事件在HTA程序出现错误时发生

window.onfocus                     此事件在HTA窗口获得焦点时发生

window.onhelp                       此事件在HTA窗口有焦点时按下F1帮助键时发生

window.onload                       此事件在HTA窗口被成功加载后发生

window.onresize                     此事件在HTA窗口的大小改变时发生

window.onscroll                      此事件在对HTA窗口执行滚动操作时发生

window.onunload                    此事件在HTA窗口被销毁时发生,切记此时alert不再可用

4.可用与不可用对象

  HTA中脚本宿主对象WScript/WshArguments/WshNamed/WshUnnamed对象是无法使用的,其它的如WshShell/WshEnvironment/WshShortcut/WshSpecialFolders/WshUrlShortcut/WshNetwork对象等依然可用。

  脚本运行时对象,即Dictionary和Scripting.FileSystemObject对象仍然可用,可以通过window.unload事件来将界面交互表单用文件记录下来,以方便多脚本协作。

     HTA程序的顶层对象是HtmlWindow2对象,参见Microsoft HTML Object Library库。

     可通过<id>.<AttributeName>访问本HTA程序的各个<HTA:APPLICATION>属性项。

5.几个用得着的自编功能补充函数

【1】GetCmdArgs从命令行参数中解析出参数

 [1]JS版本


 1 function GetCmdArgs(cmdArgs)
 2 {
 3 //本函数解析命令行参数
 4 //1.左引号前面必须是空格,否则引号应视作参数内容,而非边界
 5 //2.右引号后面必须是空格,否则引号应视作参数内容,而非边界
 6 //3.最后面的那个参数,如果引号边界没有配对,即无右引号,那么
 7 //  最后的那个参数的左引号当重新认定为内容,而非边界
 8 //4.多个空格间隔两个参数,防止后面的空格间隔符被归入内容中
 9 //5.防止命令行参数最后有多个无意义空格的情况
10     var args=new Array(''),isComplete=true
11     for(var i=0;i<cmdArgs.length;i++)
12     {
13         var c=cmdArgs.charAt(i);
14         if(c=='"')
15             if(isComplete)
16                 if(i==0)
17                     isComplete=!isComplete;
18                 else
19                     if(cmdArgs.charAt(i-1)==" ")
20                         isComplete=!isComplete;
21                     else
22                         args[args.length-1]+=c;
23             else 
24                 if(i==cmdArgs.length-1)
25                     isComplete=!isComplete;
26                 else
27                     if(cmdArgs.charAt(i+1)==" ")
28                         isComplete=!isComplete;
29                     else
30                         args[args.length-1]+=c;
31 
32         else
33             if(c==" "&&isComplete&&args[args.length-1]!="")
34                 args.push('')
35             else
36                 args[args.length-1]+=c;
37     }
38     if(!isComplete)
39     {
40         var arg='"'+args.pop();
41         if(arg.indexOf(" ")!=-1)
42             args=args.concat(arg.split(" "));
43     }
44     if(args[args.length-1]=="")
45         args.pop();
46     return args
47 }

[2]VBS版本


 1 Function GetCmdArgs(cmdArgs)
 2 '本函数解析命令行参数
 3 '1.左引号前面必须是空格,否则引号应视作参数内容,而非边界
 4 '2.右引号后面必须是空格,否则引号应视作参数内容,而非边界
 5 '3.最后面的那个参数,如果引号边界没有配对,即无右引号,那么
 6 '  最后的那个参数的左引号当重新认定为内容,而非边界
 7 '4.多个空格间隔两个参数,防止后面的空格间隔符被归入内容中
 8 '5.防止命令行参数最后有多个无意义空格的情况
 9     Dim args(),isComplete,c,args2,i,index
10     isComplete=True
11     ReDim args(0)
12     For i=1 To Len(cmdArgs)
13         c=Mid(cmdargs,i,1)
14         If c=Chr(34) Then
15             If isComplete Then
16                 If i=1 Then
17                     isComplete=Not isComplete
18                 Else
19                     If Mid(cmdArgs,i-1,1)=" " Then
20                         isComplete=Not isComplete
21                     Else
22                         args(UBound(args))=args(UBound(args))+c
23                     End If
24                 End If        
25             Else 
26                 If i=Len(cmdArgs) Then
27                     isComplete=Not isComplete
28                 Else
29                     If Mid(cmdArgs,i+1,1)=" " Then
30                         isComplete=Not isComplete
31                     Else
32                         args(UBound(args))=args(UBound(args))+c
33                     End If
34                 End If        
35             End If
36         Else 
37             If c=" " And isComplete=True Then
38                 If args(UBound(args))<>"" Then
39                     ReDim Preserve args(UBound(args)+1) 
40                 End If 
41             Else
42                 args(UBound(args))=args(UBound(args))+c
43             End if
44         End If
45     Next
46     If isComplete=False Then
47         args(UBound(args))=Chr(34)+args(UBound(args))
48         If InStr(args(UBound(args))," ")<>0 Then
49             args2=Split(args(UBound(args)))
50             index=UBound(args)
51             ReDim Preserve args(UBound(args2)+index)
52             For i=index To UBound(args2)+index
53                 args(i)=args2(i-index)
54             Next
55         End If
56     End If
57     If args(UBound(args))="" Then
58         ReDim Preserve args(UBound(args)-1)
59     End If
60     GetCmdArgs=args
61 End Function

6.示例

[1]JS版本


  1 <Html>
  2 <Head>
  3 <Title>HTA Test</Title>
  4 <HTA:APPLICATION 
  5   applicationName="HTA_Test"
  6   border="Dialog"
  7   borderStyle="Raized"
  8   caption="Yes"
  9   contextMenu="No"
 10   icon="E:\文档\图标\Ico图标大全\Icon资源大全\chemical.ico"
 11   id="Test"
 12   innerBoder="Yes"
 13   navigable="Yes"
 14   maximizeButton="No"
 15   minimizeButton="No"
 16   scroll="No"
 17   scrollFlat="Yes"
 18   selection="Yes"
 19   showInTaskbar="Yes"
 20   singleInstance="No"
 21   sysMenu="Yes"
 22   version="1.0" 
 23   windowState="Normal" />
 24 </Head>
 25 <script language="VBScript">
 26 Function GetCmdArgs(cmdArgs)
 27 '本函数解析命令行参数
 28 '1.左引号前面必须是空格,否则引号应视作参数内容,而非边界
 29 '2.右引号后面必须是空格,否则引号应视作参数内容,而非边界
 30 '3.最后面的那个参数,如果引号边界没有配对,即无右引号,那么
 31 '  最后的那个参数的左引号当重新认定为内容,而非边界
 32 '4.多个空格间隔两个参数,防止后面的空格间隔符被归入内容中
 33 '5.防止命令行参数最后有多个无意义空格的情况
 34     Dim args(),isComplete,c,args2,i,index
 35     isComplete=True
 36     ReDim args(0)
 37     For i=1 To Len(cmdArgs)
 38         c=Mid(cmdargs,i,1)
 39         If c=Chr(34) Then
 40             If isComplete Then
 41                 If i=1 Then
 42                     isComplete=Not isComplete
 43                 Else
 44                     If Mid(cmdArgs,i-1,1)=" " Then
 45                         isComplete=Not isComplete
 46                     Else
 47                         args(UBound(args))=args(UBound(args))+c
 48                     End If
 49                 End If        
 50             Else 
 51                 If i=Len(cmdArgs) Then
 52                     isComplete=Not isComplete
 53                 Else
 54                     If Mid(cmdArgs,i+1,1)=" " Then
 55                         isComplete=Not isComplete
 56                     Else
 57                         args(UBound(args))=args(UBound(args))+c
 58                     End If
 59                 End If        
 60             End If
 61         Else 
 62             If c=" " And isComplete=True Then
 63                 If args(UBound(args))<>"" Then
 64                     ReDim Preserve args(UBound(args)+1) 
 65                 End If 
 66             Else
 67                 args(UBound(args))=args(UBound(args))+c
 68             End if
 69         End If
 70     Next
 71     If isComplete=False Then
 72         args(UBound(args))=Chr(34)+args(UBound(args))
 73         If InStr(args(UBound(args))," ")<>0 Then
 74             args2=Split(args(UBound(args)))
 75             index=UBound(args)
 76             ReDim Preserve args(UBound(args2)+index)
 77             For i=index To UBound(args2)+index
 78                 args(i)=args2(i-index)
 79             Next
 80         End If
 81     End If
 82     If args(UBound(args))="" Then
 83         ReDim Preserve args(UBound(args)-1)
 84     End If
 85     GetCmdArgs=args
 86 End Function
 87 </script>
 88 <Script language="JavaScript">
 89 //=====================================================
 90 //HTA是HTML Application的缩写(HTML应用程序),直接将HTML
 91 //保存成HTA的格式,就成了一个独立的应用软件,也可以嵌入
 92 //<HTA:APPLICATION>元素来增强对该应用程序的控制
 93 //=====================================================
 94 //以下是<HTA:APPLICATION>元素可用属性,可用来设置HTA窗口
 95 //的各种细节【记住HTA:APPLICATION这个APPLICATION不可少,
 96 //且这里必须全大写,否则以下属性无效】
 97 //【1】applicationName:string=>设置HTA程序的名称,在singleInstance
 98 // 属性设置为"Yes"时有用
 99 //【2】border:enum=>设置HTA窗口的边框类型,默认值Thick
100 // 所有允许的值:     Thick         粗边框
101 //                    Dialog        对话框【大小不可调整】
102 //                    None          无边框【无标题栏】
103 //                    Thin          窄边框 
104 //【3】borderSytle:enum=>设置HTA窗口的边框风格,默认值是Normal
105 // 所有允许的值:     Normal     普通
106 //                    Complex    凹凸格式组合边框
107 //                    Raised     凸出的3D边框
108 //                    Static     3D边框格式
109 //                    Sunken     凹进的3D边框
110 //【4】caption:Yes/No=>设置HTA窗口是否显示标题栏,默认值为Yes
111 //【5】commandLine:string=>此属性保存了HTA程序的启动参数【无法通过
112 // 在<HTA:APPLICATION>元素中设置来定义,是受调用传递的参数控制的】,
113 // 参数可以在Script块中通过<Id>.commandLine来引用,如本程序则是
114 // Test.commandLine。它的各个参数之间以空格分隔;包含空格的参数请
115 // 在调用时,用引号引起来,否则会被当成多个参数;第一个参数总是HTA
116 // 程序的文件路径;其参数需要自己手动解析;因为这个属性的存在,你可
117 // 以方便地使用js/vbs总调用各种HTA界面,而后通过window.onunload来记录
118 // 下结果,以方便总调程序获取HTA交互结果
119 //【6】contextMenu:Yes/No=>是否显示右键上下文菜单,默认值Yes
120 //【7】icon:stirng=>设置应用程序的图标文件路径,须是有效的ico图标文
121 // 件,如icon="c:\\a.ico"
122 //【8】innerBorder:Yes/No=>是否显示内部边框的3D边界,默认值Yes
123 //【9】navigable:Yes/No=>是否在本窗口加载新navigate(url)的链接,当
124 // navigable=Yes时,window.navigate(url)方法加载的页面将在本HTA窗口
125 // 中加载,而不是新的浏览器页面
126 //【10】maximizeButton:Yes/No=>是否显示最大化按钮,默认值Yes
127 //【11】minimizeButton:Yes/No=>是否显示最小化按钮,默认值Yes
128 //【12】scroll:Yes/No=>是否在页面右侧显示垂直滚动条,默认值是Yes
129 //【13】scrollFlat:Yes/No=>设置滚动条是3D(No)或者平面的(Yes)
130 //【14】selection:Yes/No=>设置内容是否可以被鼠标或键盘选中
131 //【15】showInTaskbar:Yes/No=>是否在任务栏显示任务图标,默认值Yes
132 //【16】singleInstance:Yes/No=>是否同时只允许有一个运行实例【进程】,
133 // 默认值No。当第二次启动同一个HTA程序时, mshta.exe通过上面
134 // applicaitonName来区分是否名称已占用
135 //【17】sysMenu:Yes/No=>是否允许显示标题栏右键菜单,默认值是Yes
136 //【18】version:string=>设置应用程序的版本,如"1.0",默认值为""
137 //【19】windowState:enum=>设置HTA窗口的显示类型,默认值为Normal
138 // 所有允许的值:     Normal              常规
139 //                    Minimize            最小化
140 //                    Maximize            最大化
141 //=====================================================
142 //参见Microsoft HTML Object Library库
143 //1.以下事件是可以正常发生的:
144 //window.onafterprint             此事件在HTA窗口的打印工作完成之后发生
145 //window.onbeforeprint            此事件在HTA窗口的打印工作开始之前发生
146 //window.onbeforeunload           此事件在HTA窗口被销毁前发生
147 //window.onblur                   此事件在将键盘焦点从HTA窗口移开时发生
148 //window.onerror                  此事件在HTA程序出现错误时发生
149 //window.onfocus                  此事件在HTA窗口获得焦点时发生
150 //window.onhelp                   此事件在HTA窗口有焦点时按下F1帮助键时发生
151 //window.onload                   此事件在HTA窗口被成功加载后发生
152 //window.onresize                 此事件在HTA窗口的大小改变时发生
153 //window.onscroll                 此事件在对HTA窗口执行滚动操作时发生
154 //window.onunload                 此事件在HTA窗口被销毁时发生,切记此时alert不再可用
155 //2.可以通过IHTMLWindow2接口定义的其它方法属性来操纵HTA程序
156 //  的窗口。
157 //3.HTA中仍然可以使用Scripting.FileSystemObject对象来对文件
158 //  系统进行读写操作,可利用Window_OnUnload事件来收集HTA表单
159 //  的数据,记录为文本,方便常规的VBS脚本程序通过GUI界面来进
160 //  行交互,提升交互体验与使用的方便性。
161 //4.HTA中脚本宿主对象WScript/WshArguments/WshNamed/WshUnnamed
162 //  对象是无法使用的,其它的如WshShell/WshEnvironment/
163 //  WshShortcut/WshSpecialFolders/WshUrlShortcut/WshNetwork
164 //  对象等依然可用
165 //-----------------------------------------------------
166 //HTA窗口的打印控制事件
167 // window.onafterprint=function()
168 // {
169 //    此事件在HTA窗口的打印工作完成之后发生
170     // alert("OnAfterPrint");
171 // }
172 // window.onbeforeprint=function()
173 // {
174 //    此事件在HTA窗口的打印工作开始之前发生
175     // alert("OnBeforePrint");
176 // }
177 //-----------------------------------------------------
178 // window.onblur=function()
179 // {
180 //    此事件在将键盘焦点从HTA窗口移开时发生
181     // alert("OnBlur");
182 // }
183 // window.onerror=function()
184 // {
185 //    此事件在HTA程序出现错误时发生
186     // alert("OnError");
187 // }
188 // window.onfocus=function()
189 // {
190 //    此事件在HTA窗口获得焦点时发生
191     // alert("OnFocus");
192 // }
193 // window.onhelp=function()
194 // {
195 //    此事件在HTA窗口有焦点时按下F1帮助键时发生
196     // alert("OnHelp");
197 // }
198 //-----------------------------------------------------
199 //HTA窗口的加载与销毁事件
200 var es,values;
201 var ws=new ActiveXObject("WScript.Shell");
202 var fso=new ActiveXObject("Scripting.FileSystemObject");
203 
204 function GetCmdArgs(cmdArgs)
205 {
206 //本函数解析命令行参数
207 //1.左引号前面必须是空格,否则引号应视作参数内容,而非边界
208 //2.右引号后面必须是空格,否则引号应视作参数内容,而非边界
209 //3.最后面的那个参数,如果引号边界没有配对,即无右引号,那么
210 //  最后的那个参数的左引号当重新认定为内容,而非边界
211 //4.多个空格间隔两个参数,防止后面的空格间隔符被归入内容中
212 //5.防止命令行参数最后有多个无意义空格的情况
213     var args=new Array(''),isComplete=true;
214     for(var i=0;i<cmdArgs.length;i++)
215     {
216         var c=cmdArgs.charAt(i);
217         if(c=='"')
218             if(isComplete)
219                 if(i==0)
220                     isComplete=!isComplete;
221                 else
222                     if(cmdArgs.charAt(i-1)==" ")
223                         isComplete=!isComplete;
224                     else
225                         args[args.length-1]+=c;
226             else 
227                 if(i==cmdArgs.length-1)
228                     isComplete=!isComplete;
229                 else
230                     if(cmdArgs.charAt(i+1)==" ")
231                         isComplete=!isComplete;
232                     else
233                         args[args.length-1]+=c;
234 
235         else
236             if(c==" "&&isComplete&&args[args.length-1]!="")
237                 args.push('');
238             else
239                 args[args.length-1]+=c;
240     }
241     if(!isComplete)
242     {
243         var arg='"'+args.pop();
244         if(arg.indexOf(" ")!=-1)
245             args=args.concat(arg.split(" "));
246     }
247     if(args[args.length-1]=="")
248         args.pop();
249     return args
250 }
251 
252 function isGoodVarName(name){
253     var arr=name.match(/^[a-zA-Z_][a-zA-Z_0-9]*$/g);
254     if(arr!=null&&arr.length==1)
255         return true;
256     else
257         return false;
258 }
259 
260 function isNumberStr(numStr){
261     try{num=eval('new Number('+numStr+')');}
262     catch(e){return false;}
263     return true;
264 }
265 
266 function center_clicked(){
267     var e=self.document.getElementById('left');
268     e.disabled=!e.disabled;
269     var e=self.document.getElementById('top');
270     e.disabled=!e.disabled;
271 }
272 
273 function getHta(){
274     var xml=new ActiveXObject("MSXML2.DOMDocument");
275     var eHta=xml.createElement('HTA:APPLICATION');
276     var names=('applicationName;border;borderStyle;caption;contextMenu;'+
277         'icon;id;innerBorder;navigable;maximizeButton;minimizeButton;'+
278         'scroll;scrollFlat;selection;showInTaskbar;singleInstance;'+
279         'sysMenu;version;windowState').split(";");
280     for(var i=0;i<names.length;i++)
281         eHta.setAttribute(names[i],values.Item(names[i]));
282     var htaSettingsStr=eHta.xml;
283     htaSettingsStr=htaSettingsStr.replace(/(\") (\w)/ig,'$1\r\n $2');
284     htaSettingsStr=htaSettingsStr.replace(/(\w) (\w+=\")/ig,'$1\r\n $2');
285     return htaSettingsStr;
286 }
287 
288 function btnOk_clicked(){
289     es=new Elements();
290     values=new ActiveXObject("Scripting.Dictionary");
291     //get all values
292     for(var i in es)
293         if(i!='getValue')
294             values.Add(i,es.getValue(es[i]));
295     //check values
296     //check 'id'
297     var value=values.Item('id');
298     if(values.Item('commandLine')=='Yes'&&value==''&&!isGoodVarName(value)){
299         alert('The value of "id" must be a good varname when the commandLine is required!!!');
300         return;
301     }
302     //check 'left','top','width','height'
303     var names=new Array('left','top','width','height');
304     for(var i=0;i<names.length;i++){
305         var name=names[i];
306         if(values.Item('center')=='Yes')
307             if(name=='left'||name=='top')
308                 continue;
309         value=values.Item(name);
310         if(isNumberStr(value)){
311             values.Item(name)=eval('new Number('+value+')');
312             value=values.Item(name);
313             var maxValue=eval('self.window.screen.'+name);
314             if(value>maxValue||value<0){
315                 alert("The value of '"+name+"' must be 0-"+maxValue);
316                 return;
317             }            
318         }
319         else{
320             alert("The value of '"+name+"' is not a number string.");
321             return;
322         }
323     }
324     //htaPath
325     var htaPath;
326     do{
327         htaPath=fso.GetAbsolutePathName(fso.GetBaseName(fso.GetTempName())+'.hta');
328     }while(fso.FileExists(htaPath));
329     //start to write the hta file
330     var txt=fso.CreateTextFile(htaPath);
331     txt.WriteLine('<html>\r\n<head>\r\n<title>'+values.Item('title')+'</title>');
332     txt.WriteLine(getHta());
333     txt.WriteLine('<script language="'+values.Item('language')+'">');
334     if(values.Item('language')=='JavaScript'){
335         if(values.Item('commandLine')=='Yes'){
336             txt.WriteLine(GetCmdArgs); 
337             txt.WriteLine('');
338         }
339                    
340         if(values.Item('center')=='Yes'){
341             var width=values.Item('width'),height=values.Item('height');
342             if(width!=0&&height!=0){
343                 txt.WriteLine('\r\nself.resizeTo('+width+','+height+');');
344                 txt.WriteLine('self.moveTo((self.screen.width-'+width+
345                     ')/2,(self.screen.height-'+height+')/2);\r\n');
346             }
347         }
348         else{
349             var left=values.Item('left'),top=values.Item('top');
350             var width=values.Item('width'),height=values.Item('height');
351             if(left!=0&&top!=0&&width!=0&&height!=0){
352                 txt.WriteLine('\r\nself.resizeTo('+width+','+height+');');
353                 txt.WriteLine('self.moveTo('+left+','+top+');\r\n');
354             }
355         }
356         for(var e=new Enumerator(values);!e.atEnd();e.moveNext()){
357             name=e.item();
358             if(name.indexOf('window')==0&&values.Item(name)=='Yes'){
359                 name=name.replace('_','.');
360                 txt.WriteLine(name+'=function(){\r\n    \r\n}\r\n');
361             } 
362         }
363     }
364     else{
365         if(values.Item('commandLine')=='Yes'){
366             var stream=fso.OpenTextFile(GetCmdArgs(Test.commandLine)[0]);
367             for(var i=1;i<=86;i++)
368                 if(i<=25)
369                     stream.SkipLine();
370                 else
371                     txt.WriteLine(stream.ReadLine());
372             stream.Close();
373             txt.WriteLine('');
374         }     
375         if(values.Item('center')=='Yes'){
376             var width=values.Item('width'),height=values.Item('height');
377             if(width!=0&&height!=0){
378                 txt.WriteLine('\r\nself.resizeTo '+width+','+height);
379                 txt.WriteLine('self.moveTo (self.screen.width-'+width+
380                     ')/2,(self.screen.height-'+height+')/2\r\n');
381             }
382         }
383         else{
384             var left=values.Item('left'),top=values.Item('top');
385             var width=values.Item('width'),height=values.Item('height');
386             if(left!=0&&top!=0&&width!=0&&height!=0){
387                 txt.WriteLine('\r\nself.resizeTo '+width+','+height);
388                 txt.WriteLine('self.moveTo '+left+','+top);
389                 txt.WriteLine('');
390             }
391         }
392         for(var e=new Enumerator(values);!e.atEnd();e.moveNext()){
393             name=e.item();
394             if(name.indexOf('window')==0&&values.Item(name)=='Yes'){
395                 txt.WriteLine('Sub '+name+'\r\n    \r\nEnd Sub\r\n');
396             } 
397         }       
398     }
399     txt.WriteLine('<\/script>');
400     txt.WriteLine('</head>\r\n<body>\r\n</body>\r\n</html>');
401     txt.Close();
402     self.close();
403 }
404 
405 function btnCancel_clicked(){
406     var btn=ws.Popup("The settings will be gave up, a"+
407         "re you sure?",0,"Warnning",4+32);
408     if(btn==6)
409         self.close();
410 }
411 
412 function Elements(){
413      this.getValue=function(e){
414         switch(e.type){
415             case "checkbox":
416                 return e.checked?'Yes':'No';
417             case "text":
418             case "file":
419                 return e.value;
420             case "select-one":
421             case "select-multiple":
422                 index=e.selectedIndex
423                 return e.options[index].text;
424             default:
425                 throw new Error(5001,"The element '"+e.id+"' is not the right type.");
426         }
427     }
428     for(var i=0;i<self.document.all.length;i++){
429         var el=self.document.all[i];
430         if(el.id!=''&&typeof el.type!='undefined'&&el.type!='button')
431             eval('this.'+el.id+'=el');
432     }  
433 }
434 window.onload=function()
435 {
436     //此事件在HTA窗口被成功加载后发生
437     var width=800,height=685;
438     self.resizeTo(width,height);
439     self.moveTo((self.screen.availWidth-width)/2,
440         (self.screen.availHeight-height)/2);
441     alert("OnLoad");
442     //让我们来看看本程序接收到哪些命令行参数
443     //你可以命令行执行HTATest.hta "hello world" 32
444     alert("Test.CommandLine: "+Test.commandLine);
445     alert("ApplicationName = "+Test.applicationName);
446     //其它属性也可只读访问,切记使用Id名来引用各个属性
447     var args=GetCmdArgs(Test.commandLine);
448     for(var i=0;i<args.length;i++) 
449         alert(args[i]);
450 }
451 // window.onbeforeunload=function()
452 // {
453 //    此事件在HTA窗口被销毁前发生
454     // alert("OnBeforeUnload" );
455 // }
456 window.onunload=function()
457 {
458     //此事件在HTA窗口被销毁时发生,切记alert不再可用
459     var ws=new ActiveXObject("WScript.Shell")
460     ws.Popup("OnUnload");
461     //-------------------------------------
462     dPath=ws.SpecialFolders("Desktop")
463     pPath=ws.SpecialFolders("Programs")
464     //-------------------------------------
465     var sc=ws.CreateShortcut(dPath+"\\Programs.lnk")
466     sc.TargetPath=pPath
467     sc.WindowStyle=3
468     sc.Hotkey="Ctrl+Alt+j"
469     sc.Save();
470     //-------------------------------------
471     var sc=ws.CreateShortcut(dPath+"\\baidu.url")
472     sc.TargetPath="http://www.baidu.com"
473     sc.Save();
474     //-------------------------------------
475     var fso=new ActiveXObject("Scripting.FileSystemObject")
476     var txt=fso.CreateTextFile("Output.txt")
477     var nt=new ActiveXObject("WScript.Network")
478     txt.WriteLine("Domain = "+nt.UserDomain);
479     txt.WriteLine("Computer Name = "+nt.ComputerName);
480     txt.WriteLine("User Name = " + nt.UserName );
481     txt.WriteLine("=====================================");
482     var oDrives=nt.EnumNetworkDrives();
483     var oPrinters=nt.EnumPrinterConnections();
484     txt.WriteLine("Network drive mappings:");
485     for(var i=0;i<oDrives.length;i+=2)
486         txt.WriteLine("Drive【"+oDrives.item(i)+"】="+
487             oDrives.item(i+1));
488     txt.WriteLine("=====================================");
489     txt.WriteLine("Network printer mappings:");
490     for(var i=0;i<oPrinters.length;i+=2)
491         txt.WriteLine("Port【"+oPrinters.item(i)+"】="+
492             oPrinters.item(i+1));
493     txt.WriteLine("=====================================");
494     txt.Close();
495     ws.Run("Notepad.exe Output.txt")
496 }
497 //-----------------------------------------------------
498 // window.onresize=function()
499 // {
500 //    此事件在HTA窗口的大小改变时发生
501     // alert("OnResize");
502 // }
503 // window.onscroll=function() 
504 // {
505 //    此事件在对HTA窗口执行滚动操作时发生
506     // alert("OnScroll");
507 // }
508 //=====================================================
509 </Script>
510 <Body>
511 <table width="100%" border="1">
512 <col />
513 <col width="16%" />
514 <col width="46%" />
515 <tr>
516 <th>选择事件</th>
517 <th>属性</th>
518 <th>设置值</th>
519 </tr>
520 <tr>
521 <td><input type="checkbox" id="window_onafterprint">window.onafterprint</td>
522 <td align="right">applicationName: </td>
523 <td><input type="text" id="applicationName"></td>
524 </tr>
525 <tr>
526 <td><input type="checkbox" id="window_onbeforeprint">window.onbeforeprint</td>
527 <td align="right">border: </td>
528 <td><select id="border">
529   <option value="Dialog">Dialog</option>
530   <option value="None">None</option>
531   <option value="Thick">Thick</option>
532   <option value="Thin">Thin</option>
533 </select></td>
534 </tr>
535 <tr>
536 <td><input type="checkbox" id="window_onbeforeunload">window.onbeforeunload</td>
537 <td align="right">borderStyle: </td>
538 <td><select id="borderStyle">
539   <option value="Normal">Normal</option>
540   <option value="Complex">Complex</option>
541   <option value="Raised">Raised</option>
542   <option value="Static">Static</option>
543   <option value="Sunken">Sunken</option>
544 </select></td>
545 </tr>
546 <tr>
547 <td><input type="checkbox" id="window_onblur">window.onblur</td>
548 <td align="right">caption: </td>
549 <td><input type="checkbox" id="caption" checked="true">show title bar?</td>
550 </tr>
551 <tr>
552 <td><input type="checkbox" id="window_onerror">window.onerror</td>
553 <td align="right">contextMenu: </td>
554 <td><input type="checkbox" id="contextMenu" checked="true">show contextMenu?</td>
555 </tr>
556 <tr>
557 <td><input type="checkbox" id="window_onfocus">window.onfocus</td>
558 <td align="right">icon: </td>
559 <td><input type="file" id="icon"></td>
560 </tr>
561 <tr>
562 <td><input type="checkbox" id="window_onhelp">window.onhelp</td>
563 <td align="right">id: </td>
564 <td><input type="text" id="id"></td>
565 </tr>
566 <tr>
567 <td><input type="checkbox" id="window_onload" checked="true">window.onload</td>
568 <td align="right">innerBorder: </td>
569 <td><input type="checkbox" id="innerBorder" checked="true">show inner border?</td>
570 </tr>
571 <tr>
572 <td><input type="checkbox" id="window_onresize">window.onresize</td>
573 <td align="right">navigable: </td>
574 <td><input type="checkbox" id="navigable" checked="true">navigate pages in current page?</td>
575 </tr>
576 <tr>
577 <td><input type="checkbox" id="window_onscroll">window.onscroll</td>
578 <td align="right">maximizeButton: </td>
579 <td><input type="checkbox" id="maximizeButton" checked="true">show maximize button?</td>
580 </tr>
581 <tr>
582 <td><input type="checkbox" id="window_onunload">window.onunload</td>
583 <td align="right">minimizeButton: </td>
584 <td><input type="checkbox" id="minimizeButton" checked="true">show minimize button?</td>
585 </tr>
586 <tr>
587 <td>
588 <table width="100%">
589 <col width="38%" />
590 <col />
591 <tr>
592 <td align="right">left: </td>
593 <td><input type="text" id="left" disabled="true" value="0"></td>
594 </tr>
595 </table>
596 </td>
597 <td align="right">scroll: </td>
598 <td><input type="checkbox" id="scroll" checked="true">show scroll?</td>
599 </tr>
600 <tr>
601 <td>
602 <table width="100%">
603 <col width="38%" />
604 <col />
605 <tr>
606 <td align="right">top: </td>
607 <td><input type="text" id="top" disabled="true" value="0"></td>
608 </tr>
609 </table>
610 </td>
611 <td align="right">scrollFlat: </td>
612 <td><input type="checkbox" id="scrollFlat" checked="true">show scroll in flat?</td>
613 </tr>
614 <tr>
615 <td>
616 <table width="100%">
617 <col width="38%" />
618 <col />
619 <tr>
620 <td align="right">width: </td>
621 <td><input type="text" id="width" value="0"></td>
622 </tr>
623 </table>
624 </td>
625 <td align="right">selection: </td>
626 <td><input type="checkbox" id="selection" checked="true">allow user to select the page elements?</td>
627 </tr>
628 <tr>
629 <td>
630 <table width="100%">
631 <col width="38%" />
632 <col />
633 <tr>
634 <td align="right">height: </td>
635 <td><input type="text" id="height" value="0"></td>
636 </tr>
637 </table>
638 </td>
639 <td align="right">showInTaskbar: </td>
640 <td><input type="checkbox" id="showInTaskbar" checked="true">show in taskbar?</td>
641 </tr>
642 <tr>
643 <td>
644 <table width="100%">
645 <col width="38%" />
646 <col />
647 <tr>
648 <td align="right">center: </td>
649 <td><input type="checkbox" id="center" checked="true" onclick="center_clicked()">center screen?</td>
650 </tr>
651 </table>
652 </td>
653 <td align="right">singleInstance: </td>
654 <td><input type="checkbox" id="singleInstance">run as a single instance application?</td>
655 </tr>
656 <tr>
657 <td>
658 <table width="100%">
659 <col width="38%" />
660 <col />
661 <tr>
662 <td align="right">language: </td>
663 <td><select id="language">
664   <option value="JavaScript">JavaScript</option>
665   <option value="VBScript">VBScript</option>
666 </select></td>
667 </tr>
668 </table>
669 </td>
670 <td align="right">sysMenu: </td>
671 <td><input type="checkbox" id="sysMenu" checked="true">show system menu?</td>
672 </tr>
673 <tr>
674 <td>
675 <table width="100%">
676 <col width="38%" />
677 <col />
678 <tr>
679 <td align="right">commandLine: </td>
680 <td><input type="checkbox" id="commandLine">Receive arguments?</td>
681 </tr>
682 </table>
683 </td>
684 <td align="right">version: </td>
685 <td><input type="text" id="version" value="1.0"></td>
686 </tr>
687 <tr>
688 <td>
689 <table width="100%">
690 <col width="38%" />
691 <col />
692 <tr>
693 <td align="right">title: </td>
694 <td><input type="text" id="title"></td>
695 </tr>
696 </table>
697 </td>
698 <td align="right">windowState: </td>
699 <td><select id="windowState">
700   <option value="Normal">Normal</option>
701   <option value="Minimize">Minimize</option>
702   <option value="Maximize">Maximize</option>
703 </select></td>
704 </tr>
705 </table>
706 <center>
707 <input type="button" id="btnOk" value="  Ok  " onclick="btnOk_clicked()">
708 <input type="button" id="btnCancel" value="Cancel" onclick="btnCancel_clicked()">
709 </center>
710 </Body>
711 </Html>

[2]VBS版本


  1 <Html>
  2 <Head>
  3 <Title>HTA Test</Title>
  4 <HTA:APPLICATION 
  5   applicationName="HTA_Test"
  6   border="Thick"
  7   borderStyle="Raized"
  8   caption="Yes"
  9   contextMenu="No"
 10   icon="E:\文档\图标\Unclassified ICO\2WAY.ICO"
 11   id="Test"
 12   innerBoder="Yes"
 13   navigable="Yes"
 14   maximizeButton="No"
 15   minimizeButton="No"
 16   scroll="Yes"
 17   scrollFlat="Yes"
 18   selection="Yes"
 19   showInTaskbar="Yes"
 20   singleInstance="No"
 21   sysMenu="Yes"
 22   version="1.0" 
 23   windowState="Normal" />
 24 </Head>
 25 <Script language="VBScript">
 26 '=====================================================
 27 'HTA是HTML Application的缩写(HTML应用程序),直接将HTML
 28 '保存成HTA的格式,就成了一个独立的应用软件,也可以嵌入
 29 '<HTA:APPLICATION>元素来增强对该应用程序的控制
 30 '=====================================================
 31 '以下是<HTA:APPLICATION>元素可用属性,可用来设置HTA窗口
 32 '的各种细节【记住HTA:APPLICATION这个APPLICATION不可少,
 33 '且这里必须全大写,否则以下属性无效】
 34 '【1】applicationName:string=>设置HTA程序的名称,在singleInstance
 35 ' 属性设置为"Yes"时有用
 36 '【2】border:enum=>设置HTA窗口的边框类型,默认值Thick
 37 ' 所有允许的值:     Thick         粗边框
 38 '                    Dialog        对话框【大小不可调整】
 39 '                    None          无边框【无标题栏】
 40 '                    Thin          窄边框
 41 '【3】borderSytle:enum=>设置HTA窗口的边框风格,默认值是Normal
 42 ' 所有允许的值:     Normal     普通
 43 '                    Complex    凹凸格式组合边框
 44 '                    Raised     凸出的3D边框
 45 '                    Static     3D边框格式
 46 '                    Sunken     凹进的3D边框
 47 '【4】caption:Yes/No=>设置HTA窗口是否显示标题,默认值为Yes
 48 '【5】commandLine:string=>此属性保存了HTA程序的启动参数【无法通过
 49 ' 在<HTA:APPLICATION>元素中设置来定义,是受调用传递的参数控制的】,
 50 ' 参数可以在Script块中通过<Id>.commandLine来引用,如本程序则是
 51 ' Test.commandLine。它的各个参数之间以空格分隔;包含空格的参数请
 52 ' 在调用时,用引号引起来,否则会被当成多个参数;第一个参数总是HTA
 53 ' 程序的文件路径;其参数需要自己手动解析;因为这个属性的存在,你可
 54 ' 以方便地使用js/vbs总调用各种HTA界面,而后通过window.onunload来记录
 55 ' 下结果,以方便总调程序获取HTA交互结果
 56 '【6】contextMenu:Yes/No=>是否显示右键上下文菜单
 57 '【7】icon:stirng=>设置应用程序的图标文件路径,须是有效的ico图标文
 58 ' 件,如icon="c:\\a.ico"
 59 '【8】innerBorder:Yes/No=>是否显示内部边框的3D边界
 60 '【9】navigable:Yes/No=>是否在本窗口加载新navigate(url)的链接,当
 61 ' navigable=Yes时,window.navigate(url)方法加载的页面将在本HTA窗口
 62 ' 中加载,而不是新的浏览器页面
 63 '【10】maximizeButton:Yes/No=>是否显示最大化按钮,默认值Yes
 64 '【11】minimizeButton:Yes/No=>是否显示最小化按钮,默认值Yes
 65 '【12】scroll:Yes/No=>是否在页面右侧显示垂直滚动条,默认值是Yes
 66 '【13】scrollFlat:Yes/No=>设置滚动条是3D(No)或者平面的(Yes)
 67 '【14】selection:Yes/No=>设置内容是否可以被鼠标或键盘选中
 68 '【15】showInTaskbar:Yes/No=>是否在任务栏显示任务图标,默认值Yes
 69 '【16】singleInstance:Yes/No=>是否同时只允许有一个运行实例【进程】,
 70 ' 默认值No。当第二次启动同一个HTA程序时, mshta.exe通过上面
 71 ' applicaitonName来区分是否名称已占用
 72 '【17】sysMenu:Yes/No=>是否允许显示标题栏右键菜单,默认值是Yes
 73 '【18】version:string=>设置应用程序的版本,如"1.0",默认值为""
 74 '【19】windowState:enum=>设置HTA窗口的显示类型,默认值为Normal
 75 ' 所有允许的值:     Normal              常规
 76 '                    Minimize            最小化
 77 '                    Maximize            最大化
 78 '=====================================================
 79 '参见Microsoft HTML Object Library库
 80 '1.以下事件是可以正常发生的,参见HTMLWindow2这个类的事件成
 81 '  员【它们以on为前缀】,有事件图标标识的事件成员都可以被
 82 '  HTA宿主程序捕获到该事件的消息,其它的以on为前缀的事件成
 83 '  员无法被捕获到。
 84 '2.可以通过IHTMLWindow2接口定义的其它方法属性来操纵HTA程序
 85 '  的窗口。
 86 '3.HTA中仍然可以使用Scripting.FileSystemObject对象来对文件
 87 '  系统进行读写操作,可利用Window_OnUnload事件来收集HTA表单
 88 '  的数据,记录为文本,方便常规的VBS脚本程序通过GUI界面来进
 89 '  行交互,提升交互体验与使用的方便性。
 90 '4.HTA中脚本宿主对象WScript/WshArguments/WshNamed/WshUnnamed
 91 '  对象是无法使用的,其它的如WshShell/WshEnvironment/
 92 '  WshShortcut/WshSpecialFolders/WshUrlShortcut/WshNetwork
 93 '  对象等依然可用
 94 '-----------------------------------------------------
 95 'HTA窗口的打印控制事件
 96 'Sub Window_OnAfterPrint
 97     '此事件在HTA窗口的打印工作完成之后发生
 98 '    MsgBox "OnAfterPrint"
 99 'End Sub
100 'Sub Window_OnBeforePrint
101     '此事件在HTA窗口的打印工作开始之前发生
102 '    MsgBox "OnBeforePrint"
103 'End Sub
104 '-----------------------------------------------------
105 'Sub Window_OnBlur
106     '此事件在将键盘焦点从HTA窗口移开时发生
107 '    MsgBox "OnBlur"
108 'End Sub
109 'Sub Window_OnError
110     '此事件在HTA程序出现错误时发生
111 '    MsgBox "OnError"
112 'End Sub
113 'Sub Window_OnFocus
114     '此事件在HTA窗口获得焦点时发生
115 '    MsgBox "OnFocus"
116 'End Sub
117 'Sub Window_OnHelp
118     '此事件在HTA窗口有焦点时按下F1帮助键时发生
119 '    MsgBox "OnHelp"
120 'End Sub
121 '-----------------------------------------------------
122 'HTA窗口的加载与销毁事件
123 Function GetCmdArgs(cmdArgs)
124 '本函数解析命令行参数
125 '1.左引号前面必须是空格,否则引号应视作参数内容,而非边界
126 '2.右引号后面必须是空格,否则引号应视作参数内容,而非边界
127 '3.最后面的那个参数,如果引号边界没有配对,即无右引号,那么
128 '  最后的那个参数的左引号当重新认定为内容,而非边界
129 '4.多个空格间隔两个参数,防止后面的空格间隔符被归入内容中
130 '5.防止命令行参数最后有多个无意义空格的情况
131     Dim args(),isComplete,c,args2,i,index
132     isComplete=True
133     ReDim args(0)
134     For i=1 To Len(cmdArgs)
135         c=Mid(cmdargs,i,1)
136         If c=Chr(34) Then
137             If isComplete Then
138                 If i=1 Then
139                     isComplete=Not isComplete
140                 Else
141                     If Mid(cmdArgs,i-1,1)=" " Then
142                         isComplete=Not isComplete
143                     Else
144                         args(UBound(args))=args(UBound(args))+c
145                     End If
146                 End If        
147             Else 
148                 If i=Len(cmdArgs) Then
149                     isComplete=Not isComplete
150                 Else
151                     If Mid(cmdArgs,i+1,1)=" " Then
152                         isComplete=Not isComplete
153                     Else
154                         args(UBound(args))=args(UBound(args))+c
155                     End If
156                 End If        
157             End If
158         Else 
159             If c=" " And isComplete=True Then
160                 If args(UBound(args))<>"" Then
161                     ReDim Preserve args(UBound(args)+1) 
162                 End If 
163             Else
164                 args(UBound(args))=args(UBound(args))+c
165             End if
166         End If
167     Next
168     If isComplete=False Then
169         args(UBound(args))=Chr(34)+args(UBound(args))
170         If InStr(args(UBound(args))," ")<>0 Then
171             args2=Split(args(UBound(args)))
172             index=UBound(args)
173             ReDim Preserve args(UBound(args2)+index)
174             For i=index To UBound(args2)+index
175                 args(i)=args2(i-index)
176             Next
177         End If
178     End If
179     If args(UBound(args))="" Then
180         ReDim Preserve args(UBound(args)-1)
181     End If
182     GetCmdArgs=args
183 End Function
184 
185 Sub Window_OnLoad
186     '此事件在HTA窗口被成功加载后发生
187     Dim width,height
188     width=300:height=300
189     self.ResizeTo width,height
190     self.MoveTo (self.screen.AvailWidth-width)/2, _
191         (self.screen.AvailHeight-height)/2
192     MsgBox "OnLoad"
193     '让我们来看看本程序接收到哪些命令行参数
194     Dim item
195     MsgBox "Test.commandLine: " & Test.commandLine
196     For Each item In GetCmdArgs(Test.commandLine)
197         MsgBox item
198     Next
199 End Sub
200 'Sub Window_OnBeforeUnload
201 '    此事件在HTA窗口被销毁前发生
202 '    MsgBox "OnBeforeUnload" 
203 'End Sub
204 Sub Window_OnUnload
205     '此事件在HTA窗口被销毁时发生
206     MsgBox "OnUnload"
207     Set ws=CreateObject("WScript.Shell")
208     '-------------------------------------
209     dPath=ws.SpecialFolders("Desktop")
210     pPath=ws.SpecialFolders("Programs")
211     '-------------------------------------
212     Set sc=ws.CreateShortcut(dPath & "\所有程序.lnk")
213     sc.TargetPath=pPath
214     sc.WindowStyle=3
215     sc.Hotkey="Ctrl+Alt+j"
216     sc.save
217     '-------------------------------------
218     Set sc=ws.CreateShortcut(dPath & "\百度.url")
219     sc.TargetPath="http:'www.baidu.com"
220     sc.save
221     '-------------------------------------
222     Set fso=CreateObject("Scripting.FileSystemObject")
223     Set txt=fso.CreateTextFile("Output.txt")
224     Set nt = CreateObject("WScript.Network")
225     txt.WriteLine "Domain = " & nt.UserDomain
226     txt.WriteLine "Computer Name = " & nt.ComputerName
227     txt.WriteLine "User Name = " & nt.UserName 
228     txt.WriteLine "====================================="   
229     Set oDrives = nt.EnumNetworkDrives
230     Set oPrinters = nt.EnumPrinterConnections
231     txt.WriteLine "Network drive mappings:"
232     For i = 0 to oDrives.Count - 1 Step 2
233         txt.WriteLine "Drive 【" & oDrives.Item(i) & "】 = " & oDrives.Item(i+1)
234     Next
235     txt.WriteLine "====================================="
236     txt.WriteLine "Network printer mappings:"
237     For i = 0 to oPrinters.Count - 1 Step 2
238         txt.WriteLine "Port 【" & oPrinters.Item(i) & "】 = " & oPrinters.Item(i+1)
239     Next
240     txt.WriteLine "====================================="
241     txt.Close
242     ws.Run "Notepad.exe Output.txt"
243 End Sub
244 '-----------------------------------------------------
245 'Sub Window_OnResize
246     '此事件在HTA窗口的大小改变时发生
247 '    MsgBox "OnResize"
248 'End Sub
249 'Sub Window_OnScroll
250     '此事件在对HTA窗口执行滚动操作时发生
251 '    MsgBox "OnScroll"
252 'End Sub
253 '=====================================================
254 </Script>
255 <Body bgcolor="green">
256 </Body>
257 </Html>

 7.JS版HTACreater


  1 <html>
  2 <head>
  3 <title>HTA Settings</title>
  4 <HTA:APPLICATION 
  5   applicationName="HTACreater"
  6   border="Dialog"
  7   borderStyle="Raized"
  8   caption="Yes"
  9   contextMenu="Yes"
 10   icon="E:\文档\图标\Ico图标大全\ico图标\VB_ICO图标\wrench.ico"
 11   id="Creater"
 12   innerBoder="Yes"
 13   navigable="Yes"
 14   maximizeButton="No"
 15   minimizeButton="No"
 16   scroll="No"
 17   scrollFlat="Yes"
 18   selection="Yes"
 19   showInTaskbar="Yes"
 20   singleInstance="No"
 21   sysMenu="Yes"
 22   version="1.0" 
 23   windowState="Normal" />
 24 <script language="VBScript">
 25 Function GetCmdArgs(cmdArgs)
 26 '本函数解析命令行参数
 27 '1.左引号前面必须是空格,否则引号应视作参数内容,而非边界
 28 '2.右引号后面必须是空格,否则引号应视作参数内容,而非边界
 29 '3.最后面的那个参数,如果引号边界没有配对,即无右引号,那么
 30 '  最后的那个参数的左引号当重新认定为内容,而非边界
 31 '4.多个空格间隔两个参数,防止后面的空格间隔符被归入内容中
 32 '5.防止命令行参数最后有多个无意义空格的情况
 33     Dim args(),isComplete,c,args2,i,index
 34     isComplete=True
 35     ReDim args(0)
 36     For i=1 To Len(cmdArgs)
 37         c=Mid(cmdargs,i,1)
 38         If c=Chr(34) Then
 39             If isComplete Then
 40                 If i=1 Then
 41                     isComplete=Not isComplete
 42                 Else
 43                     If Mid(cmdArgs,i-1,1)=" " Then
 44                         isComplete=Not isComplete
 45                     Else
 46                         args(UBound(args))=args(UBound(args))+c
 47                     End If
 48                 End If        
 49             Else 
 50                 If i=Len(cmdArgs) Then
 51                     isComplete=Not isComplete
 52                 Else
 53                     If Mid(cmdArgs,i+1,1)=" " Then
 54                         isComplete=Not isComplete
 55                     Else
 56                         args(UBound(args))=args(UBound(args))+c
 57                     End If
 58                 End If        
 59             End If
 60         Else 
 61             If c=" " And isComplete=True Then
 62                 If args(UBound(args))<>"" Then
 63                     ReDim Preserve args(UBound(args)+1) 
 64                 End If 
 65             Else
 66                 args(UBound(args))=args(UBound(args))+c
 67             End if
 68         End If
 69     Next
 70     If isComplete=False Then
 71         args(UBound(args))=Chr(34)+args(UBound(args))
 72         If InStr(args(UBound(args))," ")<>0 Then
 73             args2=Split(args(UBound(args)))
 74             index=UBound(args)
 75             ReDim Preserve args(UBound(args2)+index)
 76             For i=index To UBound(args2)+index
 77                 args(i)=args2(i-index)
 78             Next
 79         End If
 80     End If
 81     If args(UBound(args))="" Then
 82         ReDim Preserve args(UBound(args)-1)
 83     End If
 84     GetCmdArgs=args
 85 End Function
 86 </script>
 87 <script language="JavaScript">
 88 var es,values;
 89 var ws=new ActiveXObject("WScript.Shell");
 90 var fso=new ActiveXObject("Scripting.FileSystemObject");
 91 
 92 function GetCmdArgs(cmdArgs)
 93 {
 94 //本函数解析命令行参数
 95 //1.左引号前面必须是空格,否则引号应视作参数内容,而非边界
 96 //2.右引号后面必须是空格,否则引号应视作参数内容,而非边界
 97 //3.最后面的那个参数,如果引号边界没有配对,即无右引号,那么
 98 //  最后的那个参数的左引号当重新认定为内容,而非边界
 99 //4.多个空格间隔两个参数,防止后面的空格间隔符被归入内容中
100 //5.防止命令行参数最后有多个无意义空格的情况
101     var args=new Array(''),isComplete=true;
102     for(var i=0;i<cmdArgs.length;i++)
103     {
104         var c=cmdArgs.charAt(i);
105         if(c=='"')
106             if(isComplete)
107                 if(i==0)
108                     isComplete=!isComplete;
109                 else
110                     if(cmdArgs.charAt(i-1)==" ")
111                         isComplete=!isComplete;
112                     else
113                         args[args.length-1]+=c;
114             else 
115                 if(i==cmdArgs.length-1)
116                     isComplete=!isComplete;
117                 else
118                     if(cmdArgs.charAt(i+1)==" ")
119                         isComplete=!isComplete;
120                     else
121                         args[args.length-1]+=c;
122 
123         else
124             if(c==" "&&isComplete&&args[args.length-1]!="")
125                 args.push('');
126             else
127                 args[args.length-1]+=c;
128     }
129     if(!isComplete)
130     {
131         var arg='"'+args.pop();
132         if(arg.indexOf(" ")!=-1)
133             args=args.concat(arg.split(" "));
134     }
135     if(args[args.length-1]=="")
136         args.pop();
137     return args
138 }
139 
140 function isGoodVarName(name){
141     var arr=name.match(/^[a-zA-Z_][a-zA-Z_0-9]*$/g);
142     if(arr!=null&&arr.length==1)
143         return true;
144     else
145         return false;
146 }
147 
148 function isNumberStr(numStr){
149     try{num=eval('new Number('+numStr+')');}
150     catch(e){return false;}
151     return true;
152 }
153 
154 function center_clicked(){
155     var e=self.document.getElementById('left');
156     e.disabled=!e.disabled;
157     var e=self.document.getElementById('top');
158     e.disabled=!e.disabled;
159 }
160 
161 function getHta(){
162     var xml=new ActiveXObject("MSXML2.DOMDocument");
163     var eHta=xml.createElement('HTA:APPLICATION');
164     var names=('applicationName;border;borderStyle;caption;contextMenu;'+
165         'icon;id;innerBorder;navigable;maximizeButton;minimizeButton;'+
166         'scroll;scrollFlat;selection;showInTaskbar;singleInstance;'+
167         'sysMenu;version;windowState').split(";");
168     for(var i=0;i<names.length;i++)
169         eHta.setAttribute(names[i],values.Item(names[i]));
170     var htaSettingsStr=eHta.xml;
171     htaSettingsStr=htaSettingsStr.replace(/(\") (\w)/ig,'$1\r\n $2');
172     htaSettingsStr=htaSettingsStr.replace(/(\w) (\w+=\")/ig,'$1\r\n $2');
173     return htaSettingsStr;
174 }
175 
176 function btnOk_clicked(){
177     es=new Elements();
178     values=new ActiveXObject("Scripting.Dictionary");
179     //get all values
180     for(var i in es)
181         if(i!='getValue')
182             values.Add(i,es.getValue(es[i]));
183     //check values
184     //check 'id'
185     var value=values.Item('id');
186     if(values.Item('commandLine')=='Yes'&&value==''&&!isGoodVarName(value)){
187         alert('The value of "id" must be a good varname when the commandLine is required!!!');
188         return;
189     }
190     //check 'left','top','width','height'
191     var names=new Array('left','top','width','height');
192     for(var i=0;i<names.length;i++){
193         var name=names[i];
194         if(values.Item('center')=='Yes')
195             if(name=='left'||name=='top')
196                 continue;
197         value=values.Item(name);
198         if(isNumberStr(value)){
199             values.Item(name)=eval('new Number('+value+')');
200             value=values.Item(name);
201             var maxValue=eval('self.window.screen.'+name);
202             if(value>maxValue||value<0){
203                 alert("The value of '"+name+"' must be 0-"+maxValue);
204                 return;
205             }            
206         }
207         else{
208             alert("The value of '"+name+"' is not a number string.");
209             return;
210         }
211     }
212     //htaPath
213     var htaPath;
214     do{
215         htaPath=fso.GetAbsolutePathName(fso.GetBaseName(fso.GetTempName())+'.hta');
216     }while(fso.FileExists(htaPath));
217     //start to write the hta file
218     var txt=fso.CreateTextFile(htaPath);
219     txt.WriteLine('<html>\r\n<head>\r\n<title>'+values.Item('title')+'</title>');
220     txt.WriteLine(getHta());
221     txt.WriteLine('<script language="'+values.Item('language')+'">');
222     if(values.Item('language')=='JavaScript'){
223         if(values.Item('commandLine')=='Yes'){
224             txt.WriteLine(GetCmdArgs); 
225             txt.WriteLine('');
226         }
227                    
228         if(values.Item('center')=='Yes'){
229             var width=values.Item('width'),height=values.Item('height');
230             if(width!=0&&height!=0){
231                 txt.WriteLine('\r\nself.resizeTo('+width+','+height+');');
232                 txt.WriteLine('self.moveTo((self.screen.width-'+width+
233                     ')/2,(self.screen.height-'+height+')/2);\r\n');
234             }
235         }
236         else{
237             var left=values.Item('left'),top=values.Item('top');
238             var width=values.Item('width'),height=values.Item('height');
239             if(left!=0&&top!=0&&width!=0&&height!=0){
240                 txt.WriteLine('\r\nself.resizeTo('+width+','+height+');');
241                 txt.WriteLine('self.moveTo('+left+','+top+');\r\n');
242             }
243         }
244         for(var e=new Enumerator(values);!e.atEnd();e.moveNext()){
245             name=e.item();
246             if(name.indexOf('window')==0&&values.Item(name)=='Yes'){
247                 name=name.replace('_','.');
248                 txt.WriteLine(name+'=function(){\r\n    \r\n}\r\n');
249             } 
250         }
251     }
252     else{
253         if(values.Item('commandLine')=='Yes'){
254             var stream=fso.OpenTextFile(GetCmdArgs(Creater.commandLine)[0]);
255             for(var i=1;i<=85;i++)
256                 if(i<25)
257                     stream.SkipLine();
258                 else
259                     txt.WriteLine(stream.ReadLine());
260             stream.Close();
261             txt.WriteLine('');
262         }     
263         if(values.Item('center')=='Yes'){
264             var width=values.Item('width'),height=values.Item('height');
265             if(width!=0&&height!=0){
266                 txt.WriteLine('\r\nself.resizeTo '+width+','+height);
267                 txt.WriteLine('self.moveTo (self.screen.width-'+width+
268                     ')/2,(self.screen.height-'+height+')/2\r\n');
269             }
270         }
271         else{
272             var left=values.Item('left'),top=values.Item('top');
273             var width=values.Item('width'),height=values.Item('height');
274             if(left!=0&&top!=0&&width!=0&&height!=0){
275                 txt.WriteLine('\r\nself.resizeTo '+width+','+height);
276                 txt.WriteLine('self.moveTo '+left+','+top);
277                 txt.WriteLine('');
278             }
279         }
280         for(var e=new Enumerator(values);!e.atEnd();e.moveNext()){
281             name=e.item();
282             if(name.indexOf('window')==0&&values.Item(name)=='Yes'){
283                 txt.WriteLine('Sub '+name+'\r\n    \r\nEnd Sub\r\n');
284             } 
285         }       
286     }
287     txt.WriteLine('<\/script>');
288     txt.WriteLine('</head>\r\n<body>\r\n</body>\r\n</html>');
289     txt.Close();
290     self.close();
291 }
292 
293 function btnCancel_clicked(){
294     var btn=ws.Popup("The settings will be gave up, a"+
295         "re you sure?",0,"Warnning",4+32);
296     if(btn==6)
297         self.close();
298 }
299 
300 function Elements(){
301      this.getValue=function(e){
302         switch(e.type){
303             case "checkbox":
304                 return e.checked?'Yes':'No';
305             case "text":
306             case "file":
307                 return e.value;
308             case "select-one":
309             case "select-multiple":
310                 index=e.selectedIndex
311                 return e.options[index].text;
312             default:
313                 throw new Error(5001,"The element '"+e.id+"' is not the right type.");
314         }
315     }
316     for(var i=0;i<self.document.all.length;i++){
317         var el=self.document.all[i];
318         if(el.id!=''&&typeof el.type!='undefined'&&el.type!='button')
319             eval('this.'+el.id+'=el');
320     }  
321 }
322 
323 
324 window.onload=function(){
325     var width=800,height=685;
326     self.resizeTo(width,height);
327     self.moveTo((self.screen.width-width)/2,
328         (self.screen.height-height)/2); 
329 }
330 </script>
331 </head>
332 <body>
333 <table width="100%" border="1">
334 <col />
335 <col width="16%" />
336 <col width="46%" />
337 <tr>
338 <th>选择事件</th>
339 <th>属性</th>
340 <th>设置值</th>
341 </tr>
342 <tr>
343 <td><input type="checkbox" id="window_onafterprint">window.onafterprint</td>
344 <td align="right">applicationName: </td>
345 <td><input type="text" id="applicationName"></td>
346 </tr>
347 <tr>
348 <td><input type="checkbox" id="window_onbeforeprint">window.onbeforeprint</td>
349 <td align="right">border: </td>
350 <td><select id="border">
351   <option value="Dialog">Dialog</option>
352   <option value="None">None</option>
353   <option value="Thick">Thick</option>
354   <option value="Thin">Thin</option>
355 </select></td>
356 </tr>
357 <tr>
358 <td><input type="checkbox" id="window_onbeforeunload">window.onbeforeunload</td>
359 <td align="right">borderStyle: </td>
360 <td><select id="borderStyle">
361   <option value="Normal">Normal</option>
362   <option value="Complex">Complex</option>
363   <option value="Raised">Raised</option>
364   <option value="Static">Static</option>
365   <option value="Sunken">Sunken</option>
366 </select></td>
367 </tr>
368 <tr>
369 <td><input type="checkbox" id="window_onblur">window.onblur</td>
370 <td align="right">caption: </td>
371 <td><input type="checkbox" id="caption" checked="true">show title bar?</td>
372 </tr>
373 <tr>
374 <td><input type="checkbox" id="window_onerror">window.onerror</td>
375 <td align="right">contextMenu: </td>
376 <td><input type="checkbox" id="contextMenu" checked="true">show contextMenu?</td>
377 </tr>
378 <tr>
379 <td><input type="checkbox" id="window_onfocus">window.onfocus</td>
380 <td align="right">icon: </td>
381 <td><input type="file" id="icon"></td>
382 </tr>
383 <tr>
384 <td><input type="checkbox" id="window_onhelp">window.onhelp</td>
385 <td align="right">id: </td>
386 <td><input type="text" id="id"></td>
387 </tr>
388 <tr>
389 <td><input type="checkbox" id="window_onload" checked="true">window.onload</td>
390 <td align="right">innerBorder: </td>
391 <td><input type="checkbox" id="innerBorder" checked="true">show inner border?</td>
392 </tr>
393 <tr>
394 <td><input type="checkbox" id="window_onresize">window.onresize</td>
395 <td align="right">navigable: </td>
396 <td><input type="checkbox" id="navigable" checked="true">navigate pages in current page?</td>
397 </tr>
398 <tr>
399 <td><input type="checkbox" id="window_onscroll">window.onscroll</td>
400 <td align="right">maximizeButton: </td>
401 <td><input type="checkbox" id="maximizeButton" checked="true">show maximize button?</td>
402 </tr>
403 <tr>
404 <td><input type="checkbox" id="window_onunload">window.onunload</td>
405 <td align="right">minimizeButton: </td>
406 <td><input type="checkbox" id="minimizeButton" checked="true">show minimize button?</td>
407 </tr>
408 <tr>
409 <td>
410 <table width="100%">
411 <col width="38%" />
412 <col />
413 <tr>
414 <td align="right">left: </td>
415 <td><input type="text" id="left" disabled="true" value="0"></td>
416 </tr>
417 </table>
418 </td>
419 <td align="right">scroll: </td>
420 <td><input type="checkbox" id="scroll" checked="true">show scroll?</td>
421 </tr>
422 <tr>
423 <td>
424 <table width="100%">
425 <col width="38%" />
426 <col />
427 <tr>
428 <td align="right">top: </td>
429 <td><input type="text" id="top" disabled="true" value="0"></td>
430 </tr>
431 </table>
432 </td>
433 <td align="right">scrollFlat: </td>
434 <td><input type="checkbox" id="scrollFlat" checked="true">show scroll in flat?</td>
435 </tr>
436 <tr>
437 <td>
438 <table width="100%">
439 <col width="38%" />
440 <col />
441 <tr>
442 <td align="right">width: </td>
443 <td><input type="text" id="width" value="0"></td>
444 </tr>
445 </table>
446 </td>
447 <td align="right">selection: </td>
448 <td><input type="checkbox" id="selection" checked="true">allow user to select the page elements?</td>
449 </tr>
450 <tr>
451 <td>
452 <table width="100%">
453 <col width="38%" />
454 <col />
455 <tr>
456 <td align="right">height: </td>
457 <td><input type="text" id="height" value="0"></td>
458 </tr>
459 </table>
460 </td>
461 <td align="right">showInTaskbar: </td>
462 <td><input type="checkbox" id="showInTaskbar" checked="true">show in taskbar?</td>
463 </tr>
464 <tr>
465 <td>
466 <table width="100%">
467 <col width="38%" />
468 <col />
469 <tr>
470 <td align="right">center: </td>
471 <td><input type="checkbox" id="center" checked="true" onclick="center_clicked()">center screen?</td>
472 </tr>
473 </table>
474 </td>
475 <td align="right">singleInstance: </td>
476 <td><input type="checkbox" id="singleInstance">run as a single instance application?</td>
477 </tr>
478 <tr>
479 <td>
480 <table width="100%">
481 <col width="38%" />
482 <col />
483 <tr>
484 <td align="right">language: </td>
485 <td><select id="language">
486   <option value="JavaScript">JavaScript</option>
487   <option value="VBScript">VBScript</option>
488 </select></td>
489 </tr>
490 </table>
491 </td>
492 <td align="right">sysMenu: </td>
493 <td><input type="checkbox" id="sysMenu" checked="true">show system menu?</td>
494 </tr>
495 <tr>
496 <td>
497 <table width="100%">
498 <col width="38%" />
499 <col />
500 <tr>
501 <td align="right">commandLine: </td>
502 <td><input type="checkbox" id="commandLine">Receive arguments?</td>
503 </tr>
504 </table>
505 </td>
506 <td align="right">version: </td>
507 <td><input type="text" id="version" value="1.0"></td>
508 </tr>
509 <tr>
510 <td>
511 <table width="100%">
512 <col width="38%" />
513 <col />
514 <tr>
515 <td align="right">title: </td>
516 <td><input type="text" id="title"></td>
517 </tr>
518 </table>
519 </td>
520 <td align="right">windowState: </td>
521 <td><select id="windowState">
522   <option value="Normal">Normal</option>
523   <option value="Minimize">Minimize</option>
524   <option value="Maximize">Maximize</option>
525 </select></td>
526 </tr>
527 </table>
528 <center>
529 <input type="button" id="btnOk" value="  Ok  " onclick="btnOk_clicked()">
530 <input type="button" id="btnCancel" value="Cancel" onclick="btnCancel_clicked()">
531 </center>
532 </body>
533 </html>

其执行界面:

相关文章
相关标签/搜索
每日一句
    每一个你不满意的现在,都有一个你没有努力的曾经。