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>
其执行界面：
