用QTP脚本操作【腾讯QQ好友买卖】

转自：http://www.51testing.com/html/93/n-130093.html

今日玩起了腾讯的好友买卖，操作特别繁琐，无聊之下就写了个脚本去做操作。

　　相信想学习QTP的读者去做这套小小的脚本一定会有不小的收获。先丢个流程图给大家，脚本还没全部检查完，因为好友都被我折磨完了，PK完了~~~在9.5中已经大量使用了对象库，描述编程感觉已经很难立足。你可以不同意我的观点，但你不能不注意这个问题，哈哈。

　　因为对象库中涉及到部分个人信息，所以就只贴出部分代码。在ACTION1 datatable中需要添加：

　　index：0

　　PK_index：0

　　friend_name ：可以多行，都是你首选要买的朋友，例如大强，小强

　　同时，对象添加进去时候，腾讯也够折腾人的，区分他、她，所以大家需要对连接做个简单的正值表达式修改。对象库中的连接大部分都被参数化了，使用 INDEX属性与datatable中的index挂连接，通过修改datatable的index来确定那个药被点击到。例如折磨奴隶的连接等等。

　　代码：

 

Code
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function Buy_Friend
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public function Buy_Friend()
  
    ' List_count=browser("沙").Page("沙").Frame("Frame_2").Object.links.length
    Rowcount = DataTable.GetSheet("Action1").GetRowCount ()
    flag=true
    curent_line=0
    While  flag
     browser("沙").Page("沙").Frame("Frame").Link("我买得起的人").Click
     If browser("沙").Page("沙").Frame("Frame_2").Link("点击展开更多>>").Exist(0) Then
     browser("沙").Page("沙").Frame("Frame_2").Link("点击展开更多>>").click
     End If
     curent_line=curent_line+1
     If   curent_line=Rowcount  then
      flag =false
      browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#0"
      browser("沙").Page("沙").Frame("Frame").Link("我要购买他").Click
       If  browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Exist(0) Then
       text=browser("沙").Page("沙").Frame("Frame_4").WebElement("Friendname").GetROProperty("outertext")
       browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Set  text
       browser("沙").Page("沙").Frame("Frame_4").WebButton("买下他").Click
       flag=false
       browser("沙").Page("沙").WebButton("╳").Click
                  else
       browser("沙").Page("沙").WebButton("╳").Click
      end if
   end if
   datatable.SetCurrentRow(curent_line)
   If  browser("沙").Page("沙").Frame("Frame_2").Link("Friend_name").exist(0) Then    '如果存在datatable中就做点击操作
     browser("沙").Page("沙").Frame("Frame_2").Link("Friend_name").click
     browser("沙").Page("沙").Frame("Frame").Link("我要购买他").Click
                                               '有四个情况，购买成功，购买次数多2，资金不够，正在打工,但只要有可以输入的框就说明可以买
       If  browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Exist(0) Then
       text=browser("沙").Page("沙").Frame("Frame_4").WebElement("Friendname").GetROProperty("outertext")
       browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Set  text
       browser("沙").Page("沙").Frame("Frame_4").WebButton("买下他").Click
       flag=false
       browser("沙").Page("沙").WebButton("╳").Click
                  else
       browser("沙").Page("沙").WebButton("╳").Click
     end if
   End If
    Wend
End Function

 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function Sell_Friend
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public function Sell_Friend()
    F_Count=Friend_Count()
 For i=0 to F_count-1
 datatable.Value("index","Action1")=i
 hold_time=browser("沙").Page("沙").Frame("Frame").WebElement("05-19 10:57").GetROProperty("outertext")
 If day(now)-day(hold_time)>=2Then

    browser("沙").Page("沙").Frame("Frame").Link("释放奴隶").Click
  If  browser("沙").Page("沙").Frame("Frame_4").WebButton("释放她").Exist(0) Then
   browser("沙").Page("沙").Frame("Frame_4").WebButton("释放她").Click
   browser("沙").Page("沙").WebButton("╳").Click
  End If
 End If
Next
   
