Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Проверить наличие открытых портов VB6

Автор: Samantec 30.4.2011, 11:05

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

Автор: Dexx 1.5.2011, 05:57

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

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

Автор: Dexx 1.5.2011, 06:13

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

Автор: Samantec 1.5.2011, 13:06

Спасибо 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, в чём ошибка не вижу, подскажите что исправить.

Автор: Dexx 1.5.2011, 19:17

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

Автор: Samantec 2.5.2011, 12:09

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