Как слушать порт сайта с LotusScript ?

[seoman2]

Есть кнопка на LotusScript , которая обращается на

Ссылка скрыта от гостей

Если порт не занят, то всё ок.
Если занят, то надо обращаться на

Ссылка скрыта от гостей

, или послать

Ссылка скрыта от гостей

...

Вот думаю, как это реализовать...
С помощью WScript.Shell ?

 

[lmike]

С помощью WScript.Shell ?

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

 

[Mikle_GB]

Есть кнопка на LotusScript , которая обращается на

Ссылка скрыта от гостей

Если порт не занят, то всё ок.
Если занят, то надо обращаться на

Ссылка скрыта от гостей

, или послать

Ссылка скрыта от гостей

...
Вот думаю, как это реализовать...
С помощью WScript.Shell ?

Вы, пардон, понимаете разницу между 1)"слушать порт" и "обращаться к порту"; 2)lotus script и visual basic?
Слушать - это значит получать обращения. WScript - это объект vb, в лотусе его не найдёте.
Что значит "обращается" - тоже непонятно: просто убедиться, что порт кто-то слушает, или послать некие запросы и получить некие ответы.
Единственное понятное - что такое "занят порт": скорее всего, подразумевается что-то вроде "не получил ответа от слушателя порта" или "ошибка при открытии сокета".

 

[seoman2]

        Dim objHTTP
        Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
        objHTTP.Open "GET", "http://127.0.0.1:9999/exit", False
        Call objHTTP.setRequestHeader ("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
        objHTTP.Send

Отрабатывает как надо, но возвращает ошибку.
Вот думаю, как бы узнать код ошибки?
Print "Ошибка " & Error(Err) & " в строке " & Erl не дает кода ошидбки.
А если без принта, то окошко "winhttp.winhttprequest соединение с сервером было неожиданно прервано код ошибки".

На яве я не пишу ((

 

[savl]

@seoman2 ну если продолжать через COM, то попробуйте так:
Print "Ошибка " & objHTTP.GetLastError

+

Ссылка скрыта от гостей

 

[lmike]

@savl ох и надолбался я с этим "WinHttp.WinHttpRequest.5.1"
там много нюансов при обработке ошибок
долбался и в хехеле (парсил ХМЛ) и в autoIT, проще java выучить
таймауты плохо-управляемы...
асинхронности, понятно, не получим
с заголовками и параметрами - поход "по минному полю"

 

[savl]

@lmike угу, но видимо нет возможности/времени/желания сделать иначе у ТС.

 

[seoman2]

objHTTP.GetLastError

instance member GetLastError не существует ((

Остается с лотус скрипта запустить ява агент, который выполнит нужную мне команду?

 

[garrick]

...На яве я не пишу ((

Всё равно когда-нибудь придётся. Может уже начать?

 

[lionk]

стается с лотус скрипта запустить ява агент, который выполнит нужную мне команду?

в лотус скрипте можно вызывать метоты Java либ.
разберись с одной либой Net и не строй монстроподобных конструкций.