“未来的世界:方向比努力重要,能力比知识重要,健康比成绩重要,生活比文凭重要,情商比智商重要! ”
——清华大学校长留给毕业生的一段话
发布新日志
-
2007-10-02 00:11:46
参数化下拉框选项的两个方法
1.通过下拉框对应项的实际值查找
Browser("****").Page("****").WebList("****").Select "****”
将select“****”的值参数化,可以将下拉框中的每一个选项都写到数据表中
2.通过下拉框对应项的索引号查找
Browser("****").Page("****").WebList("****").Select "#"&IndexNum
比如说下拉框有5个选项
IndexNum = Int((5- 1 + 1) * Rnd + 1) 或 IndexNum = RandomNumber(1,5)
以上代码生成1到5之间的随机数,5是上界,1是下界。
查看(871)
评论(0)
收藏
分享
管理
-
2007-10-02 00:11:08
Dim eleLink
Dim i,j,Links()
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://www.testage.net/bbs/"
Browser("Browser").Page("测试时代论坛").Sync
Set ōbjLinks=Browser("Browser").Page("测试时代论坛").Object.links
i=0
For Each eleLink In objLinks
If Ucase(eleLink.tagname)="A" Then
Links(i)=eleLink.InnerText
i=i+1
End If
Next
For j=0 To i
Browser("Browser").Page("测试时代论坛").Link("InnerText:=" & Links(j)).Click
Browser("Browser").Back
Next
查看(956)
评论(0)
收藏
分享
管理
-
2007-08-26 23:57:34
查看(551)
评论(0)
收藏
分享
管理
-
2007-08-26 14:04:14
Dim oShell
Set ōShell =CreateObject ("Wscrīpt.shell")
oShell.run "cmd /K wscrīpt e:\test.vbs"
Set ōShell = Nothing
查看(345)
评论(1)
收藏
分享
管理