VB 调用外部程序

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOW = 5 '显示窗口
以上为通用，声明

设密码为123456 cmd1为确认按钮
If text1.text="123456" then
cmd1_click
ShellExecute Me.hwnd, "open", 输入你要打开的文件, "", "", SW_SHOWNORMAL
else
msgbox"请输入正确密码！"
end if

用shell调用外部程序。
你这个什么输入密码就只要在弄一个窗体加判断就可以了
不懂得话PM我

如果是想找这么一工具，找 无忧登陆

想锻炼自己的编程能力，那我不会