VBS脚本合集(自制脚本)
2013-09-04 18:15
92 查看
一、视频搜索器选择:
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}"
三、
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}"
三、
相关文章推荐
- window自制bat,vbs脚本,自动在后台运行nodejs application
- 经典的vbs脚本 合集
- vbs脚本控制IIS
- 关机VBS脚本
- VBS 脚本中的字典、动态数组、队列和堆栈实现代码
- 自动下载并运行的VBS脚本代码
- 如何用vbs脚本获取登录信息?
- 自动加入域vbs脚本
- VBS脚本常用经典代码收集
- 计划任务 主动ping服务器是否宕机的vbs脚本
- 命令行下IIS的配置脚本Adsutil.vbs
- 用vbs实现的exe2swf工具脚本代码
- 利用vbs写的延时关闭ie进程的脚本代码
- Vbs脚本编程简明教程之十六
- vbs脚本
- Vbs备份数据脚本集合
- vbs脚本实现修改DNS和清空IE临时文件功能
- ◎Vbs脚本编程简明教程之十一 ——FSO中文件的基本操作
- vbs脚本
- patterson-consulting即将推出免费版VBS脚本编辑器