获取VB里 webbrowser 中的按钮事件

引用Microsoft  HTML  Object  Library 

    
    

     
     Private
     
      WithEvents m_oDoc  
     
     As
     
      HTMLDocument

     
     Dim
     
      oEvent  
     
     As
     
      CEventObj


     
     Private
     
      
     
     Sub
     
      Command1_Click()
  

     
     End Sub
     
     


     
     Private
     
      
     
     Sub
     
      Form_Load()
  WebBrowser1.Navigate 
     
     "
     
     http://localhost:82/index.asp
     
     "
     
     

     
     End Sub
     
     



     
     Private
     
      
     
     Function
     
      m_oDoc_onclick() 
     
     As
     
      
     
     Boolean
     
     
            
     
     Set
     
      oEvent 
     
     =
     
      m_oDoc.parentWindow.event
          
     
     If
     
      oEvent.srcElement.id 
     
     =
     
      
     
     "
     
     login
     
     "
     
      
     
     Then
     
     
            Form2.Show
            Form2.WebBrowser1.Navigate 
     
     "
     
     http://localhost:82/receive.asp
     
     "
     
     
          
     
     End
     
      
     
     If
     
     

     
     End Function
     
     

    
  
     
     Private
     
      
     
     Sub
     
      WebBrowser1_DocumentComplete(ByVal pDisp 
     
     As
     
      
     
     Object
     
     , URL 
     
     As
     
      Variant)
          
     
     Set
     
      m_oDoc 
     
     =
     
      pDisp.Document
  
     
     End Sub
     
     



    
    

index.asp

 

    
    

     
     
     
     

     
     <
     
     form
     
     >
     
     

     
     <
     
     input 
     
     type
     
     ='button' 
     
     value
     
     ="登陆"
     
      id
     
     ="login"
     
     ></
     
     input
     
     >
     
     

     
     </
     
     form
     
     >