- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 22# av8d - Dim IE As Object
- Sub CommandButton1_Click()
- Set IE = CreateObject("InternetExplorer.Application")
- With IE
- .Navigate "https://google.com"
- .Visible = False 'ie ¤£Åã¥Ü ´À¥NIE³Ì¤p¤Æªº«ü¥O
- '.Visible = True 'ie Åã¥Ü
- 'IE³Ì¤p¤Æn°Ê¥Î¨ìAPI¨ç¼Æ,¥i«ü©w¤W,¥k,°ª,¼e ´À¥NIE³Ì¤p¤Æªº«ü¥O
- '.Top = 1
- '.Left = 1
- '.Width = 1
- '.Height = 1
- Do While .Busy Or .readyState <> 4
- DoEvents
- Loop
- End With
- End Sub
- Sub Ex() '¨ä¥Lµ{¦¡¤¤©I¥sIE
- MsgBox IE.document.getElementsByTagName("Title")(0).innertext
- IE.Quit
- Set IE = Nothing
- End Sub
½Æ»s¥N½X |
|