c_c_lai

¦^´_ 2# Amin

1. Sub test()
   
2.     Dim WebBrowser1 As Object
   
3.    
   
4.     Set WebBrowser1 = CreateObject("InternetExplorer.Application")
   
5.    
   
6.     WebBrowser1.Navigate "http://www.google.com/"
   
7.     ' Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
   
8.     '     DoEvents
   
9.     ' Loop
   
10.     MsgBox WebBrowser1.ReadyState
    
11.     On Error Resume Next
    
12.     WebBrowser1.Navigate "about:blank"
    
13. End Sub

½Æ»s¥N½X