'编写哨位台程序测试脚本，实现功能如下：
'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

Next

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

Next

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

Next

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"

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_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"

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_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"

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 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 if

Next

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

QTP脚本程序（原创自编）的更多相关文章

  1. QTP脚本不能录制怎么办？

    QTP是基于VBS脚本语言的,大部分VBS脚本都能在QTP上运行,只是在一些细节上略有不同,比如说VBS上停止用sleep,QTP上用wait.QTP的强大之处在于对程序窗口的操作,有很多针对窗体的属 ...

  2. QTP脚本汇总比较有价值

    1.Object Spy的Tips Hold the CTRL key to change the window focus or perform other mouse operations  2. ...

  3. QTP自动化测试培训：描述编程之WebElement

    QTP自动化测试培训:描述编程之WebElement   通过描述性编程技术,来描述出来输入框: set po=browser("creationtime:=0").page(&q ...

  4. 创建和运行shell脚本程序

    转载请标明http://www.cnblogs.com/winifred-tang94/ 要创建一个shell脚本程序,首先新建一个文本文件,然后在这个文本文件中按照shell编程规则输入shell命 ...

  5. Xtrabackup每周增量备份脚本程序

    Xtrabackup每周增量备份脚本程序(含附件)   程序描述 本程序是一个对percona xtrabackup使用的脚本,它完成了MySQL每周的备份. 程序结构 此程序包含了4个目录(bin. ...

  6. Linux CAN Shell 测试脚本程序

    2012-01-13 22:57:14 为我的开发板2440做二次开发,添加了can驱动,做了驱动测试程序,没理由不添加一个测试脚本程序啊!修改了测试程序,使应用程序更加灵活,添加了一下传递参数.接着 ...

  7. 09 shell脚本程序练习

    练习1:写一个脚本程序,完成以下任务 1.添加五个用户,user1.user2.user3.user4.user5: 2.添加之前先判断是否存在该用户,如果存在则显示“某某用户已存在”: 3.每个用户 ...

  8. 在Linux中以普通用户开机自动运行脚本程序

    测试环境:CentOS6.5 管理员:root 普通用户:test1 实现目标:在Linux启动时,以普通用户test1自动运行位于根目录下的脚本程序test.py,该程序会在每次执行时自动向本地日志 ...

  9. 下载 LFS所需要的源码包的脚本程序及检验方法

    下载 LFS所需要的源码包的脚本程序及检验方法 http://blog.csdn.net/yygydjkthh/article/details/45315143

随机推荐

  1. Multi-Objective Data Placement for Multi-Cloud Socially Aware Services---INFOCOM 2014

    [标题] [作者] [来源] [对本文评价] [why] 存在的问题 [how] [不足] assumption in future work [相关方法或论文] [重点提示] [其它]

  2. Mysql存储过程和函数

    Mysql存储过程和函数 基本概念: 创建存储过程和函数是指将经常使用的一组SQL语句的组合在一起,并将这些SQL语句当作一个整体存储在MySQL服务器中.例如,银行经常需要计算用户的利息.不同类别的 ...

  3. 关于reportng生成的测试报告不按测试执行顺序的解决办法

    需要修改TestResultComparator类的源码,源码自己去reportng官网http://reportng.uncommons.org/下载,因为reportng默认是按字母先后顺序进行排 ...

  4. 自定义GridLayout实现条目的拖动动画特效

    1.自定义GridLayout实现增加条目过度动画操作 public class MyGridLayout extends GridLayout { public MyGridLayout(Conte ...

  5. 理解委托(delegate)及为什么要使用委托

    理解委托(delegate)及为什么要使用委托 委托:是一种定义方法签名的类型. 当实例化委托时,您可以将其实例与任何具有兼容签名的方法相关联. 您可以通过委托实例调用方法. 上述为官方说法,理解起来 ...

  6. Dubbo.xml配置源-Dubbo.xsd分析

      我们使用Dubbo时,一般都会使用xml配置基本信息,如项目名称(application).注册中心(register).协议(protocal).服务(service),如下所示: 1 2 3 ...

  7. POIXV Permutation

    Description Multiset is a mathematical object similar to a set, but each member of a multiset may ha ...

  8. DPDK l2fwd 浅注

    l2fwd是DPDK中的非常经典的例子.二层转发模型. 就是在相邻的网卡接口间互相传递报文. 网口0和网口1之间报文互传. 网口2和网口3之间报文互传. ............ 运行参数 . 在目录 ...

  9. HDU1009FatMouse' Trade(贪心)

    Problem Description FatMouse prepared M pounds of cat food, ready to trade with the cats guarding th ...

  10. Caf音频文件混合

    一.两个同样时常的caf音频文件,可以通过下面的代码混合 二.代码地址: https://github.com/liqiushui/AudioRecorderCafMix