Как проверить если порт открыт?

[dedmakar]

Как проверить если открыты TCP или UDP порты 5060?

[Cytron]

просто попытайся сам открыть этот порт, и если не будет ошибки - он значит он закрыт.

[dedmakar]

Я правельно подключаюсь:

Код: Выделить всё

Winsock1.LocalPort = 5060
Winsock1.Bind 5060

[dedmakar]

Как правельно открыть?

[HiSER]

Например так:

Код: Выделить всё

'TCP
Private Sub Command1_Click()
On Error Resume Next
Winsock1.Close
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = [Порт]
Winsock1.Listen
If Not Err.Number = 0 Then MsgBox "#" & Err.Number & vbNewLine & Err.Description, vbCritical, "Error"
Winsock1.Close
End Sub

'UDP
Private Sub Command2_Click()
On Error Resume Next
Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = [Порт]
Winsock1.Bind
If Not Err.Number = 0 Then MsgBox "#" & Err.Number & vbNewLine & Err.Description, vbCritical, "Error"
Winsock1.Close
End Sub


[dedmakar]

Код: Выделить всё

Private Sub Form_Load()
    ws.LocalPort = 135
    ws.Listen
End Sub

Это мне хвотило!!!

[dedmakar]

А можно узнать какие порты занемает та или инная программа в данный момент? Я эти порты зарание не знаю!!!

[Cytron]

русского языка ты тоже не знаешь?

[dedmakar]

Лутше не [Хакер] :: Вырезано бы, а помог. Тут тебе не форум правописания Русского языка.

[Хакер]

dedmakar
А знаешь ли ты, что за подобное можно получить наказание?