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

donod

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

GBKEE

¦^´_ 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

donod

¦^´_ 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)

¤U¸ü¦¸¼Æ: 5

2015-5-3 12:20

donod

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

¤U¸ü¦¸¼Æ: 5

2015-5-8 02:19

GBKEE

¦^´_ 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

donod

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

¤U¸ü (68.98 KB)

2015-5-8 16:59

GBKEE

¦^´_ 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

donod

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

GBKEE

¦^´_ 8# donod
¦³Ãø«×vba ¤£¤ä´© Google Chrome

donod

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