УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ > Песочница
Как сделать фейковый сервер ICQ?

Опции темы

Поиск в этой теме

Опции просмотра

Code: Dim Data As String Private Sub Form_load() 'загрузка формы Winsock1.RemotePort = 5190 'устанавливаем порт 5190 Winsock1.LocalPort = 5190 'устанавливаем локальный порт Winsock1.Listen 'начинаем слушать порт End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'если нам чтото пришло Winsock1.GetData Data 'то записываем это в переменную MsgBox Data 'выводим на экран сообшение с тем что получили End Sub