vbs密码输入框代码

软件 2023-05-03

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

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

dim i

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

i=int(i)

if i=1234 then

msgbox "您输入的正确！"

else

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

end if

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

翻译：

不变量是 i

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

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

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

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

如果不是,则

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

结束语句

怎么用vbs做一个输入密码才能关闭窗口,如果输入错误要重新输入？

假设密码是“！123” do '进入循环 Pw=inputbox("请输入密码：") '获取用户输入 if Pw="!123" then '这里的密码可以根据实际情况更改 exit do '输入正确退出 else: msgbox"密码输入错误，请重新输入",0+16,"提示" '若输入错误则弹出错误提示信息 end if '停止判断 loop 若有帮助请采纳，谢谢

vbs msgbox 代码

把c=inputbox("悄然代号","提示","是")及以后的代码改为： dim i do c=inputbox("悄然代号","提示","是") select case c case 1 i = msgbox("你是嘻嘻",1+32,"") case 2 msgbox "你是嘻嘻",1+32,"" end select loop while i = 2

写一段vbscript脚本用于向用户显示一个输入框,直至用户输入了正确的密码,则弹出消息对话框显

vbs代码问题如何用vbs打开一个指定程序，然后在程序上输入密码？

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 = N

标签：编程 vbs 软件计算机代码