QTP脚本程序（原创自编）

'编写哨位台程序测试脚本，实现功能如下：
'1、自动添加100条查哨换岗人员记录，
'2、自动添加美电、海康，大华视频。
'3、自动配置视频设备。
'4、检查后台进程是否存在。
'5、视频轮巡。
'############################################

SystemUtil.Run "C:\Program Files (x86)\Aebell\智能哨位信息化系统\com_server.exe"

'###########################################

Const a1="自动打开系统登录功能"
Const a2="打开查哨换岗菜单"
Const a3="自动添加查哨人员记录"
Const a4="自动添加换岗人员记录"
Const a5="添加美电视频"
Const a6="添加大华视频"
Const a7="添加海康视频"
Const a8="添加十五所视频"
Const a9="自动开启检测测试程序进程功能"
Const a10="开启视频轮巡功能"
Const a11="自动进行系统退出操作"

Set Speak1=createobject("excel.application")

'############################################
System_login() '系统登录

'OperatorMenu_Start() '打开查哨换岗菜单
'OperatorUser_Add_A() '查哨
'OperatorUser_Add_B() '换岗
'
'TerminalManMenu_Start() '打开终端管理菜单
'
'Vedio_Add_Aebell_DVS() '添加美电视频
'Vedio_Add_Aebell_DVS_Loop()
'Vedio_Add_DH_DVR()  '添加大华视频
'Vedio_Add_DH_DVR_Loop()
'Vedio_Add_Hik_DVR()  '添加海康视频
'Vedio_Add_15_DVS()  '添加十五所视频
'
'Post_One()    '添加一号哨
'Post_Two()    '添加二号哨
'Post_Three()   '添加三号哨
'Post_Four()    '添加四号哨
'
'TerminalManMenu_Close()  '关闭终端管理菜单
'
'TestProcessCheck() '检测测试程序进程
'
'PostVedio_Loop() '视频轮巡
'
'System_Reload()  '系统数据重载
'
System_Exit()  '系统退出

'###########################################

Function System_login()

speak1.Speech.Speak a1

Dialog("登录").WinEdit("Edit").Set "admin"
Dialog("登录").WinEdit("Edit").Type micTab
Dialog("登录").WinEdit("Edit_2").Set "1234"
Dialog("登录").WinButton("Button_3").Click

End Function

'############################################

Function OperatorMenu_Start()

speak1.Speech.Speak a2

Dim F4
Set F4=CreateObject("wscript.shell")
wait 1
F4.SendKeys "{F4}"

End Function

'############################################

Function OperatorUser_Add_A()

speak1.Speech.Speak a3

Dim a

For a =2 to 30

Dialog("智能哨位信息化系统当前用户:admin").Dialog("查哨换岗人员").WinButton("添加").Click

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("查哨换岗人员").Dialog("添加人员信息")

.WinEdit("人员编号：").Set a
.WinEdit("人员姓名：").Set "张三"&"_"&a
.WinEdit("职务：").Set "班长"
.WinEdit("类型：").Set "查哨"
.WinEdit("密码:").Set "1234"
.WinEdit("重复密码:").Set "1234"
.WinButton("保存").Click

End with

End Function

'############################################

Function OperatorUser_Add_B()

speak1.Speech.Speak a4

Dim b

For b=31 to 60

Dialog("智能哨位信息化系统当前用户:admin").Dialog("查哨换岗人员").WinButton("添加").Click

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("查哨换岗人员").Dialog("添加人员信息")

.WinEdit("人员编号：").Set b
.WinEdit("人员姓名：").Set "李四"&"_"&b
.WinEdit("职务：").Set "战士"
.WinEdit("类型：").Set "换岗"
.WinEdit("密码:").Set "1234"
.WinEdit("重复密码:").Set "1234"
.WinButton("保存").Click

End with

End Function

'############################################

Function TerminalManMenu_Start()

