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

    三、

  • 相关阅读:
    poj 3280 Cheapest Palindrome(区间DP)
    POJ 2392 Space Elevator(多重背包)
    HDU 1285 定比赛名次(拓扑排序)
    HDU 2680 Choose the best route(最短路)
    hdu 2899 Strange fuction (三分)
    HDU 4540 威威猫系列故事――打地鼠(DP)
    HDU 3485 Count 101(递推)
    POJ 1315 Don't Get Rooked(dfs)
    脱离eclipse,手动写一个servlet
    解析xml,几种方式
  • 原文地址:https://www.cnblogs.com/jinjiangongzuoshi/p/3301609.html
Copyright © 2011-2022 走看看