Question

VB6.0 设置密码

VB6.0做好了form1,然后导出可执行程序exe。但我想每次双击打开该exe后，先弹出小窗口让我输入密码，输入正确了才让我进入，不正确就自动关闭该程序。应该在那个事件写代码呢？请提供完整的代码，谢。

Answer 1

如果只是加个密码限制登录，在Form_load中加入这句代码就行了：

If Not InputBox("请输入密码") = "999" Then End

输入的密码是 999时，继续执行，否则退出程序。

Answer 2

以及VBScript，否则弹出的窗口会使程序无法起到应有的效果。

程序我帮你写了一下，在新浪已经调试通过。不同的网站，可能需要按TAB键的次数不同，你可以自己多试验一下，先用手试需要几次TAB，记下次数，然后写到程序里就可以了，其他更多字段，原理也是相同的。

Shell("C:\\Program Files\\Internet Explorer\\IEXPLORE.exe ", AppWinStyle.NormalFocus, True, 2000) ' 等待两秒钟，IE打开需要一点时间
SendKeys.SendWait("") ' 按九次TAB键，转到用户名输入框（不同的电脑情况不同，需要试验几次）
SendKeys.SendWait("username") ' 输入用户名
SendKeys.SendWait("") ' 再按一次TAB键，转到密码输入框
SendKeys.SendWait("password") '输入密码
SendKeys.SendWait("") ' 按回车键