Re: VBA: Не могу открыть порт Winsock

null@example.com (dandyd) — Sun, 13 Nov 2011 02:43:26 +0000

dandyd пишет:

Добрый день
Не могу в VBA Excel открыть порт Winsock
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Set ws = CreateObject("MSWinsock.Winsock")
ws.RemoteHost = "192.168.1.1"
ws.RemotePort = 9013
ws.Connect
Do While (ws.State <> 7)
  Sleep 200
Loop
Объект нормально создается, но
ws.State стоит в состоянии - sckConnecting 6 "Connecting",
а в состояние - sckConnected 7 "Connected"
не переходит.
Стандартным телнетом (telnet 192.168.1.1 9013) и из VBScript порт открывается нормально, читаются с него данные.

Докопался: Волшебное слово "DoEvents"

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Set ws = CreateObject("MSWinsock.Winsock")
ws.RemoteHost = "192.168.1.1"
ws.RemotePort = 9013
ws.Connect
Do While (ws.State <> 7)
  DoEvents
  Sleep 200
Loop

Так работает.
Тема закрыта.

VBA: Не могу открыть порт Winsock

null@example.com (dandyd) — Thu, 10 Nov 2011 11:58:17 +0000

Добрый день

Не могу в VBA Excel открыть порт Winsock

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Set ws = CreateObject("MSWinsock.Winsock")
ws.RemoteHost = "192.168.1.1"
ws.RemotePort = 9013
ws.Connect
Do While (ws.State <> 7)
  Sleep 200
Loop

Объект нормально создается, но
ws.State стоит в состоянии - sckConnecting 6 "Connecting",
а в состояние - sckConnected 7 "Connected"
не переходит.
Стандартным телнетом (telnet 192.168.1.1 9013) и из VBScript порт открывается нормально, читаются с него данные.

Заранее спасибо за ответ

Серый форум — VBA: Не могу открыть порт Winsock

Re: VBA: Не могу открыть порт Winsock

VBA: Не могу открыть порт Winsock