百度空间 | 百度首页 
               
 
查看文章
 
[UMU WSH 教程](2)输入
2007年03月22日 星期四 11:58

  在前面的“[UMU WSH 教程](1) Hello WSH”,UMU 已经说过输出了,现在来说输入。

  先看 GUI 版,VBS 有从 VB 移植过来的 InputBox 函数,所以输入很简单,就是调用一下这个函数,下面代码保存为 Input.VBS:

Dim szBuf

szBuf = InputBox( "输入您的名字:", "[UMU WSH 教程](2)输入", "UMU" )
MsgBox szBuf & ",您好!", vbInformation, "[
UMU WSH 教程](2)输入"

  JS 可以就没这么简单了,就像它没有 MsgBox 函数一样,它也没有 InputBox 函数。当然方法是有的,不过现在先不说,因为比较复杂,等说到“InternetExplorer.Application”对象的时候再说吧。

  接着看 CUI 版,这次 VBS 和 JS 都支持了!下面代码保存为 InputCUI.VBS:

Dim szBuf

WScript.StdOut.Write "输入您的名字:"
szBuf = WScript.StdIn.ReadLine
MsgBox szBuf & ",您好!", vbInformation, "[
UMU WSH 教程](2)输入"

  注意:上面这段代码不能通过直接双击 InputCUI.VBS 来运行,这样做会提示“句柄无效”的错误!正确的运行方法是:右击 InputCUI.VBS,选择右键菜单里的“在命令提示符中打开”。

  JS 版:

var szBuf

WScript.StdOut.Write( "输入您的名字:" );
szBuf = WScript.StdIn.ReadLine();
WScript.StdOut.Write( szBuf + ",您好!" );

WScript.StdOut.Write( "\r\n\r\n请按回车退出..." );
WScript.StdIn.ReadLine();

  可能有人要问了,如果想输入密码呢?按我们现在这样输入会被看到,所以我们要想另外的办法了!如果是 GUI 的话,UMU 建议用 IE 来说输入窗口,这样既可以实现星号密码输入,又可以把输入框做得很漂亮,但是这个还是等到说“InternetExplorer.Application”对象的时候再说吧。先说 CUI 版的密码输入,VBS 版,保存为 Password.VBS:

Dim objSPW

WScript.StdOut.Write "输入密码:"
Set objSPW = CreateObject( "ScriptPW.Password" )
MsgBox "您的密码是:" & objSPW.GetPassword(), vbInformation, "[
UMU WSH 教程](2)输入"

Set objSPW = Nothing

  好了,相信 JS 版不用 UMU 来写了,按照前面的例子翻译一下~大家可以参考一下这篇文章:“如何使用 InputBox 来屏蔽密码?”。


类别:wsh 专栏 | 添加到搜藏 | 浏览() | 评论 (4)
 
最近读者:
 
网友评论:
1
2007年03月22日 星期四 13:22 | 回复
呵呵,不错哦,我会常来学习VBS的! 我刚接触电脑也是想学VBS。会说话的VBS很有意思
 
2
2007年03月22日 星期四 13:57 | 回复
要想跟上UMU,非得自己多花时间学学WSH。这点例子是远远不够的。
 
3
2008年04月19日 星期六 05:04 | 回复
上面那个js版的在我电脑上怎么不行啊,刚接触js不太了解 脚本:C:\Documents and Settings\Administrator\桌面\test.js 行:3 字符:1 错误:Automation服务器不能创建对象 代码:800A01AD 源:Microsoft JScript运行时错误
 
4
2008年04月19日 星期六 11:05 | 回复
To 3 woaibb2005: szBuf = WScript.StdIn.ReadLine(); 这句说明应该用 CScript.exe 来运行这个脚本,也就是“在命令提示符下打开”,如果还不行,那就是 WSH 坏了,重装一下。
 
发表评论:
姓 名:
网址或邮箱: (选填)
内 容:
验证码: 请点击后输入四位验证码,字母不区分大小写
      

     

©2009 Baidu