### yy365 自动打卡 QTP:详细解析与实现 #### 一、背景介绍 在软件测试领域,QTP(Quick Test Professional)是一款非常知名的自动化测试工具,它支持多种类型的自动化测试,包括Web应用、桌面应用等。本文将详细介绍如何使用QTP实现yy365网站的自动打卡功能。 #### 二、yy365自动打卡概述 yy365自动打卡是指通过自动化手段,在yy365网站上自动完成每日的签到任务。对于用户来说,这可以节省大量的时间并提高效率。 #### 三、技术原理 在QTP中实现自动打卡功能主要依赖于以下技术: - **对象识别**:通过识别页面上的元素(如按钮、文本框等),QTP能够模拟用户的操作。 - **脚本编程**:使用VBScript或其他支持的语言编写脚本来控制自动化流程。 - **条件判断**:根据不同的页面状态或元素状态,决定下一步的操作。 #### 四、关键技术点详解 ##### 4.1 初始化QTP应用 ```vb Dim objQTPWin Set objQTPWin = GetObject("", "QuickTest.Application") objQTPWin.WindowState = "Minimized" ``` - **说明**:这段代码初始化了一个QTP应用实例,并将其最小化以减少干扰。 ##### 4.2 打开目标网站 ```vb Systemutil.Run "iexplore", "http://www.yy365.com/" browName = ".*www\.yy365\.com.*" Set yy365Page = Browser("openurl:=" & browName).Page("url:=" & browName) Set yy365Browser = Browser("openurl:=" & browName) ``` - **说明**:这里使用`Systemutil.Run`命令打开IE浏览器,并访问yy365网站。然后通过正则表达式匹配浏览器窗口。 ##### 4.3 登录与页面操作 ```vb checkIsLogin yy365Page, yy365Browser publichContent yy365Page, yy365Browser acceptFirends yy365Page, yy365Browser visitFriends yy365Page, yy365Browser yy365Browser.Close ``` - **说明**:这些函数分别用于检查登录状态、发布内容、接受好友请求以及访问好友页面等操作。 - `checkIsLogin`:检查用户是否已经登录。 - `publichContent`:发布内容到个人主页。 - `acceptFirends`:接受好友请求。 - `visitFriends`:访问好友列表中的每位好友。 ##### 4.4 评论功能实现 ```vb Function pinglun(obj, num, yy365Page, yy365Browser) '...函数具体实现细节... End Function ``` - **说明**:`pinglun`函数实现了对指定帖子的评论功能。其中,`obj`表示要评论的对象,`num`为评论的次数。 ##### 4.5 评论回调及类型筛选 ```vb Function pinglunCallBack(num, yy365Page, yy365Browser) '...函数具体实现细节... End Function Function pinglunType(title, yy365Page, yy365Browser) '...函数具体实现细节... End Function ``` - **说明**: - `pinglunCallBack`:用于处理评论后的回调操作。 - `pinglunType`:筛选特定类型的帖子进行评论。 #### 五、注意事项 - **异常处理**:在实际开发过程中,需要考虑到网络延迟、页面加载失败等情况,并添加相应的异常处理逻辑。 - **用户体验**:虽然自动化可以提高效率,但也要注意不要频繁地发送请求导致被网站屏蔽。 - **安全性考虑**:确保用户名和密码的安全性,不建议将账号密码硬编码在脚本中。 #### 六、总结 通过以上步骤,我们不仅实现了yy365网站的自动打卡功能,还学习了如何使用QTP进行网页自动化测试的基本方法。这对于提高工作效率、减轻人工负担有着重要的意义。同时,这也为其他类似项目的开发提供了很好的参考案例。
'控制QTP最小化
'Dim objQTPWin
'Set objQTPWin = GetObject("" , "QuickTest.Application")
'objQTPWin.WindowState = "Minimized"
Systemutil.Run "iexplore","http://www.yy365.com/"
browName = ".*www\.yy365\.com.*"
Set yy365Page = Browser("openurl:="&browName).Page("url:="&browName)
Set yy365Browser = Browser("openurl:="&browName)
sysPage yy365Page,yy365Browser
'控制游览器最小化
'Dim hwnd
'hwnd=yy365Browser.Object.HWND
'window("hwnd:="&hwnd).minimize
'检查是否登录
checkIsLogin yy365Page,yy365Browser
'发布内容
publichContent yy365Page,yy365Browser
'接受好友
acceptFirends yy365Page,yy365Browser
'访问好友
visitFriends yy365Page,yy365Browser
'关闭游览器
yy365Browser.Close
'objQTPWin.WindowState = "Restored"
'Set objQTPWin = Nothing
Function pinglun(obj,num,yy365Page,yy365Browser)
obj.Click
sysPage yy365Page,yy365Browser
Set louzhu = Description.Create
louzhu("micclass").value = "Link"
louzhu("href").value = ".*www\.yy365\.com\/home\!other\.do.*"
Set louzhuchild = yy365Page.ChildObjects(louzhu)
wait 1
On error Resume next
yy365Page.WebEdit("name:=comment_editor_aid","html tag:=TEXTAREA").Click
Dim louzhuname
louzhuname = louzhuchild(1).getROProperty("innertext")
Dim pingluncontent
pingluncontent = getResponeContent( louzhuname)
yy365Page.WebEdit("name:=comment_editor_aid","html tag:=TEXTAREA").Set pingluncontent
yy365Page.WebButton("name:=发表评论","html tag :=INPUT","type:=button").Click
wait 1
yy365Browser.Back
sysPage yy365Page,yy365Browser
End Function
'对不同好友的评论进行回复
Function pinglunCallBack(num,yy365Page,yy365Browser)
Set mydesc = Description.Create
mydesc("micclass").value = "Link"
mydesc("text").value = "评论.*"
Set pinglunchild = yy365Page.ChildObjects(mydesc)
On error Resume next
pinglun pinglunchild(num),(num),yy365Page,yy365Browser
剩余6页未读,继续阅读
- zhutou1987812014-10-13原来用的 挺好的
- pj5287072013-03-29原来下载的不错
- hezhao9112013-01-02下了 还没测试。。。
- 粉丝: 0
- 资源: 11
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 基于java的在线动漫信息平台设计新版源码+数据库+说明
- 基于java的点餐平台网站设计新版源码+数据库+说明
- 基于java的家具销售电商平台设计新版源码+数据库+说明
- 基于java的口腔管家平台设计新版源码+数据库+说明
- 基于java的教师人事档案管理系统设计新版源码+数据库+说明
- 基于java的考研资讯平台设计新版源码+数据库+说明
- 基于java的垃圾分类网站设计新版源码+数据库+说明
- 基于java的汽车租赁系统设计新版源码+数据库+说明
- 基于java的旅游管理系统设计新版源码+数据库+说明
- 基于java的外卖点餐系统设计新版源码+数据库+说明
- 基于java的体质测试数据分析及可视化设计新版源码+数据库+说明
- SAP 仓库管理WM模块常用T-code详细步骤解析
- 基于java的商务安全邮箱邮件收发设计新版源码+数据库+说明
- 基于java的校园博客系统设计新版源码+数据库+说明
- 基于java的校园闲置物品交易网站设计新版源码+数据库+说明
- 基于java的校园闲置物品租售系统设计新版源码+数据库+说明