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

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