Форум QUIK [тема: автологин]

автологин

Wed, 25 Jul 2018 21:32:07 +0300

автологин w32 FindWindow в форуме Система QUIK.

====quote====
Валентин написал:
этот скрипт - шляпа старая. уже давно есть новее, лучше, быстрее. пишите в личные сообщения
=============
А есть еще новее? после обновления квика нужно первый раз пароль самому вводить и уже дальше скрипт подхватывает
25.07.2018 21:32:07, Артём.

автологин

Sun, 03 Apr 2016 02:34:48 +0300

автологин w32 FindWindow в форуме Система QUIK.
этот скрипт - шляпа старая. уже давно есть новее, лучше, быстрее. пишите в личные сообщения
03.04.2016 02:34:48, Валентин.

автологин

Sat, 02 Apr 2016 22:59:25 +0300

автологин w32 FindWindow в форуме Система QUIK.

02.04.2016 22:59:25, Артём.

автологин

Sat, 02 Apr 2016 21:59:09 +0300

автологин w32 FindWindow в форуме Система QUIK.

====quote====
Валентин написал:
====code====

  Set SH  =  CreateObject( "WScript.Shell" )
SH.Run  "info.exe" 
Set locator  =  CreateObject( "WbemScripting.SWbemLocator" )
Set service  =   locator.ConnectServer ()
Set props  =   service.ExecQuery ( "sel ect * fr om Win32_Process where name = 'info.exe'" )
 For  Each objProcess  in  props
    SH.AppActivate objProcess.ProcessId
Next
WScript.Sleep  5000 
SH.SendKeys  "пароль"  
SH.SendKeys  "{Enter}" 
WScript.Sleep  1000 
SH.SendKeys  "{Enter}" 
WScript.Sleep  1000 
SH.SendKeys  "пароль"  
SH.SendKeys  "{Enter}"

============= этот файл vbs кидается в папку с info.exe. сам vbs можно запускать каким нибудь планировщиком. (nncron, вин планировщик)
при первоначальном запуске скрипт вводит пароль, давит ентер, давит ентер на следующем окне, опять вводит пароль и давит ентер (у меня пароль надо вводить два раза).
собственно, вот.
=============
Что то у меня не вводит пароль, только запускает квик и выходит окошко: https://yadi.sk/i/zLhyi2fQqgno7
02.04.2016 21:59:09, Артём.

автологин

Tue, 08 Sep 2015 09:01:55 +0300

автологин w32 FindWindow в форуме Система QUIK.
====code====

Set SH = CreateObject("WScript.Shell")
SH.Run "info.exe"
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.ConnectServer()
Set props = service.ExecQuery("sel ect * fr om Win32_Process where name = 'info.exe'")
For Each objProcess in props
    SH.AppActivate objProcess.ProcessId
Next
WScript.Sleep 5000
SH.SendKeys "пароль" 
SH.SendKeys "{Enter}"
WScript.Sleep 1000
SH.SendKeys "{Enter}"
WScript.Sleep 1000
SH.SendKeys "пароль" 
SH.SendKeys "{Enter}"

автологин

Wed, 12 Aug 2015 13:34:26 +0300

автологин w32 FindWindow в форуме Система QUIK.

====quote====
Валентин пишет:
Здравствуйте. брокер китфинанс.
как сделать автоматический ввод пароля?
пробовал пользовать код http://quik2dde.ru/viewtopic.php?id=80 с использованием библиотеки w32, но не могу разобраться именами окон. как их определить?
соединение ssl-pro
титул окна (верхняя строка) SignalComSSLPro
ниже текст Введите пароль к секретному ключу

=============
Добрый день,

Рекомендуем ознакомиться с веткой форума, где рассматривалась данная тема:
http://forum-archive.quik.ru/forum/iwr/34416/
На данный момент готовых решений по автоматической авторизации предоставить не сможем.
12.08.2015 13:34:26, Stanislav Tvorogov.

автологин

Wed, 12 Aug 2015 07:25:33 +0300

автологин w32 FindWindow в форуме Система QUIK.
походу я не там тему создал, надо бы в Программирование на языке Lua
12.08.2015 07:25:33, Валентин.

автологин

Tue, 11 Aug 2015 16:43:41 +0300

автологин w32 FindWindow в форуме Система QUIK.
Здравствуйте. брокер китфинанс.
как сделать автоматический ввод пароля?
пробовал пользовать код http://quik2dde.ru/viewtopic.php?id=80 с использованием библиотеки w32, но не могу разобраться именами окон. как их определить?
соединение ssl-pro
титул окна (верхняя строка) SignalComSSLPro
ниже текст Введите пароль к секретному ключу
11.08.2015 16:43:41, Валентин.