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
©著作权归作者所有：来自51CTO博客作者wx5b45f9e8272f1的原创作品，如需转载，请注明出处，否则将追究法律责任