проблемы с шифтом при использовании ControlSend

palub · 28 Окт 2013

Дорогие друзья, помогите пожалуйста с это функцией.
Проблема такова при частом использовании можно сказать отказывает шифт, и не позволяет писать нормально в другие программы.
Использую это

Код:

Opt("SendCapslockMode", 0)
Opt("SendKeyDownDelay", 2)

ибо если не использую то клавиатура вообще отказывает парой, а иногда пишет "ВоТ таК, Что ПОЛноСтью выбЕшИВаеТ"

Отправляю я {tab}, {F1} - {F12} очень часто, и в игру.
Не знаю уже к чему прибегнуть, для того чтобы избавится от этой проблемы.
Дам вам простенький скрипт, очень похожий на мой, и вы увидите что это такое.
После запуска попробуйте зажать шифт и написать что нибудь в скайп например. допустим напишите "*?*("*?№?:;);№:?:"

Код:

;ВНИМАНИЕ !!! ЕСЛИ НЕ ЗНАЕШЬ КАК ЭКСТРЕННО ОСТАНОВИТЬ СКРИПТ ТО НЕ ПЫТАЙСЯ ЕГО ЗАПУСТИТЬ !
Run('notepad.exe')

Global $WinHandle = WinWait("[CLASS:Notepad]", "", 5)

Func _1()
ControlSend($WinHandle, "", "Edit1", "{F5}")
ControlSend($WinHandle, "", "Edit1", "{tab}")
EndFunc

While 1
	_1()
	Sleep(1)
wend

Вот такие вот проблемы, уже у многих спрашивал как исправить, никто не сталкивался с подобным.
Но советуют как DLLCall, так и перейти с этого языка на другой.
Но DLLCall не удобен так как у меня используются от F1 до F12, а на другой язык переписывать около 3х тысяч строк кода (не включая библиотеки и стандартные функции) слишком долго и, извиняюсь, йобично.

Может быть кто-то знает как решить траблу ?

MnM · 28 Окт 2013

palub
Ну так увеличьте паузу, хотя я думаю врядли(или "врятли" как правильней :smile:

) поможет т.к. ControlSend() у меня перекрывает при работе еще и CapsLock, заставляя писать мелким шрифтом.

OffTopic:
Может "шифт" для темы сменить на shift а то на лету прочитал как "шрифт"

palub · 28 Окт 2013

В том то и дело что паузу увеличить не могу, иначе скрипт будет категорически медленный.
Подскажите через что отправлять F1-12 ? PostMessage, или MapVirtualKey ?
Да, и, MnM, прочти еще раз и внимательнее, я описал решение проблемы с капс локом. Но с шифтом незадача.

MnM · 28 Окт 2013

palub
Вот так получилось для блокнота

Код:

#include<WindowsConstants.au3>
Run("notepad.exe")
Global Const $vk_F5=0x74;Виртуальная клавиша для F5
Global $WinHandle = WinWait("[CLASS:Notepad]", "", 5)
Func _1()
	DllCall("user32.dll","bool","PostMessage","hwnd",ControlGetHandle("[class:Notepad]","",15),"uint",$wm_keydown,"wparam",$vk_F5,"lparam",0)
EndFunc
While 1
    _1()
    Sleep(1)
wend

Добавлено:
Сообщение автоматически объединено: 28 Окт 2013

С 1-го раза :D(Можно поздравить=) )
Ах да... PostMessage не выполняется когда клавиатура "занята"(т.е. на ней печатают) т.е. отправляет события в очередь

palub · 28 Окт 2013

MnM, уже нашел и попробовал данную вещь. В свернутое окно не отправляет.
Нужно чтобы отправило в свернутое окно.

MnM · 28 Окт 2013

palub
а окно обязательно свертывать его нельзя "ужать" при помощи WinMove()?

palub · 28 Окт 2013

MnM [?]

alubа окно обязательно свертывать его нельзя "ужать" при помощи WinMove()?

Нет не проще, бот распостроняется по людям, а игра (ммо рпг для которого предусмотрен бот) сама по себе предусматривает функцию сворачивания.... так что WinMove мне не подходит

InnI · 28 Окт 2013

palub [?]

В свернутое окно не отправляет.

А как вы это определили? Отправили F5 свёрнутому блокноту? Так он и на ControlSend() не реагирует...

C2H5OH · 28 Окт 2013

