| |
いや、そんな、API使わんでもよろしいのではないかと・・・。
Option Explicit
Private IE As Object
Private Const OLECMDID_REFRESH = &H16
Private Const OLECMDEXECOPT_DODEFAULT = &H0
Private Const READYSTATE_COMPLETE = &H4
Public Sub Sample()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "h t t p://www.ugtop.com/spill.shtml"
Do
DoEvents
Loop Until Not IE.Busy And IE.ReadyState = READYSTATE_COMPLETE
Application.OnTime Now + TimeValue("00:00:05"), "RefreshIE"
End Sub
Public Sub RefreshIE()
Debug.Print "更新します。"
IE.ExecWB OLECMDID_REFRESH, OLECMDEXECOPT_DODEFAULT
Application.OnTime Now + TimeValue("00:00:05"), "RefreshIE"
End Sub
|
|
774
- 12/2/27(月) 10:04 -
