- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 2# Amin - Sub test()
- Dim WebBrowser1 As Object
-
- Set WebBrowser1 = CreateObject("InternetExplorer.Application")
-
- WebBrowser1.Navigate "http://www.google.com/"
- ' Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
- ' DoEvents
- ' Loop
- MsgBox WebBrowser1.ReadyState
- On Error Resume Next
- WebBrowser1.Navigate "about:blank"
- End Sub
½Æ»s¥N½X |
|