vbs制作密码输入框

用VBScript弹出一个密码输入框，制作密最直接的码输方法就是调用Internet Explorer的COM对象。你可能觉得这招有点老，入框但它确实能在不依赖任何外部组件的制作密情况下，拿到一个带掩码的码输输入界面。代码如下：

Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" Do While objIE.Busy WScript.Sleep 100 Loop objIE.Document.Body.InnerHTML = "<input type='password' id='pwd'><button onclick='window.close()'>OK</button>" objIE.Visible = True 

这段代码打开一个IE窗口，入框里面就一个密码框和一个按钮。制作密但问题来了——你怎么把用户输入的码输值取回来？IE进程关掉之后，那个值就没了。入框所以实际用的制作密时候，得把输入结果写到某个地方，码输比如一个临时文件，入框或者用window.opener传回宿主脚本。制作密不过VBScript本身跑在WScript里，码输没有opener，入框所以写文件是最省事的办法。

我试过在按钮的onclick里加一段VBScript，直接调用FileSystemObject把密码框的值写进C:\temp\pwd.txt。这样主脚本轮询这个文件，读到内容就继续。但Windows 10之后，IE的COM自动化经常被安全策略拦住，尤其是当脚本从网络位置运行时。一个更稳的做法是用MSHTA，它内嵌了IE引擎，但不需要单独启动IE进程。把VBScript嵌在HTML里，用<hta:application>标记，密码框的输入可以直接用document.getElementById("pwd").value拿到，然后通过window.close关闭时把值写到命令行参数或者剪贴板。

剪贴板是个取巧的路子。用Clipboard对象或者IE.Document.ExecCommand "Copy"把密码框内容复制到剪贴板，主脚本再用HTMLFile或Word.Application读剪贴板。但剪贴板会覆盖用户原来的内容，不太礼貌。我一般还是用临时文件，路径用%TEMP%，文件名随机生成，读完就删。

另一个坑是密码框的掩码字符。IE默认显示圆点，但如果你在HTA里用input type="password"，在某些旧版Windows上会显示成方框或者干脆不掩码。这时候可以手动用style="-webkit-text-security: disc"，不过IE不支持这个CSS属性。那就只能靠type="password"原生行为，别去动它。

如果不想依赖IE，还可以用UserAccounts.CommonDialog，但它只能选文件，不能输入文本。或者调用WScript.Shell的Popup方法，但Popup不支持掩码，密码会明文显示在屏幕上。所以绕来绕去，IE COM或者HTA还是最实际的方案。

最后提醒一句：这种密码输入框的安全性基本为零。任何能读内存或者钩键盘的进程都能拿到密码。它只适合内部脚本做简单的口令确认，别拿它当登录框用。我见过有人用它做软件注册码输入，结果密码明文躺在临时文件里好几天，这就不太应该了。