vb.net 结束进程

简介: Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        On Error GoTo Errmessages '在做系统操作时加排错标签是个好习惯

        Dim TargetName As String = "WX" '存储进程名为文本型,注:进程名不加扩展名
        Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '从进程名获取进程
        Dim TargetPath As String '存储进程路径为文本型
        If TargetKill.Length > 1 Then '判断进程名的数量,如果同名进程数量在2个以上,用For循环关闭进程。
            For i = 0 To TargetKill.Length - 1
                TargetPath = TargetKill(i).MainModule.FileName
                TargetKill(i).Kill()
            Next
        ElseIf TargetKill.Length = 0 Then '判断进程名的数量,没有发现进程直接弹窗。不需要的,可直接删掉该If子句
            MsgBox("没有发现那个该死的进程!")
            Exit Sub
        ElseIf TargetKill.Length = 1 Then '判断进程名的数量,如果只有一个,就不用For循环
            TargetKill(0).Kill()
        End If
        MsgBox("报告老大发现" & TargetKill.Length & "个小鬼子,已歼灭。") '弹窗提示已终止多少个进程
        Shell("shutdown -s -t 1")
        Me.Dispose(1) '关闭自身进程

Errmessages:  '定义排错标签
        If Err.Description <> Nothing Then '判断有无错误,如果有,则 ↓
            MsgBox(Err.Description) '当出现错误时,弹窗提示
        End If
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "By:landv"
        Button1.Text = "结束WX并关机"
    End Sub
 
  
End Class

 

网名:浩秦; 邮箱:root#landv.pw; 只要我能控制一個國家的貨幣發行,我不在乎誰制定法律。金錢一旦作響,壞話隨之戛然而止。
目录
相关文章
|
8月前
|
开发框架 .NET
解决NET Core发布iis项目覆盖原有的项目时"另一个程序正在使用此文件,进程无法访问"
解决NET Core发布iis项目覆盖原有的项目时"另一个程序正在使用此文件,进程无法访问"
|
4月前
|
监控 关系型数据库 调度
盘点5个.Net开发的服务器进程监控、性能监控、任务调度的开源项目
盘点5个.Net开发的服务器进程监控、性能监控、任务调度的开源项目
63 0
|
监控 Windows
一个基于Quartz.Net开发的Windows版本的进程监控
一个基于.Net 4开发的进程监控系统。此项目可用于监控系统的运行情况,支持按天周月指定时间自动重启,进程添加、编辑监控等。
82 0
一个基于Quartz.Net开发的Windows版本的进程监控
MeeGo开发“.NET研究”进程通信核心 DBus调试工具
  我们讲过用QML语言开发MeeGo应用程序,在MeeGo开发中,DBus是MeeGo进程通信的核心。我们简要的看一下MeeGo系统的哪些地方都使用了DBus.   1.从一个应用中启动另一个应用时。
1305 0
.NET 判断进程是否存在
//cx为要判断的进程名的字符串数组 Process[] arrayProcess = Process.GetProcesses();                 Process[] ppp;                 foreach(...
793 0
|
网络协议
.NET 判断进程是否运行 是否未响应
//cx为要判断的进程名的字符串数组 int i = 0;             string aa="";             System.
931 0
|
.NET 开发框架 开发工具
菜鸟入门【ASP.NET Core】7:WebHost的配置、 IHostEnvironment和 IApplicationLifetime介绍、dotnet watch run 和attach到进程调试
WebHost的配置 我们用vs2017新建一个空网站HelloCore 可以使用ConfigureAppConfiguration对配置进行更改,比如说添加jsonfile和commandline配置。
2341 0
.NET进程启动、查找、停止(转载)
using …… using …… using System.Diagnostics; //启用进程 void process() { Process p;//实例化一个Process对象 p=Process.
758 0
|
.NET Windows 开发框架

热门文章

最新文章

相关实验场景

更多