Dialog("智能哨位信息化系统当前用户:admin").Activate
Dialog("智能哨位信息化系统当前用户:admin").WinButton("Button_28").Click
Dialog("智能哨位信息化系统当前用户:admin").WinMenu("ContextMenu").Select "设备管理"
Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinList("ListBox").Select "视频设备"

End Function

'############################################

Function Vedio_Add_Aebell_DVS()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinButton("添加").Click

speak1.Speech.Speak a5

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").Dialog("添加视频")
.WinEdit("视频编号").Set "1"
.WinEdit("视频名称").Set "DVS_203"
.WinComboBox("ComboBox").Select "Aebell_DVS"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "45"
.WinEdit("Edit_4").Set "203"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "admin"
.WinRadioButton("Button_2").Set
.WinEdit("通道数").set "2"
.WinButton("保存").Click
.Dialog("提示").WinButton("是(Y)").Click

.WinEdit("视频编号").Set "3"
.WinEdit("视频名称").Set "DVS_205"
.WinComboBox("ComboBox").Select "Aebell_DVS"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "45"
.WinEdit("Edit_4").Set "205"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "admin"
.WinRadioButton("Button_2").Set
.WinEdit("通道数").set "2"
.WinButton("保存").Click
.Dialog("提示").WinButton("是(Y)").Click

.WinEdit("视频编号").Set "5"
.WinEdit("视频名称").Set "DVS_165"
.WinComboBox("ComboBox").Select "Aebell_DVS"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "165"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "admin"
.WinButton("保存").Click
.Dialog("提示").WinButton("是(Y)").Click

.WinEdit("视频编号").Set "6"
.WinEdit("视频名称").Set "DVS_163"
.WinComboBox("ComboBox").Select "Aebell_DVS"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "163"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "admin"
.WinButton("保存").Click
.Dialog("提示").WinButton("否(N)").Click

End with

End Function

'############################################

Function Vedio_Add_Aebell_DVS_Loop()

For i=8 to 16

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinButton("添加").Click

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").Dialog("添加视频")
.WinEdit("视频编号").Set i
.WinEdit("视频名称").Set "DVS_"&i
.WinComboBox("ComboBox").Select "Aebell_DVS"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "36"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "admin"
.WinButton("保存").Click
.Dialog("提示").WinButton("否(N)").Click

End with
Next

End Function

'############################################

Function Vedio_Add_DH_DVR()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinButton("添加").Click

speak1.Speech.Speak a6

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").Dialog("添加视频")
.WinEdit("视频编号").Set "17"
.WinEdit("视频名称").Set "DH_DVR_1"
.WinComboBox("ComboBox").Select "Aebell_DVR_E"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "171"
.WinEdit("登录用户名").Set "super"
.WinEdit("登录密码").Set "super"
.WinRadioButton("Button_2").Set
.WinEdit("通道数").set "2"
.WinButton("保存").Click
.Dialog("提示").WinButton("是(Y)").Click

.WinEdit("视频编号").Set "19"
.WinEdit("视频名称").Set "DH_DVR_2"
.WinComboBox("ComboBox").Select "Aebell_DVR_E"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "154"
.WinEdit("登录用户名").Set "super"
.WinEdit("登录密码").Set "super"
.WinButton("保存").Click
.Dialog("提示").WinButton("是(Y)").Click

.WinEdit("视频编号").Set "20"
.WinEdit("视频名称").Set "DH_DVR_3"
.WinComboBox("ComboBox").Select "Aebell_DVR_E"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "158"
.WinEdit("登录用户名").Set "super"
.WinEdit("登录密码").Set "super"
.WinButton("保存").Click
.Dialog("提示").WinButton("否(N)").Click
End with

End Function

'############################################

Function Vedio_Add_DH_DVR_Loop()

