自动登录，不允许第二个账号登录，需要退出第一个账号

Question

Private Sub Command1_Click()
        Set ie = CreateObject("InternetExplorer.Application")
        With ie
            .Visible = True
            .Navigate "http://192.168.1.3/M0B2/login.aspx"
            Do Until .ReadyState = 4
                DoEvents
            Loop
            .Document.All("txtEMPID").Value = "123456"
            .Document.All("txtPWD").Value = 123456"
            .Document.All("btnLogin").Click
        End With
End Sub参考别人改的一个自动登录网站的脚本  单独一个可以正常使用，假如有第二个按钮会提示第一个账号没有退出，测试后发现 ·手动打开一个新的IE选项卡是可以重复登录的，目前分析问题是直接访问这个IP地址·是有了session,请问是否可以设置相关参数为每次点击都是打开一个新的选项卡？
 感谢大家！

Answer 1

如果你想开发浏览器相关的东西建议你用BHO技术，如果你是想提取或设置WEB站点的信息，建议你用AJAX技术，当然在VB里就不能叫AJAX了，应该叫ABAX

Answer 2

试试这样行不行:Private Sub Command1_Click()
        Set ie = CreateObject("InternetExplorer.Application")
        With ie
            .Visible = True
            .Navigate "http://192.168.1.3/M0B2/login.aspx"
            Do Until .ReadyState = 4
                DoEvents
            Loop
            .Document.All("txtEMPID").Value = "123456"
            .Document.All("txtPWD").Value = "123456"
            .Document.All("btnLogin").Click
        End With
End SubPrivate Sub Command2_Click()
        Set ie = CreateObject("InternetExplorer.Application")
        With ie
            .Visible = True
            .Navigate "http://192.168.1.3/M0B2/login.aspx"
            Do Until .ReadyState = 4
                DoEvents
            Loop
            .Document.All("txtEMPID").Value = "654321"
            .Document.All("txtPWD").Value = "654321"
            .Document.All("btnLogin").Click
        End With
End Sub