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

    三、

  • 相关阅读:
    SVN 的基本用法
    Git的基本用法
    一般情况下设计应遵循的原则
    设置默认以管理员运行的WinForm
    为 dll (类库) 解决方案添加测试项目
    C# WinForms跨线程更新 UI
    Android 创建 SO 文件
    SQL之case when then用法
    SQL LIKE 通配符随笔
    document.all.item作用
  • 原文地址:https://www.cnblogs.com/jinjiangongzuoshi/p/3301609.html
Copyright © 2011-2022 走看看