автологин

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

Рекомендуем ознакомиться с веткой форума, где рассматривалась данная тема:
http://forum-archive.quik.ru/forum/iwr/34416/
На данный момент готовых решений по автоматической авторизации предоставить не сможем.
 
Код
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, вин планировщик)
при первоначальном запуске скрипт вводит пароль, давит ентер, давит ентер на следующем окне, опять вводит пароль и давит ентер (у меня пароль надо вводить два раза).
собственно, вот.
 
Цитата
Валентин написал:
Код
  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
 
 
этот скрипт - шляпа старая. уже давно есть новее, лучше, быстрее. пишите в личные сообщения
 
Цитата
Валентин написал:
этот скрипт - шляпа старая. уже давно есть новее, лучше, быстрее. пишите в личные сообщения
А есть еще новее? после обновления квика нужно первый раз пароль самому вводить и уже дальше скрипт подхватывает
Страницы: 1
Читают тему
Наверх