菜鸟蹒跚学ASP-转帖一个HTA的代码，终于找到VBS和JS的UI了。

最新推荐文章于 2022-06-28 00:01:34 发布
最新推荐文章于 2022-06-28 00:01:34 发布
阅读量1.6k 收藏
点赞数
分类专栏： 代码留存 文章标签： ui function input button iterator border
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/darkread/article/details/1817168
版权

转自：http://www.never-online.net

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title> NCC Tools - http://www.never-online.net </title>
  <hta:application id="NCC"
  applicationname="NCC application"
  border="thin"
  borderstyle="normal"
  caption="yes"
  icon="http://www.never-online.net/images/icon.ico"
  maximizebutton="no"
  minimizebutton="yes"
  showintaskbar="no"
  singleinstance="yes"
  sysmenu="yes"
  version="1.01"
  windowState="normal"/>
  <meta http-equiv="ImageToolbar" content="no" />
  <meta name="author" content="BlueDestiny, never-online"/>
  <meta name="keywords" content="never modules, Mozilla CSS, C#, .net, Refercence, BlueDestiny, never-online, www.never-online.net"/>
  <meta name="description" content="BlueDestiny, never-online"/>
  <meta name="title" content="never code counter (NCC) - http://www.never-online.net" />
  <meta name="creator.name" content="Genius Lau, never-online, blueDestiny" />
  <style type="text/css" media="all" title="Default">
    body           { background-color:buttonface; }
    body,td,input  { font:9pt tahoma; }
    h1             { text-align:center; font-weight: bold; font-family: tahoma; font-size: 16pt; }
    fieldset       { height:300px; }
    legend         { font-weight: bolder; }
    .btn           { border-left:4px solid #444; border-top:1px solid #444; border-bottom:1px solid #444; border-right:1px solid #444; }
    .two           { width:200px; }
    .txt           { border:1px solid #444; }
    .file          { display:none; width:300px; border-left:4px solid #444; border-top:1px solid #444; border-bottom:1px solid #444; border-right:1px solid #444; }
    #loading       { display:none; filter:alpha(opacity=70); border:1px solid #444444; background-color:appworkspace; color:#ffffff; width:300px; font-size:13px; font-weight:bold; font-family:arial; padding:10px; position:absolute; top:0; left:0; }
    #left          { line-height:200%; width:50%; padding:20px; }
    #left ul       { margin:0 0 0 10px; }
    #left li       { list-style-type: decimal; margin:20px 10px 15px 10px; }
    #footer        { font-size:11px; text-align:center; }
    #right         { padding:20px; width:50%; }
    #outputWrapper { padding:10px; }
  </style>
  <script type="text/javascript">
  //<![CDATA[

  //======================================================================================
  //
  //  Module     : NCC -  never code counter V1.01 beta
  //  Script by  : never-online, blueDestiny
  //  Updated    : 2006-6-25
  //  Copyright  : Miracle technology all reserved
  //  Website    : http://www.never-online.net
  //  Email      : blueDestiny@126.com
  //  Blog       : http://blog.csdn.net/blueDestiny, http://blog.never-online.net/
  //  Comment    : Permission given to use this script in ANY kind of applications if
  //  header lines are left unchanged.
  //
  //======================================================================================

  //====================================================================================
  // Ultity Function
    var doc = document, wnd = window;
    String.prototype.trim = function() { return this.replace(/(^/s*)|(/s*$)/g, ''); };
    Array.prototype.push = function(x) { this[this.length] = x; };
    Array.prototype.pop = function() { return this[this.length-1]; };
  //====================================================================================
    var NCC =
    {
  // Private Variables
      _maxloop : 3000,
      _version : "1.02 beta",
      _author : "BlueDestiny, never-online",
      _webURI : "http://www.never-online.net",
      _lines : {"total":0},
      _bytes : {"total":0},
      _files : {"total":0},
      _words : {"total":0},
      _error : {},
      _filesExts : "cs,js,asp,xml,aspx",
      _fsoObj : new ActiveXObject("Scripting.FileSystemObject")
      // make sure Your fso activeXObject is availd. otherwise can not runing next code
    };
  // Public Functions API
    NCC.splash = function()
    {

    };
    NCC.init = function()
    {
      var fileDlgObjStr = '<object id="filepathDlg"'
                         +'          width="0px" height="0px"'
                         +'          classid="CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB"'
                         +'          codebase="http://activex.microsoft.com/controls/vb5/comdlg32.cab">'
                         +'</object>';
      var folderDlgObjStr = '<object id="folderpathDlg"'
                           +'        classid="CLSID:13709620-C279-11CE-A49E-444553540000"'
                           +'        width="0" height="0">'
                           +'</object>';
      var loadingObjStr = '<div id="loading"></div>';
      doc.body.insertAdjacentHTML("beforeEnd", fileDlgObjStr);
      doc.body.insertAdjacentHTML("beforeEnd", folderDlgObjStr);
      doc.body.insertAdjacentHTML("beforeEnd", loadingObjStr);
    }
    NCC.chkFileExts = function(filenameStr)
    {
      var a = this._filesExts.trim().split(",");
      var f = this.getFileExts(filenameStr);
      for (var i=0; i<a.length; i++)
      if (f.toLowerCase() == a[i].toLowerCase()) return true;
      return false;
    };
    NCC.output = function(wrapperID)
    {
      var k, x; x=[];
      x.push("------------- Files -------------");
      // -- part of files --
      for (k in this._files)
      x.push("[" +k+ "]: " +this._files[k]+ "");
      // -- part of words --
      x.push("------------- Words -------------");
      for (k in this._words)
      x.push("[" +k+ "]: " +this._words[k]+ "");
      // -- part of bytes --
      x.push("------------- Bytes -------------");
      for (k in this._bytes)
      x.push("[" +k+ "]: " +this._bytes[k]+ "");
      // -- part of lines --
      x.push("------------- Lines -------------");
      for (k in this._lines)
      x.push("[" +k+ "]: " +this._lines[k]+ "");
      x = x.join("/n");
      if (wrapperID) {
        var a = doc.all(wrapperID), t=a.tagName.toLowerCase();
        if (!a) return wnd.alert("HTMLElement ID /"" +wrapperID+ "/" is not valid!");
        if (t=="input" || t=="textarea") a.value = x;
        else a.innerHTML = x.replace(//n/,"<br/>");
      }
      return x;
    };
    NCC.saveAs = function(elIdorStr)
    {
      var dlg = doc.all("filepathDlg");
      var a = doc.all(elIdorStr);
      if (a) {
        var t = a.tagName.toLowerCase();
        var fileStr = (t=="input" || t=="textarea") ? a.value : a.innerHTML.replace(/<br(//)?>/g, "/n");
      } else {
        fileStr = elIdorStr;
      }
      dlg.cancelError=true;
      try {
        dlg.filter="Text Files (*.txt)|*.txt|HTM Files (*.htm)|*.htm";
        dlg.showSave();
        var f = this._fsoObj.CreateTextFile(dlg.filename,true);
        f.write(fileStr);
        f.Close();
      } catch(ex) {};
    };
    NCC.setFilesExt = function(filesExtsStr)
    {
      this._filesExts = filesExtsStr;
      return true;
    };
    NCC.getFilesExts = function()
    {
      return this._filesExts;
    };
    NCC.getFileExts = function(filenameStr)
    {
      var a=filenameStr.split(".");
      return a[a.length-1].toLowerCase();//a.pop()
    };
    NCC.selectSingleFile = function()
    {
      var dlg = doc.all("filepathDlg");
      var fps = doc.all("filepathStr");
      var fes = this._filesExts;
      var filename="", filter="", arr=[];
      arr = fes.trim().split(",");
      for (var i=0; i<arr.length; i++)
      filter += arr[i].toUpperCase() +" Files (*." +arr[i]+ ")|*." +arr[i]+ "" +(i==arr.length-1?"":"|");
      dlg.cancelError=true;
      try {
        dlg.filter = filter;
        dlg.showOpen();
        filename = dlg.filename;
      } catch(ex) {};
      if (filename.trim()=="") return false;
      fps.value = filename;
      if (!this.chkFileExts(filename)) return wnd.alert("File Extension name /"" +filename+ "/" is not valid!");
      return filename;
    };
    NCC.selectFolder = function()
    {
      var dlg = doc.all("folderpathDlg");
      try {
        var pathObj = dlg.browseForFolder(0,"Please Select Folder��",0);
        var pathStr = pathObj.parentFolder.parseName(pathObj.Title).path;
        return pathStr;
      } catch(ex) { return false };
    };
    NCC.countFolder = function(folderpathStr)
    {
      var ldg = doc.all("loading");
      with (ldg.style) {
        display = "block";
        top = parseInt((doc.body.clientHeight-ldg.offsetHeight)/2);
        left = parseInt((doc.body.clientWidth-ldg.offsetWidth)/2);
      }; ldg.innerHTML = "<div align=/"center/">Now Counting...</div>";
   wnd.status = "NCC Counting...";
      if (!this._fsoObj.FolderExists(folderpathStr)) {
        this.countSingleFile(folderpathStr);
      } else {
        var cnt = 0;
        function iterator(folderpathStr) {
          var a = NCC._fsoObj.getFolder(folderpathStr);
          var e = new Enumerator(a.files)
          for (; !e.atEnd(); e.moveNext()) {
      NCC.countSingleFile(e.item());
      if (cnt++>=NCC._maxloop) return;
     }

          var f = new Enumerator(a.subFolders)
          for (; !f.atEnd(); f.moveNext()) {
      iterator(f.item());
      if (cnt++>=NCC._maxloop) return;
     }
        }
        iterator(folderpathStr);
      }
      ldg.innerHTML = "<div align=/"center/">NCC Count Completely.</div>"
      wnd.status = "NCC Count Completely.";
      wnd.setTimeout(function(){ldg.style.display = "none";},3000);
    };
    NCC.countSingleFile = function(filepathStr)
    {
      var x, a, f, e;
      var ldg = doc.all("loading");
      if (!this._fsoObj.FileExists(filepathStr)) return false;
      f = this._fsoObj.GetFile(filepathStr);
      if (this.chkFileExts(f.name))
   {
    var o = f.openAsTextStream(1);
    if (o.atEndOfStream) { x = ""; } else { x = o.ReadAll(); }
    x = x.replace(/(/n|/r)+/mg,"$1");
    a = x.split("/n");
    e = this.getFileExts(f.name);
    this._bytes["total"] += x.length;
    this._bytes[e] ? this._bytes[e]+=x.length : this._bytes[e]=x.length;
    this._lines["total"] += a.length;
    this._lines[e] ? this._lines[e]+=a.length : this._lines[e]=a.length;
    a = x.replace(/(/s|/t| )+/g," ").split(" ");
    this._words["total"] += a.length;
    this._words[e] ? this._words[e]+=a.length : this._words[e]=a.length;
    this._files["total"] ++;
    this._files[e] ? this._files[e]++ : this._files[e]=1;
   }
      wnd.status = "NCC(/"" +f.path+ "/")";
      ldg.innerHTML = "now count /"" +f.name+ "/"."
   return this.chkFileExts(f.name)
    };
    NCC.formatSingleFile = function(filepathStr)
    {

    };
  //====================================================================================
    function window.onload() {
      NCC.init();
      wnd.resizeTo(800,480);
   doc.all("outputWrapper").value = "";
      setFilesExts();//setFilesExts.call(this);
    }
    function setFilesExts() {
      doc.all("filesExts").value = NCC.getFilesExts();
    }
    function output() {
      /*
      var e = event.srcElement;
      var a = doc.body.all;
      for (var i=0; i<a.length; i++) {
        if (a[i].tagName.toLowerCase()=="input") {
          if (a[i]!=e) a[i].disabled=true;
        }
      }
      */
   NCC.setFilesExt(doc.all("filesExts").value)
      NCC.countFolder(doc.all('filepathStr').value);
      NCC.output('outputWrapper');
    }
    function changeFileExt() {
      var groupfileExts = doc.all("groupfileExt");
      var fileExtStr = [];
      for (var i=0; i<groupfileExts.length; i++) {
        if (groupfileExts[i].checked)
        fileExtStr.push(groupfileExts[i].value);
      }
      NCC.setFilesExt(fileExtStr.join(","));
      setFilesExts();
    }
    function selectSingleFile(val) {
    if (!NCC.selectSingleFile()) return "";
      doc.all(val).value = NCC.selectSingleFile();
    }
    function selectFolder(val) {
      var a = NCC.selectFolder();
      if (a==false) return "";
      doc.all(val).value = a;
    }
    function saveAs() {
      NCC.saveAs('outputWrapper');
      //NCC.saveAs(NCC.output());
    }
  //]]>
  </script>
</head>
<body id="www.never-online.net">
  <h1> NCC (never code counter) tools - http://www.never-online.net </h1>
  <fieldset>
    <legend> - Application NCC (never code counter) -</legend>
    <table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td align="left" valign="top" id="left">
          <ul>
            <li>
              <input name="filepathStr" type="text" class="txt" value="E:/__works/__website" size="30">
              <input class="btn" type="button" value=" FILE " οnclick="selectSingleFile('filepathStr')"/>
              <input class="btn" type="button" value="FOLDER" οnclick="selectFolder('filepathStr')"/>
            </li>
            <li>
              <input name="groupfileExt" value="asp" type="checkbox" checked οnclick="changeFileExt()"/>
              .asp
              <input name="groupfileExt" value="js" type="checkbox" checked οnclick="changeFileExt()"/>
              .js
              <input name="groupfileExt" value="xml" type="checkbox" checked οnclick="changeFileExt()"/>
              .xml
              <input name="groupfileExt" value="aspx" type="checkbox" checked οnclick="changeFileExt()"/>
              .aspx
              <input name="groupfileExt" value="cs" type="checkbox" checked οnclick="changeFileExt()"/>
              .cs           
              <br/>
              <input name="filesExts" type="text" class="txt" id="filesExts" value="" size="40">
            </li>
            <li>
              <input class="btn two" type="button" value="Output Information" οnclick="output()"/>
              <!-- not complete <input name="button" type="button" class="btn" οnclick="NCC.format();" value="Format Code"/> -->
            </li>
            <li>
              <input class="btn two" type="button" value="Information Save As" οnclick="saveAs();"/>
            </li>
          </ul>
          <div id="footer">
            <p>
              NCC V1.01 beta Power By BlueDestiny, never-online
              <br/>
              More code please visit <a href="http://www.never-online.net" target="_blank" title="visit my site">http://www.never-online.net</a>
            </p>
          </div>
        </td>
        <td align="left" valign="top" id="right">
          <fieldset>
            <legend>- Output Information -</legend>
              <textarea id="outputWrapper" style="border:0; background-color:buttonface; width:96%; height:100%;"></textarea>
          </fieldset>
        </td>
      </tr>
    </table>
  </fieldset>
</body>
</html>
 

darkread
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
微软windows脚本中心hta编程
09-01
微软windows脚本中心之hta编程，脚本中心：ActiveX 控件指南。
[英语阅读]青少年网络搜索 “性”主题最热
张彤的专栏
12-18 7232
Sex, hot online search topic for children: Norton据网络安全公司诺顿近期公布的数据显示，“性”主题是2009年里青少年在线搜索最热的主题之一。诺顿的统计数据显示，本年度18岁以下青少年网络搜索最热关键词前三位是YouTube、Google和 Facebook，而“色情”和“性”则紧随其后，跻身前五。这一结果为家长敲响了警钟，提醒家长除了要留意孩子
HTA入门基础教程 | VBS脚本的GUI界面 HTA简明教程 ,附带完整历程及界面美化
CDamogu
06-28 2542
HTA GUI Example
Sex, crimes, and common sense: framing femininity from sensation to sexology【翻译】
热门推荐
hongfu951的专栏
03-05 1万+
ABSTRACT My dissertation tracks the production of "common sense" about female sexuality and psychology in nineteenth-century sensational British literature. I move from the sensation novel’s heyday, r...
vbs,hta中选择文件夹对话框实现代码
09-05
然而，这个代码不能在HTA中使用，因为HTA应用程序没有足够的权限来调用系统的文件夹对话框。因此，我们需要使用其他方法来实现文件夹选择对话框。 一种解决方法是使用VBScript的FileSystemObject对象来遍历文件系统...
HTA8506C-MH-002YY HTA8506C-MH+002YY HTA8506C-MD-002YY HTA8506C-M
最新发布
12-26
HTA8506C-M系列模块，包括HTA8506C-MH-002YY、HTA8506C-MH+002YY、HTA8506C-MD-002YY以及HTA8506C-MD+002YY，是海航信光电技术有限公司推出的一款高效能并行光收发一体模块。这些模块采用了LCC48封装方式，设计紧凑...
HTA-Exploit-:Microsoft Windows HTA（HTML应用程序）-远程执行代码
05-14
"HTA-Exploit-:Microsoft Windows HTA（HTML应用程序）-远程执行代码"这个标题揭示了一个安全问题，即存在恶意攻击者可能利用HTA文件进行远程代码执行的可能性。这种攻击方式通常发生在用户打开或下载了包含恶意HTA...
modern-hta:在HTML应用程序中运行现代代码
05-10
modern-hta将和其他捆绑在一起，以在运行现代代码。 用法 使用示例hta文件。 < meta http-equiv =" x-ua-compatible " content =" ie=11 " > < script src =" https://unpkg.com/modern-hta " > ...
VBS脚本的GUI界面 HTA简明教程（网络搜集整理）
09-05
在VBS中，HTA不仅提供了丰富的UI定制，还具有与VBScript的深度集成，使得开发者可以直接调用VBS的内置对象和函数，如WScript对象、FileSystemObject、Network对象等，以执行各种系统操作和数据处理。这对于那些需要...
2048游戏js版本 hta格式
05-02
2048游戏js版本 hta格式 可以右击用记事本打开查看源代码
接口测试工具V1.0.hta
05-21
用js实现http接口测试的小程序.超轻量级，只要在windows下双击就能使用
整人的好玩的屏幕小程序
08-25
整人的好玩的屏幕小程序，试试吧，本人玩过啦！拿来分享！结束密码是dreamseed（记住哦）
JS+hta打造手写输入
07-14
功能：JS+hta打造手写输入 功能：JS+hta打造手写输入 功能：JS+hta打造手写输入
windows的hta很好玩
03-18
NULL 博文链接：https://aleelock.iteye.com/blog/614974
HTA+VBS实现的话单核查小工具
weixin_34072458的博客
07-29 378
今天用HTA+VBS实现了一个话单核查小工具，代码行数185行。主要作用是快速解析话单的所有字段，避免每次取下话单后还需要查看规范文档，然后到UE里去数位数才能确定数据。使用这个工具可以节约不少时间。界面效果如下图所示：主要难点1、话单格式配置需要设计，最初是想做成xml格式，但后面想想不方便维护，所以做成了txt格式2、VBS控制HTML展示效果，需要逐步修正才能达到满意的效果小技巧汇总1、H...
VBS脚本的GUI界面——HTA简明教程
|独自望海。。。
01-12 5407
HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，双击就能运行，与VB、C++等程序语言所设计的软件没什么差别。原来网页中的工具栏、地址栏以及菜单栏在这个窗口里都没有被显示出来，还可以使用html中的绝大多数标签、脚本等，这就给予你对界面设计更多的控制权。（天哪，当我看到这句话的时候，心情是多么的激动，
语料编程空手道：从 VBA，到 VBS，到 HTA
路楷的专栏
08-26 1345
语料编程空手道：从 VBA，到 VBS，到 HTA 作者：李亮（2013 年 7 月 1 日） 谈到语料，典型的存在体是足够统计学意义的一系列文本文件；如果语料都导入了数据库管理系统（例如 Microsoft Access 或 MySQL 或 SQLite），那么我们的语料库也叫做数据库了，因为语料是“野生的”或“随机的”或“抽样的”，数据是“驯化的”或“人造的”或“附加的
hta+vbs+js+div+css (javascript是原生态的)
weixin_30522183的博客
07-25 237
talbe是javascript动态生成的，根据你的sql语句来的，分页是vbs用数组来造的轮子，vbs这脚本虽然强大，却没有返回数据集的东东，数组来做简单的分页还是比较简单的，批量跟新呢？是上传execl来更新的，最好是用vba操作execl的话，直接在execl里修改了立马更新数据库，只是个小工具，目前还不是很强大不是很满意，慢慢做，局限hta不能跨平台只能windows，不能和硬件结合。优点...
WinXP下VBS脚本编写的HTA代码编辑器：正则与wmic应用
VBS脚本与DHTML结合，使得用户可以通过HTA（hta:application）文件格式来运行，这种格式允许网页以独立应用程序的形式运行，但相比纯VBS脚本，效率较低且代码结构相对复杂。 编辑器的核心组件包括： 1. **VBS脚本*...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值