Запрет запуска приложений после текущего (перевести с VB 6.0) - Visual Basic .NET - Ответ 3214824

Imports System.Runtime.InteropServices
 
<StructLayout(LayoutKind.Sequential)> _
Public Structure PROCESSENTRY32
    Public dwSize As UInteger
    Public cntUsage As UInteger
    Public th32ProcessID As UInteger
    Public th32DefaultHeapID As IntPtr
    Public th32ModuleID As UInteger
    Public cntThreads As UInteger
    Public th32ParentProcessID As UInteger
    Public pcPriClassBase As Integer
    Public dwFlags As UInteger
    <VBFixedString(260), MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public szExeFile As String
End Structure
 
<Flags()> _
Public Enum SnapshotFlags As Integer
    HeapList = &H1
    Process = &H2
    Thread = &H4
    [Module] = &H8
    Module32 = &H10
    Inherit = &H80000000
    All = &Hf
    NoHeaps = &H40000000
End Enum
 
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function CreateToolhelp32Snapshot(ByVal dwFlags As SnapshotFlags, ByVal th32ProcessID As UInteger) As IntPtr
End Function
 
<DllImport("kernel32.dll")> _
Private Shared Function Process32First(ByVal hSnapshot As IntPtr, ByRef lppe As PROCESSENTRY32) As Boolean
End Function
 
<DllImport("kernel32.dll")> _
Private Shared Function Process32Next(ByVal hSnapshot As IntPtr, ByRef lppe As PROCESSENTRY32) As Boolean
End Function
 
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function CloseHandle(ByVal hHandle As IntPtr) As Boolean
End Function
 
<DllImport("kernel32.dll")> _
Private Shared Function OpenProcess(ByVal dwDesiredAccess As ProcessAccessFlags, <MarshalAs(UnmanagedType.Bool)> ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As IntPtr
End Function
 
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function TerminateProcess(ByVal hProcess As IntPtr, ByVal uExitCode As UInteger) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
 
Dim LastProc As String
 
Private Sub Check1_Click()
If Check1.Checked Then
    Dim proc As New PROCESSENTRY32()
    snap = CreateToolhelp32Snapshot(15, 0)
    proc.dwSize = proc.Lenght 'так, наверно, правильно будет? :) На шарпе это именно так делается
    Dim k As Boolean = Process32First(snap, proc)
    Do While k
        LastProc = proc.szExeFile
        k = Process32Next(snap, proc)
        'List1.AddItem LastProc
    Loop
    CloseHandle(snap)
    
    Me.Caption = LastProc
    Timer1.Interval = 10
    Timer1.Start()
Else
    Timer1.Stop()
End If
End Sub
 
Private Sub Timer1_Timer(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Timer
If Check1.Checked Then
    Dim proc As New PROCESSENTRY32()
    snap = CreateToolhelp32Snapshot(15, 0)
    proc.dwSize = proc.Lenght
    k = Process32First(snap, proc)
    Dim flag As Boolean = False
    Do While k
        sProc = proc.szExeFile
        If flag Then
            hProc = OpenProcess(&H1, False, proc.th32ProcessID)
            TerminateProcess hProc, 0&
        End If
        If StrComp(sProc, LastProc, vbTextCompare) = 0 Then flag = True
        k = Process32Next(snap, proc)
    Loop
    CloseHandle(snap)
Else
    Timer1.Stop()
End If
End Sub