End Function

 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function Labor    折磨奴隶
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public function Labor()
      If browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist(0) Then
        cot=  browser("沙").Page("沙").Frame("Frame_4").Object.getElementsByTagName("input").length
     browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&cot-1
     browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
     browser("沙").Page("沙").WebButton("╳").Click
    else
     browser("沙").Page("沙").WebButton("╳").Click
      End If

End Function


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function Appease   安抚奴隶
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public function Appease()
     If  browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist(0) Then
        cot=  browser("沙").Page("沙").Frame("Frame_4").Object.getElementsByTagName("input").length
      browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&cot-1
       browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
      browser("沙").Page("沙").WebButton("╳").Click
    else
      browser("沙").Page("沙").WebButton("╳").Click
    end if
End Function


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function PK
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public function PK()
   browser("沙").Page("沙").Frame("Frame").Link("PK角斗场").Click
   flag=true
   Page_PK_Index=0   '页面上其他人的努力顺序
   PK_index=0                     '奴隶PK的顺序
   PK_Friend_Count=0     '选择PK主人（当PK数太少，就选择第2个PK主人）
   While flag
       datatable.Value("PK_index","Action1")=Page_PK_Index
       If  browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Exist(0) Then
        browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Click
       If  browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist(0) Then
         PK_Count=browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").GetROProperty("items count")
         If  PK_index>PK_Count-1 Then
          flag=false
         else
          browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&PK_index
          browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
          If  browser("沙").Page("沙").Frame("Frame_4").WebButton("关闭").exist(0) Then
            PK_index=PK_index+1 
            browser("沙").Page("沙").Frame("Frame_4").WebButton("关闭").click
          else
            browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
            browser("沙").Page("沙").Frame("Frame_4").WebButton("直接查看赛果").Click
            PK_index=PK_index+1 
            Page_PK_Index=Page_PK_Index+1
            browser("沙").Page("沙").WebButton("╳").Click
            
          End If
         end if
       else
          Page_PK_Index=Page_PK_Index+1
         browser("沙").Page("沙").WebButton("╳").Click
       End If
     else
      browser("沙").Page("沙").Frame("Frame").WebButton("PK其他好友奴隶").Click
      browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&PK_Friend_Count
      browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
      Page_PK_Index=0 
      PK_Friend_Count=PK_Friend_Count+1
       End If
'   For i=0 to Pk_count-1
'    datatable.Value("PK_index","Action1")=i
'    browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Click
'    browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&i
'    browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
'    Page_PK_Index=0 
'   Next
   Wend

End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function Fawn      讨好主人
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public function Fawn()
  browser("沙").Page("沙").Frame("Frame").Link("讨好主人").Click
    If  browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist(0) Then
    cot=  browser("沙").Page("沙").Frame("Frame_4").Object.getElementsByTagName("input").length
    browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&cot-1
    browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
    browser("沙").Page("沙").WebButton("╳").Click
  else
    browser("沙").Page("沙").WebButton("╳").Click
 end if
End Function


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function Use_FateCar
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public function Use_FateCar()
   browser("沙").Page("沙").Frame("Frame").Link("使用命运卡").Click
   browser("沙").Page("沙").WebButton("╳").Click
End Function


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'function  Friend_Count
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public function  Friend_Count()
 Dim Friend
 Set Friend=description.Create()
   Friend("html tag").value="A"
 Friend("text").value="折磨奴隶"
 Friend_Count=browser("沙").Page("沙").Frame("Frame").ChildObjects(Friend).count
End Function

 

Public function main()

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'如果朋友小过9个就去买朋友
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  while   Friend_Count()<9
     Buy_Friend()
    wend

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'折磨奴隶  和安抚奴隶
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     F_Count=Friend_Count()
  For  i=0 to F_Count-1
    datatable.SetCurrentRow(1)
    datatable.Value("index","Action1")=i
    browser("沙").Page("沙").Frame("Frame").Link("折磨奴隶").Click
                Labor
    browser("沙").Page("沙").Frame("Frame").Link("安抚奴隶").Click
    Appease
  Next
  Fawn
  Use_FateCar
  PK
  Sell_Friend
  while   Friend_Count()<9
     Buy_Friend()
    wend

End Function

main()

转载于:https://www.cnblogs.com/junzhongxu/archive/2009/05/25/1488638.html