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

S

seoman2

Lotus team
17.02.2010
480
1
Есть кнопка на LotusScript , которая обращается на
Если порт не занят, то всё ок.
Если занят, то надо обращаться на , или послать ...

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

Mikle_GB

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

seoman2

Lotus team
17.02.2010
480
1
Код:
        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

savl

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

+
 
lmike

lmike

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

savl

Lotus team
28.10.2011
2 249
136
@lmike угу, но видимо нет возможности/времени/желания сделать иначе у ТС.
 
L

lionk

стается с лотус скрипта запустить ява агент, который выполнит нужную мне команду?
в лотус скрипте можно вызывать метоты Java либ.
разберись с одной либой Net и не строй монстроподобных конструкций.
 
Мы в соцсетях:  ТелеграмВконтактеДзенФейсбукТвиттерЮтуб