(急)如何动态获取页面参数

hbljlsm · 发表于 2010-9-11 18:56:16

Browser("XX_YYYY").Page("XX_YYYY").Link("登录").Click
Browser("XX_YYYY").Page("XX_YYYY").WebEdit("login_name").Set DataTable("user_name", dtGlobalSheet)
Browser("XX_YYYY").Page("XX_YYYY").WebEdit("login_pass").SetSecure DataTable("password_name", dtGlobalSheet)
wait(2)
Browser("XX_YYYY").Page("XX_YYYY").Link("登录_2").Click
Browser("XX_YYYY").Page("XX_YYYY").Link("发文").Click
wait(2)
Browser("发文_XX_YYYY").Page("发文_XX_YYYY").WebEdit("blog_title").Set "111111111"
Browser("发文_XX_YYYY").Page("发文_XX_YYYY").WebEdit("tag").Set "3333333"
Browser("发文_XX_YYYY").Page("发文_XX_YYYY").Link("发文").Click
Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Link("退出").Click
Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Sync
Browser("发文_XX_YYYY").Close
Browser("XX_YYYY").Page("XX_YYYY").Sync
Browser("XX_YYYY").Close

我录制了一个脚本，用不同的账户发文，但是浏览器的page读取的都是不同的用户信息，我要批量用不同的用户发文，该如何实现啊，在线等，小妹谢了

[ 本帖最后由 hbljlsm 于 2010-9-11 18:57 编辑 ]

kavensyw · 发表于 2010-9-11 19:04:01

'不知道这是不是你想要的效果：

For i=1 To DataTable.GetRowCount
DataTable.SetCurrentRow i
Browser("XX_YYYY").Page("XX_YYYY").Link("登录").Click
Browser("XX_YYYY").Page("XX_YYYY").WebEdit("login_name").Set DataTable("user_name", dtGlobalSheet)
Browser("XX_YYYY").Page("XX_YYYY").WebEdit("login_pass").SetSecure DataTable("password_name", dtGlobalSheet)
wait(2)
Browser("XX_YYYY").Page("XX_YYYY").Link("登录_2").Click
Browser("XX_YYYY").Page("XX_YYYY").Link("发博文").Click
wait(2)
Browser("发文_XX_YYYY").Page("发文_XX_YYYY").WebEdit("blog_title").Set "111111111" '这儿可以考虑参数化
Browser("发文_XX_YYYY").Page("发文_XX_YYYY").WebEdit("tag").Set "3333333" '这儿可以考虑参数化
Browser("发文_XX_YYYY").Page("发文_XX_YYYY").Link("发文").Click
Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Link("退出").Click
Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Sync
Browser("发文_XX_YYYY").Close
Browser("XX_YYYY").Page("XX_YYYY").Sync
Next

Browser("XX_YYYY").Close

hbljlsm · 发表于 2010-9-12 21:28:35

For i=1 To DataTable.GetRowCount
      DataTable.SetCurrentRow i
      Browser("XX_YYYY").Page("XX_YYYY").Link("登录").Click
      Browser("XX_YYYY").Page("XX_YYYY").WebEdit("login_name").Set DataTable("user_name", dtGlobalSheet)
      Browser("XX_YYYY").Page("XX_YYYY").WebEdit("login_pass").SetSecure DataTable("password_name", dtGlobalSheet)
      wait(2)
      Browser("XX_YYYY").Page("XX_YYYY").Link("登录_2").Click
      Browser("XX_YYYY").Page("XX_YYYY").Link("发博文").Click
      wait(2)
      Browser("发文_XX_YYYY").Page("发文_XX_YYYY").WebEdit("blog_title").Set "111111111" '这儿可以考虑参数化
      Browser("发文_XX_YYYY").Page("发文_XX_YYYY").WebEdit("tag").Set "3333333"                      '这儿可以考虑参数化
      Browser("发文_XX_YYYY").Page("发文_XX_YYYY").Link("发文").Click
      Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Link("退出").Click
      Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Sync
      Browser("发文_XX_YYYY").Close
      Browser("XX_YYYY").Page("XX_YYYY").Sync
Next

Browser("XX_YYYY").Close

不是这样的，其中XX是不同的登录用户信息，111111111是不同登录用户的发文标题，如果参数化的话，该如何做

lantianwei · 发表于 2010-9-12 22:40:27

xx用*号通配可以在对象库里改下

hbljlsm · 发表于 2010-9-12 23:27:38

那个标题title也是那样做吗

hbljlsm · 发表于 2010-9-12 23:32:35

Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Link("退出").Click
Browser("发文_XX_YYYY").Page("111111111_XX_YYYY").Sync

这个page的title该如何做啊，这个是发文的标题，也是实时变化的

lantianwei · 发表于 2010-9-13 09:53:20

所有的都是那样改

dqf · 发表于 2010-9-13 17:00:49

可以对发文的标题进行参数化，有点类假订票系统中的发送传真那个界面的操作了

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] (急)如何动态获取页面参数

相关帖子

站长推荐 /1