Question

如何让vbs只有在输入指定数字时才运行（类似于密码输入框）

Answer 1

这个非常简单，复制代码：

---

dim i

i=inputbox("请输入密码")

i=int(i)

if i=1234 then 

msgbox "您输入的正确！"

else

msgbox "对不起,您输入的不正确！"

end if

上面的1234是密码，可以改，改的时候不要把空格删掉

翻译：

不变量是 i

i=("我们输入的数字")

i=int(i)    ←这里是把输入的数字转换成计算机语言

如果 我们输入的数字i=1234 那么

弹出窗口"您输入的正确！"

如果不是,则

弹出窗口"您输入的不正确！"

结束语句

Answer 2

Option Explicit Dim objShell, strProgram, strKeys Set objShell = CreateObject("Wscript.Shell") strKeys = "Hello world" '要发送的字符,请自己更改 strProgram = "c:\windows\system32\notepad.exe" '需要打开的程序,请自己指定 With objShell .Run strProgram WScript.Sleep 500 .SendKeys strKeys .SendKeys "~" End With Set objShell = Nothing

追问

我想做成一个输入框，只有输入正确时才会打开程序，怎么办？

Answer 3

原理就是首先获取输入值，然后加判断，比对输入值和设定值是否一致。

追问

感激不尽。