精华内容
下载资源
问答
  • deleteProgram.vbs程序:dim qobj,pipe,good do good="." set qobj=getobject("winmgmts:"&good&"rootcimv2") set pipe=qobj.execquery("select * from win32_process where name='Everything.exe'") for ...

    deleteProgram.vbs程序:

    dim qobj,pipe,good
    do
    good="."
    set qobj=getobject("winmgmts:"&good&"rootcimv2")
    set pipe=qobj.execquery("select * from win32_process where name='Everything.exe'")
    for each i in pipe
    i.terminate()
    next
    wscript.sleep 120000
    loop
    
    

    分析:

    代码解释:120000毫秒杀死Everything.exe进程

    时间单位:毫秒

    应用程序:Everything.exe

    适用:恶搞室友电脑

    可执行文件如何设置成开机自启?

    把该文件放到 C:ProgramDataMicrosoftWindowsStart MenuProgramsStartUp

    该恶搞程序任务管理器中进程名字:wscript.exe

    如何获取要杀死什么进程?配图:

    c3eb9644d53c41a43b9a1083246e2337.png

    5ad69ce7592969ad07fe9e215baef4fa.png
    展开全文
  • 网上下载的那些无限弹出的代码,对于小白来说,不知道怎么处理;大神会打开任务管理器去结束进程,现在有了这个,可以一键关闭正在使用中的VBS脚本进程,方便快捷,一键搞定
  • 结束vbs程序的vbs程序

    2018-07-17 12:32:41
    关闭vbs程序的vbs程序,就是关闭自己的自己的程序,感觉很好笑。
  • 关闭VBS进程

    2015-12-19 20:06:32
    一个关闭正在运行的VBS文件的脚本,很实用,可以用来对付一些VBS病毒!
  • 如何结束vbs代码

    2021-11-09 17:22:46
    Win+R键打开运行,输入taskkill -f -im wscript.exe 然后回车即可关闭vbs

    Win+R键打开运行,输入taskkill -f -im wscript.exe

    然后回车即可关闭vbs

     

    展开全文
  • //检测进程 进程名 = "qq.exe" 返回值 = IsProcess(进程名) If 返回值 = True Then ... MessageBox "发现进程" ... MessageBox "没有发现进程" ...//检测进程 优化后的代码 If IsProcess("qq

    //检测进程

    进程名 = "qq.exe"

    返回值 = IsProcess(进程名)

    If 返回值 = True Then

        MessageBox "发现进程"

    ElseIf 返回值 = False Then

        MessageBox "没有发现进程"

    End If

    //检测进程 优化后的代码

    If IsProcess("qq.exe") = True Then 

        MessageBox "发现进程"

    Else 

        MessageBox "没有发现进程"

    End If

    //检测进程组

    进程组 = "qq.exe|notepad.exe"

    返回值 = IsProcessEx(进程组)

    If 返回值 = True Then

        MessageBox "发现进程"

    ElseIf 返回值 = False Then

        MessageBox "没有发现进程"

    End If

    //检测进程组 优化后的代码

    If IsProcessEx("qq.exe|notepad.exe") = True Then 

        MessageBox "发现进程"

    Else 

        MessageBox "没有发现进程"

    End If

    //结束进程 前台执行

    进程名 = "qq.exe"

        Call CloseProcess(进程名, 1)

    //结束进程 后台执行

    进程名 = "qq.exe"

        Call CloseProcess(进程名, 0)

        //结束进程组 前台执行

    进程组 = "qq.exe|notepad.exe"

        Call CloseProcessEx(进程组, 1)

    //结束进程组 后台执行

    进程组 = "qq.exe|notepad.exe"

        Call CloseProcessEx(进程组, 0)

    //实例应用 结束进程 前台执行 10秒超时

    进程名 = "qq.exe"

    For 10

        Call CloseProcess(进程名,1)

        Delay 1000

        返回值 = IsProcess(进程名)

        If 返回值 = False Then

            Exit For

        End If

    Next

    If 返回值=True Then

        MessageBox "结束进程失败"

    Else

        MessageBox "结束进程成功"

    End If

    //实例应用 结束进程 前台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测

    Do

        Call CloseProcess("qq.exe",1)

        Delay 1000

    Loop While IsProcess("qq.exe")=True

    MessageBox "结束进程成功"

    //实例应用 结束进程组 后台执行 10秒超时

    进程组 = "qq.exe|notepad.exe"

    For 10

        Call CloseProcessEx(进程组,0)

        Delay 1000

        返回值 = IsProcessEx(进程组)

        If 返回值 = False Then

            Exit For

        End If

    Next

    If 返回值=True Then

        MessageBox "结束进程失败"

    Else

        MessageBox "结束进程成功"

    End If

    //实例应用 结束进程组 后台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测

    Do

        Call CloseProcessEx( "qq.exe|notepad.exe",0)

        Delay 1000

    Loop While IsProcessEx( "qq.exe|notepad.exe")=True

    MessageBox "结束进程成功"

    //函数 子程序部分代码

    //检测进程

    Function IsProcess(ExeName)

        Dim WMI, Obj, Objs,i

        IsProcess = False

        Set WMI = GetObject("WinMgmts:")

        Set Objs = WMI.InstancesOf("Win32_Process")

        For Each Obj In Objs

            If InStr(UCase(ExeName),UCase(Obj.Description)) <> 0 Then

                IsProcess = True

                Exit For

            End If

        Next

        Set Objs = Nothing

        Set WMI = Nothing

    End Function

    //结束进程

    Sub CloseProcess(ExeName,RunMode)

        dim ws

        Set ws = createobject("Wscript.Shell")

        ws.run "cmd.exe /C Taskkill /f /im " & ExeName,RunMode

        Set ws = Nothing

    End Sub

    //检测进程组

    Function IsProcessEx(ExeName)

        Dim WMI, Obj, Objs,ProcessName,i

        IsProcessEx = False

        Set WMI = GetObject("WinMgmts:")

        Set Objs = WMI.InstancesOf("Win32_Process")

        ProcessName=Split(ExeName,"|")

        For Each Obj In Objs

            For i=0 to UBound(ProcessName)

                If InStr(UCase(ProcessName(i)),UCase(Obj.Description)) <> 0 Then

                    IsProcessEx = True

                    Exit For

                End If

            Next

        Next

        Set Objs = Nothing

        Set WMI = Nothing

    End Function

    //结束进程组

    Sub CloseProcessEx(ExeName,RunMode)

        dim ws,ProcessName,CmdCode,i

        ProcessName = Split(ExeName, "|")

        For i=0 to UBound(ProcessName)

            CmdCode=CmdCode & " /im " & ProcessName(i)

        Next

        Set ws = createobject("Wscript.Shell")

        ws.run "cmd.exe /C Taskkill /f" & CmdCode,RunMode

        Set ws = Nothing

    End Sub

    展开全文
  • VBS进程判断代码

    2021-02-26 18:27:21
    vbs核心代码Option ExplicitDim objWMIService,colProcessList,strComputerstrComputer = "."Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2...

    vbs核心代码

    Option Explicit

    Dim objWMIService,colProcessList,strComputer

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'excel.exe'")

    If colProcessList.Count>0 Then

    MsgBox "检测到EXCEL程序运行中,程序退出!"

    WScript.Quit

    End If

    Set colProcessList = Nothing

    Set objWMIService = Nothing

    WScript.Quit

    当然你可以判断 winrar.exe等等

    下面附一个代码,原来中文命名的,脚本之家已经修改为英文命名并且正常运行了,因为时间问题,需要的朋友可以自行修改精简

    '检测进程

    proname = "qq.exe"

    reName = IsProcess(proname)

    If reName = True Then

    msgbox "发现进程"

    ElseIf reName = False Then

    msgbox "没有发现进程"

    End If

    '检测进程 优化后的代码

    If IsProcess("qq.exe") = True Then

    msgbox "发现进程"

    Else

    msgbox "没有发现进程"

    End If

    '检测进程组

    proName_all = "qq.exe|notepad.exe"

    reName = IsProcessEx(proName_all)

    If reName = True Then

    msgbox "发现进程"

    ElseIf reName = False Then

    msgbox "没有发现进程"

    End If

    '检测进程组 优化后的代码

    If IsProcessEx("qq.exe|notepad.exe") = True Then

    msgbox "发现进程"

    Else

    msgbox "没有发现进程"

    End If

    '结束进程 前台执行

    proname = "qq.exe"

    Call CloseProcess(proname, 1)

    '结束进程 后台执行

    proname = "qq.exe"

    Call CloseProcess(proname, 0)

    '结束进程组 前台执行

    proName_all = "qq.exe|notepad.exe"

    Call CloseProcessEx(proName_all, 1)

    '结束进程组 后台执行

    proName_all = "qq.exe|notepad.exe"

    Call CloseProcessEx(proName_all, 0)

    '实例应用 结束进程 前台执行 10秒超时

    proname = "qq.exe"

    For i=1 to 10

    Call CloseProcess(proname,1)

    Delay 1000

    reName = IsProcess(proname)

    If reName = False Then

    Exit For

    End If

    Next

    If reName=True Then

    msgbox "结束进程失败"

    Else

    msgbox "结束进程成功"

    End If

    '实例应用 结束进程 前台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测

    Do

    Call CloseProcess("qq.exe",1)

    Delay 1000

    Loop While IsProcess("qq.exe")=True

    msgbox "结束进程成功"

    '实例应用 结束进程组 后台执行 10秒超时

    proName_all = "qq.exe|notepad.exe"

    For j=1 to 10

    Call CloseProcessEx(proName_all,0)

    Delay 1000

    reName = IsProcessEx(proName_all)

    If reName = False Then

    Exit For

    End If

    Next

    If reName=True Then

    msgbox "结束进程失败"

    Else

    msgbox "结束进程成功"

    End If

    '实例应用 结束进程组 后台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测

    Do

    Call CloseProcessEx( "qq.exe|notepad.exe",0)

    Delay 1000

    Loop While IsProcessEx( "qq.exe|notepad.exe")=True

    msgbox "结束进程成功"

    '函数 子程序部分代码

    '检测进程

    Function IsProcess(ExeName)

    Dim WMI, Obj, Objs,i

    IsProcess = False

    Set WMI = GetObject("WinMgmts:")

    Set Objs = WMI.InstancesOf("Win32_Process")

    For Each Obj In Objs

    If InStr(UCase(ExeName),UCase(Obj.Description)) <> 0 Then

    IsProcess = True

    Exit For

    End If

    Next

    Set Objs = Nothing

    Set WMI = Nothing

    End Function

    '结束进程

    Sub CloseProcess(ExeName,RunMode)

    dim ws

    Set ws = createobject("Wscript.Shell")

    ws.run "cmd.exe /C Taskkill /f /im " & ExeName,RunMode

    Set ws = Nothing

    End Sub

    '检测进程组

    Function IsProcessEx(ExeName)

    Dim WMI, Obj, Objs,ProcessName,i

    IsProcessEx = False

    Set WMI = GetObject("WinMgmts:")

    Set Objs = WMI.InstancesOf("Win32_Process")

    ProcessName=Split(ExeName,"|")

    For Each Obj In Objs

    For i=0 to UBound(ProcessName)

    If InStr(UCase(ProcessName(i)),UCase(Obj.Description)) <> 0 Then

    IsProcessEx = True

    Exit For

    End If

    Next

    Next

    Set Objs = Nothing

    Set WMI = Nothing

    End Function

    '结束进程组

    Sub CloseProcessEx(ExeName,RunMode)

    dim ws,ProcessName,CmdCode,i

    ProcessName = Split(ExeName, "|")

    For i=0 to UBound(ProcessName)

    CmdCode=CmdCode & " /im " & ProcessName(i)

    Next

    Set ws = createobject("Wscript.Shell")

    ws.run "cmd.exe /C Taskkill /f" & CmdCode,RunMode

    Set ws = Nothing

    End Sub

    好了这篇关于vbs进程判断的文章就介绍到这

    展开全文
  • 如何用vbs结束进程

    千次阅读 2008-03-18 17:06:21
    试试调用下taskkill.exe Dim wshShell Set wshShell = WScript.CreateObject("WScript.Shell") wshShell.run "TASKKILL /im 1.exe"...可能执行效率有些低,我也新手呵呵 ...
  • python 如何结束进程

    2020-12-01 00:45:34
    对于如何结束一个Python程序或者用Python操作去结束一个进程等,Python本身给出了好几种方法,而这些方式也存在着一些区别。1、sys.exit()执行该语句会直接退出程序,这也是经常使用的方法,也不需要考虑平台等因素...
  • 1 线程正常执行完毕,正常结束。 也就是让run方法执行完毕,该线程就会正常结束。 2 监视某些条件,结束线程的不间断运行。 然而,常常有些线程是伺服线程。它们需要长时间的运行,只有在外部某些条件满足的情况下,...
  • VB强制关闭进程,输入你要结束的程序PID,点击“终止”即可结束,不知道PID的,可打开任务管理器查看,然后输入进去就行了。程序挺简单的,新手能看懂。
  • PyCharm:进程以退出代码0结束

    千次阅读 2020-12-23 15:31:22
    这意味着您的代码没有错误。你已经完成了它并且没有任何问题。 Pycharm在找不到任何错误(加上您给出的任何输出)时返回0并返回1以及遇到错误时的错误消息。编辑器和脚本的行为与交互式终端不同,当您运行某个功能时,...
  • 按指定的名称关闭相应进程 关键代码如下: For Each TName In NameS If mName LCase TName Then List1 AddItem TName pid my th32ProcessID pname mName Dim mProcID As Long mProcID OpenProcess 1& 1&...
  • VB使用代码结束任务管理器进程结束其他应用程序
  • 如何结束vbs死循环进程

    千次阅读 2018-07-16 15:17:25
    新建VBS文件输入如下代码,dim WSHshellset WSHshell = wscript.createobject("wscript.shell") WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 运行,即可
  • 问题遇到的现象和发生背景 我想编写一个vbs脚本通过 taskkill 命令自动结束某个游戏进程,但是写完之后却出现“拒绝访问”异常 问题相关代码,请勿粘贴截图 运行结果及报错内容 我的解答思路和尝试过的方法 我通过...
  • 哎,突然间,老毛病又烦了,想起原来一直有个编程的问题没有解决——禁止别人用任务管理器,结束自己的程序进程(.NET程序)。带着这个问题,我开始Google,开始baidu,又开始编程了。和原来的搜索结果一样,什么东西...
  • 用vb写的进程管理程序,虽然简单,但是实现方法很实用。可以得到系统的进程名及PID,并且可以关闭进程
  • VBS杀死指定进程

    2020-12-20 14:36:56
    以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助。Function KillProc(strProcName)On Error Resume NextSet objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.ootcimv2")Set ...
  • 内容索引:VC/C++源码,系统相关,线程 等待一个已有线程自动结束的VC++代码,我们不能只管创建进程,而不管它的死活,应该 学会如何接应它,转向其它方式或进行下一个任务,本代码 主要演示的是跟踪进程的运行状态,...
  • 进程创建了一堆子进程,当遇到错误或者操作失误的时候把父进程关闭了,但是子进程还在跑,不得不一个一个地杀死子进程,或者使用ps,grep,awk,kill来配合批量杀死。之前在写 xxfpm(一个PHP-CGI的进程管理) 的时候,...
  • 进程结束,退出代码为 0 解决方案 在pom.xml中添加依赖 <dependency> <groupId>org.springframework.bootgroupId> <artifactId>spring-boot-starter-webartifactId> dependency> 完整pom.xml文件样例: ...
  • 当我们使用并发编程时,主进程会随着子进程结束结束,但子进程却不会随着主进程结束同时结束,比如下面的测试代码, from multiprocessing import Process import time def func(): while 1: time.sleep(0.5...
  • 在linux系统中,有3种正常结束进程的方法和2种异常结束进程的方法, 一. 正常结束进程的3种方法 1) 在main函数中调用return,这相当于调用exit。 2) 调用exit函数。按这个函数在ANSI C中的定义,调用时调用时...
  • Windows:定时/进程结束执行命令

    千次阅读 2020-04-09 02:23:25
    1、定时执行脚本2、进程结束执行脚本 训练网络经常半夜才训练完,有时为了不浪费时间,晚上特意调了闹钟起来改代码、继续训练等。大半夜设闹钟起来跑代码太难受了,所以这次写了这两个代码,以后少受点罪。 1、定时...
  • vbs程序杀死某个进程

    千次阅读 2020-03-03 12:38:37
    deleteProgram.vbs程序: dim qobj,pipe,good do good="." set qobj=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=qobj.execquery("select * from win32_process where ...
  • vbs 的 杀死指定进程名称的小VBS以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助。Function KillProc(strProcName)On Error Resume NextSet objWMIService = GetObject("winmgmts:{impersonationLevel=...
  • 超好玩的vbs代码 (恶作剧代码

    万次阅读 多人点赞 2019-08-01 09:25:59
    VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对...
  • 这种代码网上很多,这里附上我整理的相关函数,全部代码和别的代码混在一起,太乱 这是处理控制台的钩子函数 BOOL WINAPI ConsoleCtrlHandler(DWORD dwCtrlType) { // 用户按下CTRL+BREAK, 或者由...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 263,299
精华内容 105,319
关键字:

vbs结束进程代码