Серый форум — AHK: ControlSend

Re: AHK: ControlSend

null@example.com (inseption86) — Tue, 29 Oct 2019 09:31:33 +0000

stealzy
Появилась новая проблема, на моём ПК всё ровно, на другом (Win 8.1) "Edit1" меняется, но в итоге (после клика на сохранить) имя файла остаётся неизменным (имя - по умолчанию)

Re: AHK: ControlSend

null@example.com (inseption86) — Tue, 29 Oct 2019 05:42:59 +0000

stealzy

Спасибо! Помогло ControlGetText вместо ControlSend


#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force 

^RButton::

Menu, MyMenu, Add, Анкета, Anketa
Menu, MyMenu, Show  
return

anketa:
ControlGetText, text, ToolbarWindow324, ahk_class #32770
text := RegExReplace(text, ".+\\(.+)\.*.{0}", "$1")

ControlSetText, Edit1,Анкета. %text%., ahk_class #32770
return

Re: AHK: ControlSend

null@example.com (stealzy) — Mon, 28 Oct 2019 22:03:56 +0000

Доброй ночи, пож-та: зажать CapsLock, поменять SendMode, ControlSend заменить на Send, ControlSend заменить на ControlSetText, обновить версию AHK.
По окончании испытаний присылайте ваш отчет.

AHK: ControlSend

null@example.com (inseption86) — Mon, 28 Oct 2019 15:08:40 +0000

Добрый день! Подскажите пож-та, если стоит русская раскладка, то получается "аНкета. сМирнов а,", если на анг., то всё ок "Анкета. Смирнов А." Стоит win8.1, на win7 на обоих языках без проблем. Заранее спасибо!


#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force 

^RButton::

Menu, MyMenu, Add, Анкета, Anketa
Menu, MyMenu, Show  
return

anketa:
ControlGetText, text, ToolbarWindow324, ahk_class #32770
msgbox % text ; "Адрес: С:\Test\28.10.2019\Смирнов А"

text := RegExReplace(text, ".+\\(.+)\.*.{0}", "$1")
msgbox % text ; "Смирнов А"

ControlSetText Edit1,, ahk_class #32770
ControlSend, Edit1,Анкета. %text%., ahk_class #32770 
return