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

可以对发文的标题进行参数化，有点类假订票系统中的发送传真那个界面的操作了
页: [1]
查看完整版本: (急)如何动态获取页面参数