一、视频搜索器选择:

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

三、

VBS脚本合集(自制脚本)的更多相关文章

  1. Shell 脚本合集

    0. 说明  Shell 脚本合集 1. xcall.sh xcall.sh 编写为了为了同时对多台服务器进行操作,编写完成之后,将其发送到 /usr/local/bin 下 #!/bin/bash ...

  2. 【shell】shell基础脚本合集

    1.向脚本传递参数 #!/bin/bash #功能:打印文件名与输入参数 #作者:OLIVER echo $0 #打印文件名 echo $1 #打印输入参数 执行结果: 2.在脚本中使用参数 #!/b ...

  3. Linux一键脚本合集vps

    首先,想说说一键脚本流行的原因何在? 众所周知的是,Linux 是占据大半壁江山的服务器系统,但在桌面上的占有率可就远不是那么回事儿了,使用和熟悉 Linux 的人远没有 Windows 多,但又因为 ...

  4. 自编shell脚本合集(完善中)

    1.数据库备份 #!/bin/bash user="root" psword="root" bakdir="/data/mysqlbak" ...

  5. FFmpeg示例程序合集-批量编译脚本

    此前做了一系列有关FFmpeg的示例程序,组成了<最简单的FFmpeg示例程序合集>,其中包含了如下项目:simplest ffmpeg player:                   ...

  6. FFmpeg示例程序合集-Git批量获取脚本

    此前做了一系列有关FFmpeg的示例程序,组成了<FFmpeg示例程序合集>,其中包含了如下项目:simplest ffmpeg player:                  最简单的 ...

  7. python脚本实现集群检测和管理

    python脚本实现集群检测和管理 场景是这样的:一个生产机房,会有很多的测试机器和生产机器(也就是30台左右吧),由于管理较为混乱导致了哪台机器有人用.哪台机器没人用都不清楚,从而产生了一个想法-- ...

  8. 重拾《 两周自制脚本语言 》- Eclipse插件实现语法高亮

    源码库: program-in-chinese/stone-editor-eclipse 参考: FAQ How do I write an editor for my own language? D ...

  9. redis伪集群脚本

    #安装redis伪集群脚本,先把redis-..gem及启动脚本放在/data1/redis-cluster目录下,然后执行该脚本即可 #!/bin/bash set -e #获取redis本机ip ...

随机推荐

  1. YII2.0 数据库增删改查

    /*==================== dkhBaseModel 数据库增删改查方法 start ================================*/ //新增一条数据 publ ...

  2. sublime text 设置

    https://packagecontrol.io/installation#Simple 下载 php 自动补全 点击菜单栏的:Preferences: 选择:Setting-User项: 然后在大 ...

  3. 在hadoop 的任务中设置 map数量

    试验了一下: 调整mapred-site.xml中mapred.min.split.size的值可以改变map的数量 首先设置了hdfs-site.xml中的dfs.block.size为20M,测试 ...

  4. Nginx将项目配置在子目录

    问题:一个完整的项目需要整合在另外一个项目中,作为一个子模块存在 有两个项目prject1 根目录/www/project1与project2 /www/project2,现在是想将probject1 ...

  5. 使用Pycharm 安装三方库

    除了使用easy_insatll和pip工具安装Python第三方库外还可以使用pycharm安装Python第三方库,步骤如下: 1.打开pycharm,点击File,再点击settings 2.点 ...

  6. jqgrid参数

    jqGrid参数 名称 类型 描述 默认值 可修改 url string 获取数据的地址 datatype string 从服务器端返回的数据类型,默认xml.可选类型:xml,local,json, ...

  7. 分布式版本控制系统Git-----6.Git 常见命令一览表

    说明/备注 命令 备注 保存更新 git add [-i] -i 逐个确认 检查更新 git status 提交更新 git commit [-a] -m "<更新说明>&quo ...

  8. CentOS6.2编译gcc失败,kernel-headers错误

    准备转移到阿里云服务器,用的CentOS6.2 x64,虚拟机上用的 6.3版本,测试重装了好几次都没问题了,结果在云服务器上刚开始就出问题了... yum 安装的时候居然出错了,靠...网上 goo ...

  9. Bounce 弹飞绵羊

    Bounce 弹飞绵羊 题目链接:http://www.lydsy.com/JudgeOnline/problem.php?id=2002 分块 将整个大区间分成若干块,每个点维护到下一个块需要跳的次 ...

  10. js---DOM元素节点

    创建新的 HTML 元素如需向 HTML DOM 添加新元素,您必须首先创建该元素(元素节点),然后向一个已存在的元素追加该元素. 实例1: <!DOCTYPE html> <htm ...