前些时间玩了一下三国风云游戏，因为每天基本上都会去重复的做一些事情，所以用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
next
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
Next
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
End If
ChkDataAvailable = true
End function
'========== 检查数据正确性 end ========
'========== 导入相应城镇的出兵次序 ========
' 功能：根据global表的信息导入相应城镇的出兵次序
Sub ImportTableFromXLS (filename, srcSheet )
datatable.ImportSheet filename,cint(srcSheet),2
End Sub
'========== 导入相应城镇的出兵次序 end ========
'========== 等首页网页打开 ========
' 等首页网页打开
Sub WaitHomePageLoad ()
Do
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
' 等待城镇选择框的通过
Do
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
Do
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
Do
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 ========
扫一扫
351
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