For c=21 to 25

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinButton("添加").Click

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").Dialog("添加视频")
.WinEdit("视频编号").Set c
.WinEdit("视频名称").Set "DH_DVR_"&c
.WinComboBox("ComboBox").Select "Aebell_DVR_E"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "91"
.WinEdit("登录用户名").Set "super"
.WinEdit("登录密码").Set "super"
.WinRadioButton("Button_2").Set
.WinEdit("通道数").set "4"
.WinButton("保存").Click
.Dialog("提示").WinButton("否(N)").Click

End with

End function

'############################################

Function Vedio_Add_Hik_DVR()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinButton("添加").Click

speak1.Speech.Speak a7

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").Dialog("添加视频")
.WinEdit("视频编号").Set "30"
.WinEdit("视频名称").Set "Hik_DVR_1"
.WinComboBox("ComboBox").Select "Hik_DVR"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "150"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "12345"
.WinRadioButton("Button_2").Set
.WinEdit("通道数").set "2"
.WinButton("保存").Click
.Dialog("提示").WinButton("是(Y)").Click

.WinEdit("视频编号").Set "32"
.WinEdit("视频名称").Set "Hik_DVR_2"
.WinComboBox("ComboBox").Select "Hik_DVR"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "155"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "12345"
.WinRadioButton("Button_2").Set
.WinEdit("通道数").set "2"
.WinButton("保存").Click
.Dialog("提示").WinButton("否(N)").Click

End with

End Function

'############################################

Function Vedio_Add_15_DVS()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinButton("添加").Click

speak1.Speech.Speak a8

With Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").Dialog("添加视频")
.WinEdit("视频编号").Set "34"
.WinEdit("视频名称").Set "15_DVS_1"
.WinComboBox("ComboBox").Select "15_DVS"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "197"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "pass"
.WinRadioButton("Button").Set
.WinButton("保存").Click
.Dialog("提示").WinButton("是(Y)").Click

.WinEdit("视频编号").Set "35"
.WinEdit("视频名称").Set "15_DVS_2"
.WinComboBox("ComboBox").Select "15_DVS"
.WinEdit("Edit").set "192"
.WinEdit("Edit_2").set "168"
.WinEdit("Edit_3").set "18"
.WinEdit("Edit_4").Set "199"
.WinEdit("登录用户名").Set "admin"
.WinEdit("登录密码").Set "12345"
.WinRadioButton("Button").Set
.WinButton("保存").Click
.Dialog("提示").WinButton("否(N)").Click

End with

End Function

'############################################

Function Post_One()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinList("ListBox").Select "哨位终端"

Dialog("添加设备对象").Activate
Dialog("添加设备对象").WinListView("SysListView32").Activate "1"
Dialog("修改哨位信息").WinEdit("Edit").SetSelection 0,2
Dialog("修改哨位信息").WinEdit("Edit").Type "45.71"
Dialog("修改哨位信息").WinEdit("左防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinEdit("右防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinComboBox("爆炸输出开关号：").Select "1"
Dialog("修改哨位信息").WinComboBox("盗窃输出开关号：").Select "2"
Dialog("修改哨位信息").WinComboBox("纵火输出开关号：").Select "3"
Dialog("修改哨位信息").WinComboBox("群众上访输出开关号：").Select "4"
Dialog("修改哨位信息").WinComboBox("袭击哨兵输出开关号：").Select "5"
Dialog("修改哨位信息").WinComboBox("袭击营房输出开关号：").Select "6"

Dialog("修改哨位信息").WinButton("编辑中心哨位视频").Click
Dialog("编辑中心哨位视频").WinComboBox("ComboBox").Select "1|DVS_203_通道1"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_2").Select "2|DVS_203_通道2"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_3").Select "3|DVS_205_通道1"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_4").Select "4|DVS_205_通道2"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_5").Select "5|DVS_165_通道1"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_6").Select "6|DVS_165_通道2"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_7").Select "7|DVS_163_通道2"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_8").Select "8|DVS_8_通道1"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_9").Select "9|DVS_9_通道1"
Dialog("编辑中心哨位视频").WinComboBox("子弹安全箱视频").Select "2|DVS_203_通道2"
Dialog("编辑中心哨位视频").WinComboBox("ComboBox_10").Select "1|DVS_203_通道1"
Dialog("编辑中心哨位视频").WinCheckBox("复制到终端").Set "ON"
Dialog("编辑中心哨位视频").WinButton("保存").Click
Dialog("修改哨位信息").WinButton("修改").Click

