QTP--自动化测试之--自动化玩网页游戏

前些时间玩了一下三国风云游戏，因为每天基本上都会去重复的做一些事情，所以用QTP9.5 写一了下角本来实现自动化出兵扫羊，哈哈，手动扫一次羊至少得用半个小时吧（因为家里兵还蛮多的）,自动化后，不到5分钟就完了，而且还是自动完成！今天我已经不玩此游戏了，share 出来给大家，希望对大家的自动测试--玩游戏有一定的帮助！以下为代码！

' 功能：主城出兵扫羊_数据集方式

strCityNameGloabal = datatable.GetSheet(1).GetParameter(1) ' 取当前要操作的城镇名

WaitHomePageLoad ' 等首页网页打开

ChooseCity strCityNameGloabal, strCityNameGloabal ' 选择相应城镇 , 并等待页面的出现

clickCityMapAndWaitWebLoad strCityNameGloabal ' 点击“城镇”，并等待 “中军账”出现

' 从excel表格中导入相应的出兵的 sheet 表到第二张表中

srcGSheet = datatable.GetSheet(1).GetParameter(2)

ImportTableFromXLS "出兵顺序表.xls", srcGSheet

dispatchSoilderToTarget ' 从军营直接出兵

' 一个城镇出兵结束，并关掉页面，重新做下一个城市

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").Sync

Browser("三国风云 - 旷世逸才").Close

wait 3

' ===============================================================================================================

' =========================================== 以下是各个子过程或函数 ===========================================

'========== 从军营直接出兵 ========

Sub dispatchSoilderToTarget ()

numberRowCount = datatable.GetSheet(2).GetRowCount ' 取要执行的行数

For i=1 to numberRowCount

' 检查坐标值数据正确性

If ChkDataAvailable = false Then

Exit for

End If

ClickBarback strCityNameGloabal ' 点击 “中军账” ，并等待 "中军帐对话框" 的出现

clickHeadquarters ' 点击 “调兵遣将” ，并等待 "调兵遣将Tab" 的出现

If InputCoordinateXY = false then' 输入 x y 坐标和出兵数量

msgbox "输入 x y 坐标和出兵数量错误"

Exit for ' 如果出错，就执行下一张表!

end if

wait 1

' 点击 “出征” ，并等待 "出征Tab" 的出现

' 可能会出现三种情况

' 1. 系统提示

' 2. 您的传令兵部队已达上限，请升级中军帐！

' 3.出发按钮的出现

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").Link("出征").Click

wait 1

' 检查是否出现可以出兵，是 - - 则自动执行出兵，否 - - 人工处理

bl_chk_outSoldier = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("出兵概况").Check (CheckPoint("出兵概况"))

If bl_chk_outSoldier Then

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").Link("出发").Click

else

msgbox "请人工参与!, 并请自决定如何处理!"

wait 5

End If

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("关闭中军账").Click

datatable.SetNextRow

End Sub

'========== 从军营直接出兵 end ========

'========== 输入 x y 坐标和出兵数量 ========

' 输入 x y 坐标和出兵数量

function InputCoordinateXY()

' 输入 x y 坐标

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("x").Set datatable.GetSheet(2).GetParameter("x坐标")

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("y").Set datatable.GetSheet(2).GetParameter("y坐标")

soldierNum = datatable.GetSheet(2).GetParameter("数量")

' 选择出兵数量

Select Case datatable.GetSheet(2).GetParameter("出兵兵种")

case "朴刀兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier0").Set soldierNum ' 朴刀兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier0").CheckProperty("value",soldierNum)

case "重步兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier1").Set soldierNum ' 重步兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier1").CheckProperty("value",soldierNum)

case "近卫兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier2").Set soldierNum ' 近卫兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier2").CheckProperty("value",soldierNum)

case "轻骑兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier3").Set soldierNum ' 轻骑兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier3").CheckProperty("value",soldierNum)

case "青州兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier4").Set soldierNum ' 青州兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier4").CheckProperty("value",soldierNum)

case "冲车"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier5").Set soldierNum ' 冲车

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier5").CheckProperty("value",soldierNum)

case "霹雳车"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier6").Set soldierNum ' 霹雳车

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier6").CheckProperty("value",soldierNum)

case "说客"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier7").Set soldierNum ' 说客

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier7").CheckProperty("value",soldierNum)

case "垦荒者"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier8").Set soldierNum ' 垦荒者

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier8").CheckProperty("value",soldierNum)

case "斥候骑兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier9").Set soldierNum ' 斥候骑兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier9").CheckProperty("value",soldierNum)

case "长弓兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier10").Set soldierNum ' 长弓兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier10").CheckProperty("value",soldierNum)

case "弓骑兵"

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier11").Set soldierNum ' 弓骑兵

chkSoldierNum = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebEdit("soldier11").CheckProperty("value",soldierNum)

Case else

msgNum = soldierNum

reporter.ReportEvent micFail ,"选择出兵兵种错误！", "数据集表中的兵种参数错误！请检查兵种类型是否正确！数据为： " &chr(10)&chr(13)& msgNum

'msgbox "数据集表中的兵种参数错误！请检查兵种类型是否正确！"&chr(10)&chr(13)& soldierNum

InputCoordinateXY = false

exit function

End Select

If chkSoldierNum = false Then

msgbox "输入兵数量不正确。。。"

InputCoordinateXY = false

End If

InputCoordinateXY = true

End function

