天天看點

VB.net結束程序

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 5555")
        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;

隻要我能控制一個國家的貨幣發行,我不在乎誰制定法律。金錢一旦作響,壞話隨之戛然而止。