Конференция VBStreets

**dedmakar** » 07.09.2007 (Пт) 18:32

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

**Cytron** » 08.09.2007 (Сб) 3:35

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

**dedmakar** » 08.09.2007 (Сб) 14:03

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

**dedmakar** » 09.09.2007 (Вс) 14:53

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

**HiSER** » 09.09.2007 (Вс) 16:21

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

Код: Выделить всё: '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** » 09.09.2007 (Вс) 16:33

Код: Выделить всё: Private Sub Form_Load() ws.LocalPort = 135 ws.Listen End Sub

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

**dedmakar** » 12.09.2007 (Ср) 20:26

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

**Cytron** » 12.09.2007 (Ср) 23:11

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

**dedmakar** » 13.09.2007 (Чт) 18:42

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

**Хакер** » 13.09.2007 (Чт) 19:26

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

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