zoukankan      html  css  js  c++  java
  • VBS脚本合集(自制脚本)

    一、视频搜索器选择:


    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 """AEBellSearchToolAEBellSearchTool.exe"""

    End Function


    '#########################################
    '搜索视频监控设备
    Function demo2()

    Set VedioSearch=WScript.CreateObject("wscript.shell")
    VedioSearch.Run """VedioSearchDeviceSearch.exe"""

    End Function


    '#########################################
    '大华视频搜索器
    Function demo3()

    Set VedioSearch=WScript.CreateObject("wscript.shell")
    VedioSearch.Run """VedioSearchConfigTool.exe"""

    End Function


    '#########################################
    '海康视频搜索器

    Function demo4()

    Set VedioSearch=WScript.CreateObject("wscript.shell")
    VedioSearch.Run """VedioSearchIPCTools.exe"""

    End Function


    '#########################################
    '十五所视频搜索器
    Function demo5()

    Set VedioSearch=WScript.CreateObject("wscript.shell")
    VedioSearch.Run """VedioSearchIPInstaller.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}"

    三、

  • 相关阅读:
    常用的ORM框架与自动化映射工具
    数据持久化
    char、nchar、varchar、nvarchar 的区别
    MS SqlServer还原数据库,出现媒体簇的结构不正确
    根据字段查询所有表名
    java中package指什么
    MybatisGenerator生成的mapper 少了识别主键的方法 byPrimaryKey()
    Sql Server触发器的使用
    WebService生成XML文档时出错。不应是类型XXXX。使用XmlInclude或SoapInclude属性静态指定非已知的类型。
    sqlserver记录去重
  • 原文地址:https://www.cnblogs.com/jinjiangongzuoshi/p/3301609.html
Copyright © 2011-2022 走看看