如何实现页面的刷新功能？（以解决）

jindouguang

如何实现页面的刷新功能啊？
哪位大虾 告诉一下  
偶是新手
就是web 界面的 F5 刷新
但是 不想用这个函数
Function SendKey(byval key)
    Dim oWshShell
    Set oWshShell =CreateObject("WScript.Shell")
    oWshShell.SendKeys key
    Wait(1)
    Set oWshShell = Nothing
End Function
SendKey（"MICF5"）

请高手指点一点 有没有其他的方法



楼下的方法正确
browser（“×××”）。refresh

[ 本帖最后由 jindouguang 于 2009-1-4 17:34 编辑 ]

ls_721521

鼠标右键的刷新 和 ie的刷新按钮

风过无息

方法1,使用IE上自带的刷新按钮
方法2,使用Refresh函数
Sub Refresh_Example()
'The following example uses the Refresh method to refresh the
'objects in the Mercury Tours browser.
Browser("Mercury Tours").Refresh
End Sub

david208

ls正解
不过用function更好吧 如果要指定浏览器的话

jindouguang

谢谢楼上的楼上
方法2 正解

Randall

Browser("CreationTime:=0").Object.ReFresh

centurystone

风过无息正解

happychap

遇到问题多查查HELP嘎，HOHO

Iris-Zhang

用refresh进行刷新，回放时出现‘General run error.’
不知道是什么回事，请高手指点~~

zhangxinnow

2楼正解

chenxi01032005

我也是。用refresh进行刷新，回放时出现‘General run error.’
哪位知道是怎么回事吗？
谢谢咯。

今天用了windows系统内的com对象，可以实现了。
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate "http://www.a-bm.cn/Exhi_news/T164/list.html"   
.Left = 0
.Top = 0
.Width = 300
.Height = 200
.ToolBar = 0
.StatusBar = 1
.Visible = 1
End With

Dim i
i=0
Do
     
     wait 10
     '延时10s
     i=i+1
     objExplorer.Refresh
     MsgBox i
Loop   While   i<5

[ 本帖最后由 chenxi01032005 于 2009-11-13 11:53 编辑 ]