Не знаю почему, но Yashed исключил _WinAPI_GetAsyncKeyState из WinAPIex.au3 :(
Поэтому берём DllCall

Код:

Opt("SendCapslockMode", 0)
Opt("SendKeyDownDelay", 2)

HotKeySet("{ESC}", "Terminate");выход

Func Terminate()
    Exit
EndFunc

Run('notepad.exe')

Global $WinHandle = WinWait("[CLASS:Notepad]", "", 5)

Func _1()
$Ret = DllCall('user32.dll', 'short', 'GetAsyncKeyState', 'int', 0x10) 
If Not BitAND($Ret[0], 0x8001) Then  ; а здесь мог бы быть _WinAPI_GetAsyncKeyState(0x10)
	ControlSend($WinHandle, "", "Edit1", "{SHIFTDOWN}{F5}")
	ControlSend($WinHandle, "", "Edit1", "{SHIFTDOWN}{tab}")
Else
	ControlSend($WinHandle, "", "Edit1", "{F5}")
	ControlSend($WinHandle, "", "Edit1", "{tab}")
EndIf

EndFunc

While 1
	_1()
    Sleep(10)
wend

И, кстати, palub, уже обсуждалось на форуме, минимальное значение для Sleep - 10. Если указывать меньше, то будет всё равно 10.

И, да - блокнот неудачный объект для тестирования. Из-за того как он обрабатывает F5. Но мы же решаем проблему с Shift, а не с F5.
;D

InnI · 28 Окт 2013

C2H5OH [?]

исключил _WinAPI_GetAsyncKeyState из WinAPIex.au3

Вероятно потому, что в версии 3.3.8.0 эта функция находится в WinAPI.au3 ;)

palub · 28 Окт 2013

C2H5OH, за ответ спасибо, о снова не походит. Игра игнорирует "{SHIFTDOWN}{F5}", если бы так было можно то давно принял в вооружение. Так что мой последний вариант (как безысходность) это DllCall.
Мне предложили код Delpfi, он рабочий, кто сможет перевести это на автоит ?

Код:

procedure PostKeyboardEvent(H_: HWND; KeyKode, State: integer);
var
  Temp: TInput;
begin
  Temp.IType := INPUT_KEYBOARD;
  Temp.ki.time := 0;
  Temp.ki.dwExtraInfo := cardinal(nil);
  Temp.ki.wVk := KeyKode and $FF;
  Temp.ki.wScan := MapVirtualKey(KeyKode, 0) and $FF;
  Temp.ki.dwFlags := STATE;
  SendInput(1, Temp, SizeOf(Temp));
  Sleep(50);
  SendMessage(H_, WM_LBUTTONDOWN, 0, 0);
  Sleep(50);
  SendMessage(H_, WM_LBUTTONUP, 0, 0);
end;

lirikmel · 29 Окт 2013

есть же еще варианты http://autoit-script.ru/index.php/topic,4920.msg35618.html#msg35618 стоит попробывать

C2H5OH · 29 Окт 2013

не походит. Игра игнорирует "{SHIFTDOWN}{F5}"

Ну, вариант

Код:

If Not BitAND($Ret[0], 0x8001) Then  
	ControlSend($WinHandle, "", "Edit1", "{F5}")
	ControlSend($WinHandle, "", "Edit1", "{SHIFTDOWN}")
	ControlSend($WinHandle, "", "Edit1", "{tab}")
	ControlSend($WinHandle, "", "Edit1", "{SHIFTDOWN}")

тоже не вызывает заявленной проблемы с Shift.
;D

Автор темы	Похожие темы	Форум	Ответы	Дата
B	Проблемы поиска картинки в WIN 10	Общие вопросы по AutoIt	7	14 Июн 2023
T	Проблемы с UIAutomate	UDF - Пользовательские функции	12	16 Май 2023
W	Переключение раскладки для решения проблемы Send	Общие вопросы по AutoIt	7	9 Мар 2023
Y	Проблемы работы с COM-портом	Общие вопросы по AutoIt	6	4 Фев 2021
	Проблемы с GraphGDIPlus	GUI - Графический интерфейс пользователя	11	6 Янв 2021

Поиск

Поиск

проблемы с шифтом при использовании ControlSend

palub

Новичок

MnM

Post-Hardcore

palub

Новичок

MnM

Post-Hardcore

palub

Новичок

MnM

Post-Hardcore

palub

Новичок

InnI

AutoIT Гуру

C2H5OH

AutoIT Гуру

InnI

AutoIT Гуру

palub

Новичок

lirikmel

Продвинутый

C2H5OH

AutoIT Гуру