ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó¦P®É­«·s¾ã²z¥þ³¡ºô­¶

[µo°Ý] ½Ð°Ý¦p¦ó¦P®É­«·s¾ã²z¥þ³¡ºô­¶

«öF5¥i¥H­«·s¾ã²z·í«eºô­¶¡A½Ð°Ý¦p¦ó¦P®É­«·s¾ã²z¥þ³¡ºô­¶¡AÁÂÁÂ!

¦^´_ 1# donod
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim URL As String
  4.     URL = "http://forum.twbts.com/thread-13991-1-1.html"
  5.     With CreateObject("InternetExplorer.Application")
  6.         .Navigate URL
  7.         .Visible = True
  8.         Do While .Busy Or .readyState <> 4:         Loop
  9.         .Refresh  'ºô­¶«öF5
  10.         Do While .Busy Or .readyState <> 4:         Loop
  11.     End With
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
ÁÂÁÂGBKEEª©¤j!
¸Õ¤F¡A¦ý¥u·|­«·s¶}¤@­Ó«ü©wªººô­¶¡A¦pªG­n±N¤w¸g¥´¶}ªº¥þ³¡ºô­¶¡A¦P®É­«·s¾ã²z¡AÀ³¦p¦ó§ï¼g?
test1.rar (10.59 KB)

TOP

ÁÂÁÂGBKEEª©¤j´£ÂI!
test2.rar (10.79 KB)

TOP

¦^´_ 4# donod
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Dim Ie(1 To 3) As Object, URL(1 To 3) As String
  3. Sub Ex_ºô­¶³]¥ß()
  4.     Dim i As Integer
  5.     URL(1) = "http://forum.twbts.com/thread-13991-1-1.html"
  6.     URL(2) = "http://www.miniforum.net/"
  7.     URL(3) = "http://www.aastocks.com/tc/LTP/RTQuote.aspx?&symbol=00001"
  8.     For i = 1 To 3
  9.         Set Ie(i) = CreateObject("InternetExplorer.Application")
  10.         With Ie(i)
  11.             .Navigate URL(i)
  12.             .Visible = True
  13.             Do While .Busy Or .readyState <> 4:         Loop
  14.         End With
  15.     Next
  16. End Sub
  17. Sub Ex_ºô­¶­«¾ã()
  18.     Dim i As Integer
  19.     For i = 1 To 3
  20.         With Ie(i)
  21.             .Refresh  'ºô­¶«öF5
  22.             Do While .Busy Or .readyState <> 4:         Loop
  23.         End With
  24.     Next
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂGBKEEª©¤j!
²{¦b¥i¥H¶}3­Óºô­¶3­Óµøµ¡¡A½Ð±Ð¥i§_¦b¦P¤@­Óµøµ¡¶}¤F¦h­Óºô­¶(¦p¹Ï)¡A§@¥þ³¡­«·s¾ã²z?ÁÂÁÂ!

TOP

¦^´_ 6# donod
¸Õ¸Õ¬Ý
  1. '½Ð¥ý±N±M®× [³]©w¤Þ¥Î¶µ¥Ø]¥[¤J  Microsoft Internet Controls
  2. Option Explicit
  3. Sub IE_F5()
  4. Dim a As New SHDocVw.ShellWindows
  5. Dim shell_windows As New SHDocVw.ShellWindows
  6. Dim Ie As SHDocVw.InternetExplorer
  7. Dim objShell As Object
  8. Set objShell = CreateObject("shell.application")
  9.     If objShell.Windows.Count = 0 Then  'Ie ¨S¦³¶}±Ò
  10.         Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE", 2  ' (2  À³¥Îµ{¦¡µøµ¡·|¥H¤@­Ó¹Ï¥Ü¨ÓÅã¥Ü¡A¨Ã¨ã¦³¾nÂI)
  11.         MsgBox "½Ðµ¥­Ô ie ¶}±Ò§¹²¦"
  12.     End If
  13.     For Each Ie In shell_windows
  14.      With Ie
  15.         .Refresh
  16.         Do While .Busy Or .ReadyState <> 4:         Loop
  17.         MsgBox "ºô§}: " & .LocationURL & vbLf & "­«¾ã§¹²¦", , Ie.Document.Title
  18.     End With
  19.     Next
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE
¦AÁÂÁÂGBKEEª©¤j!
¦]¦³®É·|¥ÎGoogle Chrome¥N´ÀInternet Explorer¡A½Ð±ÐÀ³¦p¦ó§ï¼g¡AÁÂÁÂ!

TOP

¦^´_ 8# donod
¦³Ãø«×vba ¤£¤ä´© Google Chrome
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE
©ú¥Õ¤F¡A²{¦b¤]¨¬°÷¡A·PÁÂGBKEEª©¤j±Ð¾É!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD