INTERAÇAO COM WINDOWS

MFLAVIO 13/03/2023 08:36:11
#501128
Bom dia Pessoa, Bati a cabeça um pouco mas consegui
criei um Função que finaliza o processo Explorer, e quando finaliza o sistema o Explorer e iniciado novamente
assim o Usuario não consegue usar nada alem do Sistema

OPT(1) Fecha e OPT(2) Abre o Explorer
      Public Function BLO_Windows(OPT As Byte) As Boolean
        Try
            Select Case OPT
                Case 1
                    Dim psi As New ProcessStartInfo With {
                    .FileName = "C:\Windows\System32    askkill.exe",
                    .Arguments = "/f /im explorer.exe",
                    .Verb = "runas"
                    }
                    Process.Start(psi)
                Case 2
                    Dim psi As New ProcessStartInfo With {
                    .FileName = "C:\Windows\explorer.exe",
                    .Verb = "runas"
                    }
                    Process.Start(psi)

            End Select
            Return True
        Catch ex As Exception
            Err.Clear()
            Return False
        End Try
    End Function
Página 2 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar