用QTP脚本操作腾讯QQ好友买卖功能
今日玩起了腾讯的好友买卖，操作特别繁琐，无聊之下就写了个脚本去做操作。
相信想学习QTP的读者去做这套小小的脚本一定会有不小的收获。先丢个流程图给大家，脚本还没全部检查完，因为好友都被我折磨完了，PK完了~~~在9.5中已经大量使用了对象库，描述编程感觉已经很难立足。你可以不同意我的观点，但你不能不注意这个问题，哈哈。
因为对象库中涉及到部分个人信息，所以就只贴出部分代码。在ACTION1 datatable中需要添加：
index：0
PK_index：0
friend_name ：可以多行，都是你首选要买的朋友，例如大强，小强
同时，对象添加进去时候，腾讯也够折腾人的，区分他、她，所以大家需要对连接做个简单的正值表达式修改。对象库中的连接大部分都被参数化了，使用 INDEX属性与datatable中的index挂连接，通过修改datatable的index来确定那个药被点击到。例如折磨奴隶的连接等等。
图片看不清楚？请点击这里查看原图（大图）。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'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/davice/archive/2010/06/25/1764969.html
用QTP脚本操作腾讯QQ好友买卖功能相关推荐
- 用QTP脚本操作【腾讯QQ好友买卖】
转自:http://www.51testing.com/html/93/n-130093.html 今日玩起了腾讯的好友买卖,操作特别繁琐,无聊之下就写了个脚本去做操作. 相信想学习QTP的读者去做这 ...
- 支付宝解释 2019 年账单总额较高；腾讯 QQ 回应新功能可显示对方实时电量；Python 2.7 结束支持 | 极客头条...
整理 | 屠敏 快来收听极客头条音频版吧,智能播报由标贝科技提供技术支持. 「极客头条」-- 技术人员的新闻圈! CSDN 的读者朋友们早上好哇,「极客头条」来啦,快来看今天都有哪些值得我们技术人关注 ...
- 腾讯QQ这一功能下架，网友：爷的青春真的结束了！
现在,你还会玩QQ吗? 在十多年前,移动设备还没有这么智能,能安装的软件较少,也没有很多工作压力和学习压力,我们有大把的空闲时光. 而QQ这款集社交和娱乐为一体的软件便承载了90后的大部分青春,可是就 ...
- QQ怎么服务器远程,腾讯QQ远程协助功能详解
使用过 Netmeeting 的朋友都会为对其远程桌面共享功能印象颇为深刻.的确,远程共享可以为我们提供很大的方便,但是由于建立互联需要 IP 地址的呼叫,服务器也不是分稳定.大多数人恐怕都有过因为找 ...
- 用hadoop2.7.1 mapreduce实现QQ好友推荐功能
1.模拟一组好友关系: aaa bbb ccc ddd eee fff ggg hhh bbb zzz eee iii (aaa和bbb是好友,ccc和ddd是好友--, 直观可以看出应该给aaa-z ...
- iOS复习记录日记07-静态单元格和qq好友分组功能[2020]
前文 这是第7篇 主要记录下静态单元格,顾名思义,一旦设置好后,内容是不可被改变的 一般用于 不可改变的固定单元格列表展示,必须使用uiviewController才可用静态单元格 在uiviewCo ...
- 18个顶级的腾讯qq技巧
1.让电脑只能上到自己的腾讯qq,任何腾讯qq都无法登陆.首先把自己的腾讯qq设置为自动登陆模式,接下来最关键的就是移动或删除腾讯qq主目录下的WizardCtrl.dll文件,这样就算别的腾讯qq怎 ...
- python爬取qq邮箱_使用Python模拟登录QQ邮箱获取QQ好友列表
最近因开发项目的需要,有一个需求,就是很多SNS网站都有的通过 Email地址 导入好友列表,不过这次要导入的不是Email 列表,而是QQ的好友列表. 实现方式: 通过google一搜,实现的方式大 ...
- html怎么设置加qq,qq密友 怎么把QQ好友加为密友啊?
QQ密友是什么?怎么设置? QQ密友有2个功能,包括"隐身对其可见"和"在线对其隐身" 隐身对其可见:指你的QQ处于隐身时,对某个好友设置后,能让对方看到自己在 ...
最新文章
- linux输出指定数量脉冲,ESM335x Linux输出脉冲计数
- 解析Linux操作系统文件目录
- .net中实现拖拽控件
- 半价秒杀，最后一天！戴尔i7高配电脑低至2750元！
- java 多线程状态_总结Java中线程的状态及多线程的实现方式
- woocommerce 分类到菜单_Woocommerce商店显示分类
- centos6mysql配置_笔记：centos6 mysql配置测试
- webpack 加载html模板,Webpack：从html模板加载图像
- 把实体 转为json 数据格式---jackson 的详细用法_Jackson快速入门
- BP神经网络及其学习算法
- CSS 样式定义方式
- USACO 2021-2022 December Contest Bronze 题解
- 制定项目目标利器SMART原则
- Start Developing iOS Apps (Swift) 中文翻译版
- 键盘属于计算机主机吗,这是键盘？不，这是一台电脑主机
- 9月20日.周日 第一场正式的比赛：２０２０年ＣＣＰＣ网络赛
- 2022-2028全球与中国犁螺栓市场现状及未来发展趋势
- 9-2 time类的加工
- 基于K8S的OpenStack部署实践
- 拇指大的真无线耳机不仅续航长，音质也很强，Jeet Air 2体验