Board logo

标题: [转贴] HTA文件去除html控件认证和接收命令行参数 [打印本页]

作者: CrLf    时间: 2014-8-17 18:59     标题: HTA文件去除html控件认证和接收命令行参数

本帖最后由 CrLf 于 2014-8-17 19:39 编辑

以下代码为转载,可能是出自 vbs小铺,但找不到原链接
脚本之家还是叫无耻到家好了,除非被人投诉,否则转载从不注明出处,不但经常改标题还故意把代码中原有的一些字符串替换成自家域名,极度反感,强烈鄙视
-----------------------------------------------------------------------------------------------------------------------------
最近看vbscript程序员参考手册第三版,讲到hta的两个应用

一是利用hta 去掉htm的控件验证
hta1的代码如下:
  1. <html>
  2. <head>
  3. <title>Sample HTML Application one</title>
  4. </head>
  5. <body onload="Viewer.document.location.href='activexcontrol.htm'">
  6. <iframe id="Viewer" application="yes"><!--这里是去掉验证的关键-->
  7. </iframe>
  8. </body>
  9. </html>
复制代码
activexcontrol.htm代码如下:
  1. <script language="VBSCRIPT">
  2. Dim FileSystem
  3. ' Creates the FileSystemObject
  4. Set FileSystem = CreateObject("Scripting.FileSystemObject")
  5. </script>
复制代码
这样就可以去掉htm的本地验证了。
二、hta接收命令行参数
书中的代码我估计有错,不可能成功,我研究了一下,hta2应当这样写:
  1. <HTA:APPLICATION
  2. ID="MySampleHTA"
  3. Caption="yes">
  4. <html>
  5. <head>
  6. <title>Sample HTML Application two</title>
  7. </head>
  8. <body>
  9. <script language="VBScript">
  10. cmdLineArray = Split(MySampleHTA.commandLine)‘这是把命令中的参数变成数组
  11. MsgBox cmdLineArray(UBound(cmdLineArray)) '接收最后一个参数
  12. a=document.getElementById("MySampleHTA").commandLine '这样写法是一个字符串,不是数组
  13. MsgBox TypeName(a)&"--"&a '验证
  14. </script>
  15. </body>
  16. </html>
复制代码
在命令行下:hta2 lcx 就会弹出lcx的对话框




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2