'========== 输入 x y 坐标和出兵数量 end ========

'========== 点击 “调兵遣将” ，并等待 "调兵遣将Tab" 的出现 ========

' 点击 “调兵遣将” ，并等待 "调兵遣将Tab" 的出现

Sub clickHeadquarters ()

For i = 1 to 10

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").Link("调兵遣将").Click

' bl_chk_loadWeb = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("点击绿色数字可直接填入对应数量【全军出击】")._

' Check (CheckPoint("点击绿色数字可直接填入对应数量【全军出击】"))

bl_chk_loadWeb = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("点击绿色数字可直接填入对应数量【全军出击】").Exist(3)

If bl_chk_loadWeb Then

Exit sub ' 如果检查成功，就退出

else

msgbox "调兵遣将Tab没有出现!!"

wait 1 ' 否则

End If

msgbox "出现异常！请人工干预！"

End Sub

'========== 点击 “调兵遣将” ，并等待 "调兵遣将Tab" 的出现 end========

'========== 检查坐标值数据正确性 ========

' 检查坐标值数据正确性

function ChkDataAvailable ()

' 如果坐标值不正确，退出FOR

x = datatable.GetSheet(2).GetParameter("x坐标")

y = datatable.GetSheet(2).GetParameter("y坐标")

If ( not isnumeric(x)) or (not isnumeric(x) ) Then

reporter.ReportEvent micFail, "检查X和Y的坐标值正确性", "ewq"

msgbox "请检查X和Y的坐标值正确性"

ChkDataAvailable = false

Exit function

else

x = cint(x)

y = cint(y)

If x<100 or y<100 Then

reporter.ReportEvent micFail, "检查X和Y的坐标值正确性"

ChkDataAvailable = false

Exit function

End If

ChkDataAvailable = true

End function

'========== 检查数据正确性 end ========

'========== 导入相应城镇的出兵次序 ========

' 功能：根据global表的信息导入相应城镇的出兵次序

Sub ImportTableFromXLS (filename, srcSheet )

datatable.ImportSheet filename,cint(srcSheet),2

End Sub

'========== 导入相应城镇的出兵次序 end ========

'========== 等首页网页打开 ========

' 等首页网页打开

Sub WaitHomePageLoad ()

bl_chk_loadWeb = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("城内驻军刷新防御阵型").Check (CheckPoint("城内驻军刷新防御阵型"))

If bl_chk_loadWeb = false Then

wait 1

End If

Loop while (bl_chk_loadWeb = false )

End Sub

'========== 等首页网页打开 end ========

'========== ' 选择相应城镇 , 并等待页面的出现 ========

' 选择相应城镇 , 并等待页面的出现

Sub ChooseCity (cityName, chkChooseCity)

If cityName="" or cityName= null Then

msgbox "要选择的城镇名异常，请验证后再作处理！"

wait 5

End If

If cityName <> "[主城]1_联想(主城)" Then

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").Link("城镇列表").Click

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").Link(cityName).Click

End If

wait 1

' 等待城镇选择框的通过

bl_chk_loadWeb = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("城镇选择框").CheckProperty( "innertext",chkChooseCity, 2)

'bl_chk_loadWeb = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("城镇选择框").Exist(5)

If bl_chk_loadWeb = false Then

wait 1

End If

Loop while (bl_chk_loadWeb = false )

End Sub

'========== ' 选择相应城镇 , 并等待页面的出现 end ========

'========== ' 点击“城镇”，并等待 “中军账”出现 ========

Sub clickCityMapAndWaitWebLoad ( strChkBarbackLoadOBJName)

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebElement("城镇_图标").Click

bl_chk_loadWeb = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebArea(strChkBarbackLoadOBJName).CheckProperty("map name", "citymap",5)

If bl_chk_loadWeb = false Then

wait 1

End If

Loop while (bl_chk_loadWeb = false )

End Sub

'========== ' 点击“城镇”，并等待 “中军账”出现 end========

'========== 点击 “中军账” ，并等待 "中军帐对话框" 的出现 ========

' 点击 “中军账” ，并等待 "中军帐对话框" 的出现

Sub ClickBarback (cityName)

' 点击 “中军账” ，并等待 "中军帐对话框" 的出现

Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").WebArea(cityName).Click

bl_chk_loadWeb = Browser("三国风云 - 旷世逸才").Page("三国风云 - 旷世逸才").Link("调兵遣将").Check (CheckPoint("调兵遣将"))

If bl_chk_loadWeb = false Then

wait 1

End If

Loop while (bl_chk_loadWeb = false )

End Sub

'========== 点击 “中军账” ，并等待 "中军帐对话框" 的出现 end ========

QTP--自动化测试之--自动化玩网页游戏

继续阅读

Xcode中创建Target的步骤

与专家面对面：Android开发入门问与答

利用Fiddler进行移动端弱网测试

不用iconv函数实现UTF-8编码转换GB2312的PHP函数

Unity-Animator深入系列---状态机面板深入 1.状态 2.Transition 3.FBX设置面板 4.Layers Setting

各种二分查找

【原创】编程之美之二分搜索

什么是sp,怎么运作,他们是怎么发财的

Unity3d中UnityEngine.Object

CentOS7下TestLink环境的部署

软件测试基础_对应TestLink整理的测试计划流程步骤

使您的Pixel Art游戏看起来像Unity3D中的Pixel Perfect

七牛云-C#SDK-上传-前期准备

[转]iOS微信小视频优化心得

无组件上传图片到数据库中，最完整解决方案

测试面试题整理