Как я могу заблокировать все входящие порты в windows 7 через VB.NET

---

Я хочу заблокировать все входящие порты, чтобы не делиться своим системным экраном ни с кем в сети через net monitor for employee configuration in vb.net

я могу отключить ctrl+alt+del, но не могу остановить стрижку экрана.

Пожалуйста помочь.

Что я уже пробовал:

Общественного Класса Form1

Частная суб методе form1_load(как byval отправителя как системы.Объект, бывал е как система.EventArgs) Обрабатывает MyBase.Load
- Я.Размер = Системная Информация.PrimaryMonitorSize
Меня.Formborderstyle Значение = Электроприводом.Формы.Formborderstyle значение.Никто
Me.Location = Новая Точка(0, 0)
Меня.Windowstate Значение = FormWindowState.Развернуто
- Я.Самый Верхний = True
Меня.Formborderstyle значение = 0

'Принять центр всех компонентов
'Тусклый главный экран как Экран = Экран.FromPoint(Me.Location)
'Dim mywidth = GroupBox1.Width / 2
'Dim myhight = GroupBox1.Height / 2
'Dim X As Integer = (главный экран.Рабочая зона.Width - (mywidth * 2)) / 2 + главный экран.WorkingArea.Слева
'Dim Y As Integer = (главный экран.Рабочая зона.Высота - (myhight * 2)) / 2 + главный экран.WorkingArea.Top
'GroupBox1.Location = Новая Точка(X, Y)
SerialPort1.Скорость = Текстовое Поле Textbox1.Текст
SerialPort1.Close()
Кнопка 'Отключить пуск
Тусклый процесс как система.Диагностика.Процесс = Ничего
Dim psi как новый ProcessStartInfo
пси.Значение Свойства Useshellexecute = Истина
пси.Имя файла = "taskkill.exe"
пси.Аргументы = "/F /IM explorer.exe"
технологический комплекс.Диагностика.Процесс.Начало(пси)

'Отключить ALT+CTRL+DEL
Таймера1.Начать()


WebBrowser1.Navigate(новый Uri("http://rediff.com"))


Конец Подводной Лодки

Private Sub Button2_Click_1(бывал отправитель как система.Объект, бывал е как система.EventArgs) Обрабатывает Button2.Click
Если TextBox1.Text = "1122", То
Тусклый процесс как система.Диагностика.Процесс = Ничего
Dim psi как новый ProcessStartInfo
пси.Значение Свойства Useshellexecute = Истина
пси.Имя файла = "explorer.exe"
-пси.Аргументы = "/F /IM explorer.exe"
технологический комплекс.Диагностика.Процесс.Начало(пси)
Меня.Скрыть()
Приложение.Выход()
Еще
Этикетка 1.Text = ("Неверный Пароль")
Конец, Если
Конец Подводной Лодки

Private Sub Timer1_Tick(бывал отправитель как система.Объект, бывал е как система.EventArgs) Обрабатывает Timer1.Tick
Для каждого selProcess как процесс в процессе.GetProcesses
Если selProcess.Тогда ProcessName = "taskmgr"
самопроцесс.Убивать()
Выход Для
Конец, Если
Следующий
Конец Подводной Лодки

Private Sub Form1_FormClosing(ByVal sender As System.Объект, бывал е как система.Окна.Формы.FormClosingEventArgs) Обрабатывает MyBase.FormClosing
If (e.CloseReason = CloseReason.UserClosing) Затем
е.Отмена = Истина
Ящик для сообщений.Show("закрытие пусковой установки не допускается", "безопасность", MessageBoxButtons.Хорошо, MessageBoxIcon.Ошибка)
Конец, Если
Конец Подводной Лодки

End Класса

---