End Function

'############################################

Function Post_Two()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinList("ListBox").Select "哨位终端"

Dialog("添加设备对象").Activate
Dialog("添加设备对象").WinListView("SysListView32").Activate "2"
Dialog("修改哨位信息").WinEdit("Edit").SetSelection 0,2
Dialog("修改哨位信息").WinEdit("Edit").Type "18.72"
Dialog("修改哨位信息").WinEdit("左防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinEdit("右防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinComboBox("爆炸输出开关号：").Select "1"
Dialog("修改哨位信息").WinComboBox("盗窃输出开关号：").Select "2"
Dialog("修改哨位信息").WinComboBox("纵火输出开关号：").Select "3"
Dialog("修改哨位信息").WinComboBox("群众上访输出开关号：").Select "4"
Dialog("修改哨位信息").WinComboBox("袭击哨兵输出开关号：").Select "5"
Dialog("修改哨位信息").WinComboBox("袭击营房输出开关号：").Select "6"

End Function

'############################################

Function Post_Three()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinList("ListBox").Select "哨位终端"

Dialog("添加设备对象").Activate
Dialog("添加设备对象").WinListView("SysListView32").Activate "3"
Dialog("修改哨位信息").WinEdit("Edit").SetSelection 0,2
Dialog("修改哨位信息").WinEdit("Edit").Type "18.73"
Dialog("修改哨位信息").WinEdit("左防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinEdit("右防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinComboBox("爆炸输出开关号：").Select "1"
Dialog("修改哨位信息").WinComboBox("盗窃输出开关号：").Select "2"
Dialog("修改哨位信息").WinComboBox("纵火输出开关号：").Select "3"
Dialog("修改哨位信息").WinComboBox("群众上访输出开关号：").Select "4"
Dialog("修改哨位信息").WinComboBox("袭击哨兵输出开关号：").Select "5"
Dialog("修改哨位信息").WinComboBox("袭击营房输出开关号：").Select "6"

End Function

'############################################

Function Post_Four()

Dialog("智能哨位信息化系统当前用户:admin").Dialog("添加设备对象").WinList("ListBox").Select "哨位终端"

Dialog("添加设备对象").Activate
Dialog("添加设备对象").WinListView("SysListView32").Activate "4"
Dialog("修改哨位信息").WinEdit("Edit").SetSelection 0,2
Dialog("修改哨位信息").WinEdit("Edit").Type "45.76"
Dialog("修改哨位信息").WinEdit("左防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinEdit("右防区编号：").SetSelection 0,1
Dialog("修改哨位信息").WinComboBox("爆炸输出开关号：").Select "1"
Dialog("修改哨位信息").WinComboBox("盗窃输出开关号：").Select "2"
Dialog("修改哨位信息").WinComboBox("纵火输出开关号：").Select "3"
Dialog("修改哨位信息").WinComboBox("群众上访输出开关号：").Select "4"
Dialog("修改哨位信息").WinComboBox("袭击哨兵输出开关号：").Select "5"
Dialog("修改哨位信息").WinComboBox("袭击营房输出开关号：").Select "6"

End Function

'############################################

Function TerminalManMenu_Close()

Dialog("添加设备对象").Close

End Function

'########################################

Function ProcessExitTime()

Dim fso2,openfile2 '申明文件实例变量和TXT文本文件变量
Dim CurrentTime2 '申明保存时间函数变量

Const ForReading=1,ForWriting=2,ForAppending=8 '（ForReading：只读，ForWriting：只写，ForAppending：追加）

set fso2 = createobject("scripting.filesystemobject") '创建一个文本对象

set openfile2 = fso2.opentextfile("C:/log2.txt",ForAppending,true) 'true表示如果当前目录下不存在log.txt文件则创建一个,且数据可以以追加的形式添加。

CurrentTime2=now()

openfile2.writeline("##################################")
openfile2.writeline ("判断进程不相等的时间为：")&CurrentTime2
openfile2.writeline("##################################")
openfile2.WriteBlankLines(1)                  '插入一个空格行

openfile2.close

Set openfile2=Nothing

End Function

'########################################
'编写判断应用程序进程在后台是否存在脚本函数。

Function QueryProcess()

Dim proname
Dim CurrentTime
proname="com_server.exe"
CurrentTime=now()

Dim GetIPlocal,LocalProcess,i
set GetIPlocal=getobject("winmgmts:\\.") ' ":\\" 选择计算机地址 "."指本地计算机

set LocalProcess=GetIPlocal.instancesof("win32_process") ' "instancesof("win32_process")"系统进程

For each i in LocalProcess '查找进程列表

If i.name= proname then

' msgbox "已检测到"&proname&"进程存在",1,"进程检测"
print "在当前时间"&CurrentTime&"已检测到"&proname&"进程已存在！"

else
If i.name<>proname Then

ProcessExitTime()

end if

End Function

'########################################
'编写定时检测程序功能。

Function TestProcessCheck()

speak1.Speech.Speak a9
Dim Check
set Check=createobject("wscript.shell")

Do

QueryProcess()

wait 3 '定时每隔3秒钟循环检测一次

Loop

End Function

'############################################

Function PostVedio_Loop()

speak1.Speech.Speak a10

Dialog("智能哨位信息化系统当前用户:admin").WinButton("Button_29").Click
Dialog("智能哨位信息化系统当前用户:admin").WinMenu("ContextMenu").Select "哨位轮询方案设置"
Dialog("轮巡方案设置").WinEdit("方案名：").Set "方案一"
Dialog("轮巡方案设置").WinTreeView("哨位终端：").SetItemState "全部哨位", micUnchecked
Dialog("轮巡方案设置").WinButton("确定").Click
Dialog("提示").WinButton("确定").Click
Dialog("轮巡方案设置").Close

Dim post_loop

Set post_loop=CreateObject("Wscript.shell")

post_loop.SendKeys "{F10}"

Dialog("轮巡方案").WinButton("开始").Click

wait 1

Dialog("轮巡方案").WinButton("关闭").Click

End Function

'############################################

Function System_Reload()

Dialog("智能哨位信息化系统当前用户:admin").Activate
Dialog("智能哨位信息化系统当前用户:admin").WinButton("Button_25").Click
Dialog("智能哨位信息化系统当前用户:admin").WinMenu("ContextMenu").Select "重新加载设备配置信息"
Dialog("提示").WinButton("是(Y)").Click

End Function

'############################################

Function System_Exit()

Dialog("智能哨位信息化系统当前用户:admin").Close

speak1.Speech.Speak a11

Dialog("退出系统").WinEdit("密码:").Set "1234"

dialog("退出系统").WinButton("确定").Click

End Function

posted @ 2013-09-17 14:08 狂师阅读(505) 评论(0) 编辑收藏举报

刷新页面返回顶部

测试开发技术

专注于测试开发技术领域研究、分享、交流。欢迎关注微信公众号『测试开发技术』，后台回复关键词：作者。

QTP脚本程序（原创自编）

公告

测试开发技术

专注于测试开发技术领域研究、分享、交流。 欢迎关注微信公众号『测试开发技术』，后台回复关键词：作者。

QTP脚本程序（原创自编）

公告

专注于测试开发技术领域研究、分享、交流。欢迎关注微信公众号『测试开发技术』，后台回复关键词：作者。