본문 바로가기
VB.net

프레세스 확인 후 kill

by 호야호잇 2018. 6. 5.

public Function WM_Process_Kill(ByVal ProcessName As String) As Boolean

        Try

            Dim GetProcess As System.Diagnostics.Process() = Diagnostics.Process.GetProcessesByName(ProcessName)

            If GetProcess.Length = 0 Then    '실행중인 프로세스가 아니면

                Return False

            Else

                Dim mmsg As String = "워터마크를 해제하게되면 화면 보안이 취약해질 수 있습니다." & vbNewLine & vbNewLine &

                                                "워터마크를 정말 해제하시겠습니까?"


                Dim result As Integer = MessageBox.Show(mmsg, "알림", MessageBoxButtons.OKCancel)

                If result = DialogResult.Cancel Then

                    Exit Function

                ElseIf result = DialogResult.OK Then

                    For i = 0 To GetProcess.Length

                        GetProcess(i).Kill()

                    Next

                End If

                Return True

            End If

        Catch ex As Exception

            Return False

        End Try


    End Function