|
本帖最后由 wusonglin2005 于 2010-11-25 11:53 编辑
Function Get_Ran(i)
Randomize
Get_Ran=RandomNumber (0,i)
End Function
Get_Count=Browser("广州市国土资源及房屋管理局房屋管理系统二期").Page("广州市国土资源及房屋管理局房屋管理系统二期").Frame("mainFrame").WebList("street").GetROProperty("items count")
Ran_Number=Get_Ran(Get_Count-1)
MsgBox Ran_Number
Browser("广州市国土资源及房屋管理局房屋管理系统二期").Page("广州市国土资源及房屋管理局房屋管理系统二期").Frame("mainFrame").WebList("street").Select "#Ran_Number"
Browser("广州市国土资源及房屋管理局房屋管理系统二期").Page("广州市国土资源及房屋管理局房屋管理系统二期").Frame("mainFrame").WebButton("查询").Click
????? |
|