— логин и пароль для терминала
QUIK_LOGIN = "*****"
QUIK_PASSW = "*****"
function FindLoginWindow()
hLoginWnd = w32.FindWindow("", «Идентификация пользователя»)
if hLoginWnd == 0 then
hLoginWnd = w32.FindWindow("", «User identification»)
end
return hLoginWnd
end
Eugenio, пользовался им в Открывашке два года… нареканий нет… Сейчас пришлось переходить к другому брокеру все переустановил работает!..
Сами думайте… бояться или нет.
Вот исходник на Lua для 6-го Квика.
— Автологин терминала 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
Сами думайте… бояться или нет.