VPF::Проверить наличие открытых портов VB6

Samantec

Дата 30.4.2011, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 30.4.2011
Где: пл. Земля

Репутация: нет
Всего: нет

Пишу одну занятну программу(пишу маленькую утилиту по борьбе с троями), но там надо что бы та проверила наличие открытых портов на определённом ip, и сохранило в лог. (помимо этого будет ещё много всего) Что бы сохранило в лог я знаю как это сделать, а вот как проверить наличие открытых портов по диапазону не знаю, знаю только что с помомощью Winsock (сокетов) - а как конкретно ? Гуглил - но там я не чё в примерах не понял. Может кто обьяснить и как это сделать и дать пример. Спасибо!

Dexx

Дата 1.5.2011, 05:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

Зачем вам еще один велик?

Добавлено @ 06:00
http://nmap.org/download.html
Определение открытых портов + всякие плюшки

Это сообщение отредактировал(а) Dexx - 1.5.2011, 06:20

--------------------

Dexx

Дата 1.5.2011, 06:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

Но если очень хочется).
A port scanner in VB.
http://www.go4expert.com/forums/showthread.php?t=401

Это сообщение отредактировал(а) Dexx - 1.5.2011, 06:18

--------------------

Samantec

Дата 1.5.2011, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 30.4.2011
Где: пл. Земля

Репутация: нет
Всего: нет

Спасибо Dexx! Делал как ты и дал пример тут - http://www.go4expert.com/forums/showthread.php?t=401 . Но вот что то не очень получается

Код




Private Sub Command1_Click()
Text1.Text = Winsock1.LocalIP
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
MsgBox "Начали!"
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Winsock1.Close
Text2.Text = Int(Text2.Text) + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
Label4 = Label4 + 1
End Sub

Private Sub Winsock1_Connect()
List1.AddItem "[+] Порт " + Winsock1.RemotePort + " открыт!"
End Sub

К портам коннектится, но не записывает их в List1, в чём ошибка не вижу, подскажите что исправить.

Это сообщение отредактировал(а) Samantec - 1.5.2011, 13:08

Dexx

Дата 1.5.2011, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

Специально, не поленился) сам попробовал, все работает.

Присоединённый файл ( Кол-во скачиваний: 18 )

skaner.zip 1,68 Kb

--------------------

Samantec

Дата 2.5.2011, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 30.4.2011
Где: пл. Земля

Репутация: нет
Всего: нет

АП, и у меня заработало ) Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »