Автозаполнение логина и пароля в терминал Quik

— Автологин терминала QUIK
— © qui2dde.ru/
— Версия: 1.0
ScriptPath = getScriptPath()
package.cpath = ScriptPath.."\\w32.dll;"
local w32 = require(«w32»)

— логин и пароль для терминала
QUIK_LOGIN = "*****"
QUIK_PASSW = "*****"

function FindLoginWindow()
hLoginWnd = w32.FindWindow("", «Идентификация пользователя»)
if hLoginWnd == 0 then
hLoginWnd = w32.FindWindow("", «User identification»)
end
return hLoginWnd
end

timeout = 1000 — таймаут между попытками поиска окна логина
is_run = true

function OnStop()
timeout = 1
is_run = false
end

function main()
while is_run do
sleep(timeout)

if isConnected() == 0 then

local hLoginWnd = FindLoginWindow()
if hLoginWnd ~= 0 then

local hLogin = w32.FindWindowEx(hLoginWnd, 0, "", "")
local nPassw = w32.FindWindowEx(hLoginWnd, hLogin, "", "")
local nBtnOk = w32.FindWindowEx(hLoginWnd, nPassw, "", "")

w32.SetWindowText(hLogin, QUIK_LOGIN)
w32.SetWindowText(nPassw, QUIK_PASSW)

w32.SetFocus(nBtnOk)
w32.PostMessage(nBtnOk, w32.BM_CLICK, 0, 0)

— else
— message(«окно не найдено», 1);
end
end

end
end