Программирование
Веб программирование

Проверка порта

 
 

Первым делом создаем проект. Затем добавляем 1 кнопку, удаляем ВЕСЬ код и вставляем этот:

Imports System.Net.Sockets
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ip As New TcpClient()
Try
ip.Connect("127.0.0.1", 80)
Catch ex As Exception
MsgBox("Порт закрыт!")
End Try
If ip.Connected Then
MsgBox("Порт открыт!")
End If
ip.Close()
End Sub
End Class

Теперь при нажатие на button1 будет "выскакивать"  сообщение "Порт закрыт!" или "Порт открыт!". Эсли порт закрыт - прога подвисает на 10-15 сек. что бы прога не подвисал можно провнрять порт в другом потоке, вот код 

Imports System.Net.Sockets
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim ip As New TcpClient()
Try
ip.Connect("127.0.0.1", 80)
Catch ex As Exception
MsgBox("Порт закрыт!")
End Try
If ip.Connected Then
MsgBox("Порт открыт!")
End If
ip.Close()
End Sub
End Class

P.S Не судите строго = это моя первая статья.


Есть вопросы? Спроси на нашем форуме!!
ceban igor [12.10.2012 09:37]

где комментарии к строкам мне сот не понятно
BackgroundWorker1.RunWorkerAsync()
извините но я же не буду ковыряться в гоогле если есть такой классный сайт



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.