登陆
用户名:manlianha 
密码:112233 Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.btophr.com/common/login.asp", 1
    
    hWin = 0
    Do
        hWin = FindWindow(vbNullString, "Microsoft Internet Explorer")
        If hWin > 0 Then
            Debug.Print hWin
            Call TerminateProcess(hWin, 1)
            Exit Do
        Else
            DoEvents
        End If
    LoopEnd Sub

解决方案 »

  1.   

    在WebBrowser1的NavigateComplete2事件中加入如下代码就可以使那种窗口不弹出了:
    pDisp.Document.parentWindow.execScript "window.alert=null;"
    前面我也问了这个问题,不过用SendMessage发送WM_CLOSE消息之类的办法关不掉的,在这里有朋友回答是用这种方法,我试了挺好
      

  2.   


    "biqiang(边城浪子) "兄太谦虚了,真乃知识分子中之豪杰!您提供的这个方法使得我的问题得到解决,谢谢!再问兄,象这样的句子和知识应从何种资料上获得,在何处可以得到这些类似的信息?不胜感激!