[Мышь, клавиатура] Как зажать пробел?

[Фазинур]

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

 

[firex]

Фазинур [?]

как отсутствие какого либо инфы в справке насчет зажимания

 

[Фазинур]

Ну так, Зажимаение клавиш есть а таких клавиш как пробел, интер нету.

 

[edyapd]

Send("{SPACE DOWN}")

А так? Не пойдёт?

 

[Фазинур]

К сожалению не зажимает.

 

[edyapd]

Можно попробовать

Opt("SendKeyDownDelay", 1)     ;1 миллисекунда

меняя задержку. Но это будет относится ко всем отправляемым Send.

 

[C2H5OH]

У меня вообще то и вот так не зажимает

Send("{a down}")
Sleep(5000)
Send("{a up}")

Вы уверены что проблема именно в пробеле?


Добавлено:

Сообщение автоматически объединено: 28 Ноя 2014

И вот так тоже не зажимает...

PressVK(0x41)
Sleep(5000)

Func PressVK($vcode)
    DllCall("user32.dll","int","keybd_event","int",$vcode,"int",0,"long",0,"long",0) ; нажать
    ;DllCall("user32.dll","int","keybd_event","int",$vcode,"int",0,"long",2,"long",0) ; отпустить
EndFunc

 

[InnI]

C2H5OH [?]

вот так не зажимает

Ответ #14

 

[C2H5OH]

InnI
ну, классно.
Но проведённый эксперимент просто показывает что текстовый редактор не подходит для опытов.
А на чём тогда из стандартных заманух Windows можно тренироваться?
(вариант поставить игрушку какую-нибудь не подходит)

 

[InnI]

C2H5OH [?]

из стандартных заманух Windows

Не знаю, не интересовался.

Фазинур [?]

цикл с отправкой SPACE не подойдет

Когда вы "зажимаете" на клавиатуре клавишу, контроллер клавиатуры каждые 30мс генерирует нажатие-отпускание этой клавиши. Это то же самое, как эту клавишу в цикле отправлять.

 

[Фазинур]

А в бесконечном цикле тоже задержка между посылкой команды дает 30мс? И вообще у каждой клавы 30мс? Или у всех по разному?

 

[InnI]

Фазинур [?]

задержка между посылкой команды

В цикле вы сами можете регулировать различные задержки. К вашим услугам

Opt("SendKeyDelay", nn)
Opt("SendKeyDownDelay", nn)
Sleep(nn)

у каждой клавы

Данная настройка прописывается в реестре "HKEY_CURRENT_USER\Control Panel\Keyboard", параметр "KeyboardSpeed".

 

[Фазинур]

Фазинур [?]

задержка между посылкой команды

В цикле вы сами можете регулировать различные задержки. К вашим услугам

Opt("SendKeyDelay", nn)
Opt("SendKeyDownDelay", nn)
Sleep(nn)

у каждой клавы

Данная настройка прописывается в реестре "HKEY_CURRENT_USER\Control Panel\Keyboard", параметр "KeyboardSpeed".

Так бот не спалится?

while 1=1
sleep(30)
send("{SPACE}")
wend

 

[InnI]

Фазинур [?]

Так бот не спалится?

Я не знаю. Я в защитах игр не разбираюсь.

 

[Yashied]

Так бот не спалится?

Делайте рандомные задержки, как-то так:

#Include <WinAPIEx.au3>

...

While 1
	_WinAPI_Keybd_Event(0x20, 0x00) ; Нажать пробел
	_Delay(Random(20, 40, 1)) ; Задержка 20-40 мс
	_WinAPI_Keybd_Event(0x20, 0x02) ; Отжать пробел
	_Delay(Random(20, 40, 1)) ; Задержка 20-40 мс
WEnd

Func _Delay($iDelay)
	Local $Timer = TimerInit()
	While TimerDiff($Timer) <= $iDelay
		; Nothing
	WEnd
EndFunc   ;==>_Delay

 

[alex33]

Или так:

While 1
 Sleep(Random(30, 90, 1)) ; задержка от 30 до 90 мс
 Send("{SPACE}")
WEnd