频道栏目
首页 > 程序开发 > Web开发 > PHP教程 > PHP应用 > 代码收藏 > 正文
VBA的inputBox函数的JScript模拟
2016-01-07 14:19:07           
收藏   我要投稿

本文要点:

  1. 示例WScript.CreateObject的事件前缀绑定事件处理过程
  2. 示例InternetExplorer.Application在JScript下来模仿inputBox函数
  3. 示例JScript脚本宿主运行时访问页面内容、脚本的方法。
/* Tips: an alert emulator for Wscript host */
function alert(msg){
  WScript.Echo(msg+"");
}

// Binding event handler prefix: ONIE_
var IE = WScript.CreateObject("InternetExplorer.Application","ONIE_");
IE.left=50;
IE.top = 100;
IE.height = 200;
IE.width = 350;
IE.menubar = false;
IE.toolbar = false;
IE.statusbar = false;
IE.resizable = false;
IE.navigate("c:\\temp\\readme.html");
IE.visible = true;

while(!IE.Document.Script.GetValue){ // break when page load and run
  WScript.Sleep( 300 );
}

alert("Please click OK");

//alert(IE.Document.Script);
//alert(IE.Document.body);
//alert(IE.Document.Script.GetValue);
alert("GetValue()="+IE.Document.Script.GetValue());

WScript.DisconnectObject( IE );
IE.Quit()

alert("Disconnected");

function ONIE_WindowStateChanged(state){
  alert("Event: Window State Changed to "+state);
}

// Raised from loading a document in Internet Explorer
function ONIE_DownloadBegin(){
  alert("Event: Download begins");
}

/* Raised from quitting Internet Explorer, but we're
 * disconnecting from the object before calling
 * the Quit method to terminate Internet Explorer, so 
 * the dialog box isn't shown. */
function ONIE_OnQuit(){
  alert("Event: Quit Internet Explorer");
}
<!DOCTYPE html>
<html>
 <head>
  <meta charset="utf-8" />
  <title> Test </title>
 </head>


 <body>
  <label>请输入:<input id="box" style="width:120px;" /></label>
  <script type="text/javascript">
    function GetValue(){
      return document.getElementById("box").value;
    }
  </script>
 </body>
</html>

关于Windows Scripting Host这个很实用的古董编程技术

包括:

Advanced VBSript for Microsoft Windows Administrators.pdf

Advanced Windows Script Host Developers Guide (2003) .pdf

IVIEWERS.DLL

Microsoft VBScript Step by Step.pdf

Microsoft Windows脚本技术.CHM

OLEVIEW.EXE

scd56chs.exeJScript & VBScript 官方参考手册 5.6中文版

script56.chm JScript & VBScript 官方参考手册 5.6 e 文版

scripten.5.7.0.16535.win2k.exe JScript & VBScript 安装程序

scripten.5.7.0.16535.win2k3 .exe

scripthost20dev.chm  Microsoft Windows Script Host 2.0 Developer’s Guide / Günter Born.<

script_repository10.chm System Administration Scripting Guide Script RepositoryVersion 1.0, May 2002 
VBScript Programmer's Reference, 3rd Edition.pdf

VBScript程序员参考手册.pdf

VBS_常用脚本.docx

sct10en.exe    Microsoft Script Control 1.0

 

点击复制链接 与好友分享!回本站首页
相关TAG标签 函数
上一篇:Qt5的插件机制(7)--插件开发示例代码(Lower-level API)
下一篇:Qt Quick实现的涂鸦程序
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站