VBScript
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
while(1)
WshShell.SendKeys("h")
WshShell.SendKeys("g")
WScript.Sleep(100)
Wend
немного улучшенная версия
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
while(1)
WshShell.SendKeys("h")
WScript.Sleep(100)
WshShell.SendKeys("g")
WScript.Sleep(100)
Wend
тут слип надо больше делать и пробел более послушный становится.
у меня выдаёт ошибку в первой строчке первым символом
Update: всё, разобрался. Надо в ANSI сохранять
вставить в текстовый файл все кроме vbscript, переименовать файл в runforestrun.vbs правой кнопкой - открыть в коммандной строке. какое окно выберешь - туда будут слаться клавиши
создаешь текстовый документ и копируешь все кроме первой строчки
меняешь у него расширение c txt на vbs
открываешь сайт и запускаешь файл
чтобы прекратить в диспетчере задач сними задачу Microsoft ® Windows Based Script Host
Смотри в какой раскладке играешь. если в русской то вот так работает:
Set WshShell = WScript.CreateObject("WScript.Shell")
while(1)
WshShell.SendKeys("р")
WScript.Sleep(100)
WshShell.SendKeys("п")
WScript.Sleep(100)
Wend
8787878787878787878787878787т8787878787о8787878787878787ж8787878787878787е87878787 87878787878787с878787878787а878787878787м87878787о8787878787е878787878787878787878787878787
в файл *.txt потом переименовать его в *.vbs далее запускаем и переходим на сайт с игрой. Чтобы выключить нужно в диспетчере задач завершить задачу Microsoft Visual Basic Script (название может отличаться)
#!/bin/bash
while [ true ]
do
xdotool key g
sleep 0.002
xdotool key h
sleep 0.002
done
Должен быть установлен xdotool
Тайны игры под топ коммент, если просто стоять вначале раунда не нажимая кнопки, начисляться очки, так же будут прибегать леди гаги и убегать навсегда, отличный способ избавления от них
соперники есть не во всех уровнях, надо читать где они есть и там не пользоваться, помоему нельзя пользоваться только где 1 соперник, а где много можно