51Testing软件测试论坛

标题: 如何实现页面的刷新功能？（以解决） [打印本页]

作者: jindouguang 时间: 2008-12-30 15:19
标题: 如何实现页面的刷新功能？（以解决）
如何实现页面的刷新功能啊？
哪位大虾告诉一下
偶是新手
就是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 时间: 2008-12-30 15:24
鼠标右键的刷新和 ie的刷新按钮

作者: 风过无息 时间: 2008-12-30 15:25
方法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 时间: 2008-12-30 15:37
ls正解
不过用function更好吧如果要指定浏览器的话

作者: jindouguang 时间: 2008-12-30 16:49
谢谢楼上的楼上
方法2 正解

作者: Randall 时间: 2008-12-30 19:39
Browser("CreationTime:=0").Object.ReFresh

作者: centurystone 时间: 2008-12-31 15:12
风过无息正解

作者: happychap 时间: 2008-12-31 16:08
遇到问题多查查HELP嘎，HOHO

作者: Iris-Zhang 时间: 2009-1-1 14:05
用refresh进行刷新，回放时出现‘General run error.’
不知道是什么回事，请高手指点~~

作者: zhangxinnow 时间: 2009-1-5 11:55
2楼正解

作者: chenxi01032005 时间: 2009-11-12 18:30
我也是。用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 编辑 ]

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)