[решено] Как написать автоматический кликер

Creat0R · Конфигурация компьютера

Напишите мне в ПМ вменяемое название темы, или переименуйте ту что в форуме тестирования. Иначе придётся удалять. Как именовать темы написано тут.

xoxol777 · Отправлено: **19:58, 17-08-2009** | #3

да емае чем опять вам не нравится название темы??? я просто хочу чтоб мне кто-то помог... если хотите сами придумайте ей название...

Iska · Отправлено: **20:00, 17-08-2009** | #4

Creat0R, искренне сочувствую…

Creat0R · Конфигурация компьютера

Цитата xoxol777:

я просто хочу чтоб мне кто-то помог »

Если действительно хотите помощи, наберитесь терпения и прочтите правила, потому что лично моё терпение, заканчивается...

Цитата xoxol777:

если хотите сами придумайте ей название... »

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

xoxol777 · Отправлено: **20:12, 17-08-2009** | #6

Цитата Creat0R:

Это ваша проблема, и вам придумывать название - Нет, я конечно мог бы и придумать (если бы меня вежливо попросили), но когда в меня вот так бросают словами с указательным тоном, и скидывают на меня ответственность, у меня что-то пропадает желание это делать. »

прошу прощения за свой тон...
если вас не затруднит сделайте подходящее название темы. зарание благодарен

Creat0R · Конфигурация компьютера

Цитата xoxol777:

1)когда нажимаешь на mouse3(кнопка ролика) срабатывала комбинация клавиш "1","2","3" и между 1,2(~60ms) между 2,3(~65ms) »

Код:

#include <Misc.au3>

$hDll = DllOpen("User32.dll")

While 1
    If _IsPressed(04, $hDll) Then
        Send("1")
        Sleep(60)
        Send("2")
        Sleep(65)
        Send("3")
    EndIf

    Sleep(10)
WEnd

Цитата xoxol777:

2)например запуск f5 начинается кликанье клавиши "E" со скоростью (1мс) ну и f6 остановить кликанье... »

Код:

Opt("SendKeyDelay", 0)

Global $iClick = 0

HotKeySet("{ESC}", "_Exit_Proc")

HotKeySet("{F5}", "_Click_Proc")
HotKeySet("{F6}", "_Click_Proc")

While 1
    Sleep(10)
WEnd

Func _Click_Proc()
    Switch @HotKeyPressed
        Case "{F5}"
            $iClick = 1
        Case "{F6}"
            $iClick = 0
    EndSwitch

    While $iClick
        Send("e")
        Sleep(1)
    WEnd
EndFunc

Func _Exit_Proc()
    Exit
EndFunc

Medic84 · Отправлено: **21:50, 17-08-2009** | #8

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

xoxol777 · Отправлено: **00:53, 18-08-2009** | #9

Creat0R, большое спасибо очень признателен

Medic84, можно после проверки подобрать подходящее время но если поставить самый малый интервал времени оно будет кликаться как только может)

Belfigor · Отправлено: **01:48, 18-08-2009** | #10

xoxol777, нет, кликать оно будет не как только может, оно будет отправлять запросы один за другим, а вот обрабатываться будут они не все а только те которые процессор успеет обработать. Только вот запросов от этого меньше не станет, приходить будет одно количество, обрабатываться будет другое. В результате кому-то будет плохо