一、视频搜索器选择：
Selectitem()
'#########################################
Function Selectitem()
'Set VedioSearch=WScript.CreateObject("wscript.shell")
Dim demo
demo=InputBox("请选择进入的功能模块:1、进入美电贝尔设备搜索器;2、进入搜索视频监控设备;3、进入大华视频搜索器;4、进入海康视频搜索器;5、进入十五所视频搜索器")
Select Case demo
Case "1" demo1()
Case "2" demo2()
Case "3" demo3()
Case "4" demo4()
Case "5" demo5()
End Select
End Function
'#########################################
'美电贝尔设备搜索器
Function demo1()
Set VedioSearch=WScript.CreateObject("wscript.shell")
VedioSearch.Run """AEBellSearchTool\AEBellSearchTool.exe"""
End Function
'#########################################
'搜索视频监控设备
Function demo2()
Set VedioSearch=WScript.CreateObject("wscript.shell")
VedioSearch.Run """VedioSearch\DeviceSearch.exe"""
End Function
'#########################################
'大华视频搜索器
Function demo3()
Set VedioSearch=WScript.CreateObject("wscript.shell")
VedioSearch.Run """VedioSearch\ConfigTool.exe"""
End Function
'#########################################
'海康视频搜索器
Function demo4()
Set VedioSearch=WScript.CreateObject("wscript.shell")
VedioSearch.Run """VedioSearch\IPCTools.exe"""
End Function
'#########################################
'十五所视频搜索器
Function demo5()
Set VedioSearch=WScript.CreateObject("wscript.shell")
VedioSearch.Run """VedioSearch\IPInstaller.exe"""
End Function
二、自动定时关闭打开的应用程序
Dim app
Set app=WScript.CreateObject("wscript.shell")
app.Run """\WriteFileTest.exe"""
Call callkilltime()
Function callkilltime()
WScript.Sleep 1200000
app.Run "taskkill /im WriteFileTest.exe /f ",vbhide
End Function
三、自动结束进程名：
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}R"
wscript.sleep 2000
WshShell.SendKeys "taskkill /f /im notepad.exe"
WshShell.SendKeys "{Enter}"
三、
技术改变世界！ --狂诗绝剑
