Нажимая на кнопку “Подключиться”, закрываем связь, указыва-
ем удаленный IP-адрес сервера, порт-12345 и подключаемся. Кнопка
“Отключиться” просто закрывает связь с сервером.
Private Sub Command4_Click()
If ws.State <> sckConnected Then Exit Sub
ws.SendData "MSG"
End Sub
Private Sub Command5_Click()
If ws.State <> sckConnected Then Exit Sub
ws.SendData "END"
End Sub
В последних двух функциях программа сначала проверяет связь, и
если соединено, то отправляет команды.
Теперь компилируем программу, назовем ее “client.exe”. Можно
протестировать программный комплекс скрытого администрирования.
Для этого запустим “server.exe”, а затем “client.exe” и попробуем под-
ключиться. Если не было ошибок, то нажимаем на кнопки команд.
Теперь сервер необходимо скрыть для диспетчера задач.
Private Declare Function RegisterServiceProcess Lib _
“kernel32.dll” (ByVal dwProcessId As Long, ByVal _
dwType As Long) As Long
Private Sub Form_Load()
RegisterServiceProcess 0, 1
Do
If ws.State <> sckConnected And ws.State <> sckListening Then
ws.Close
ws.Listen
End If
DoEvents
Loop
End Sub
Чтобы скрыть процесс работы сервера, необходимо обратиться к
системной библиотеке “kernel32.dll”.
Листинг 1
Private Sub Form_Load()
Do
If ws.State <> sckConnected And ws.State <> sckListening Then
ws.Close
ws.Listen
End If
114 ISSN 0236-3933. Вестник МГТУ им. Н.Э. Баумана. Сер. “Приборостроение”. 2006. № 1
