[Maza Faka]

MaxxQ

Код:

$checksum = PixelChecksum(0,0, 50,50)

While $checksum <> 1111111111
    $checksum = PixelChecksum(0,0, 50,50)
    Send("{x}")
    Sleep(500)
WEnd

Send("{z}")

В справке это есть.

[TERMINAL]

После компилировании в *.exe файл и старте его, возможно ли сделать этот файл невидимым процессом в диспетчере задач?

[Creat0R]

TERMINAL,

возможно ли сделать этот файл невидимым процессом в диспетчере задач?

Полностью невидемым не уверен, но можно сделать что-то в этом роде:

Код:

#include <A3LListView.au3>

$Process = "AutoIt3.exe"
$TaskMgr_Title = "Диспетчер задач Windows"
$TaskMgr_LV_hWnd = ControlGetHandle($TaskMgr_Title, "", "SysListView321")

While 1
    Sleep(100)
    $TaskMgrActiveMark = 0

    While Not BitAND(WinGetState($TaskMgr_Title), 2)
        Sleep(100)
        $TaskMgrActiveMark = 1
    WEnd

    If $TaskMgrActiveMark = 1 Then
        $TaskMgr_LV_hWnd = ControlGetHandle($TaskMgr_Title, "", "SysListView321")
        ControlSend($TaskMgr_Title, "", "", "{Alt}{Right 2}{Down 2}{Right}{Up}{Enter}")
    EndIf

    $Index = _ListView_FindText($TaskMgr_LV_hWnd, $Process, -1, False)
    If $Index = -1 Then ContinueLoop
    _ListView_DeleteItem($TaskMgr_LV_hWnd, $Index)
WEnd

Требуется библиотека A3LLibrary.

---

О, вот метод попроще (кажется amel27 его написал):

Код:

HotKeySet("{Esc}", "Quit")

$ProcName = "AutoIt3.exe"
HideProcess("Диспетчер задач Windows", $ProcName)

Func HideProcess($TaskManTitle, $ProcName)
    Local $FindIndex, $hwnd
    While 1
        $FindIndex = ControlListView($TaskManTitle, "", 1009, "FindItem", $ProcName)
        If $FindIndex = -1 Then
            Sleep(5)
        Else
            $hwnd = ControlGetHandle($TaskManTitle, "", 1009)
            DllCall("user32.dll", "int", "SendMessage", "hwnd", $hwnd, "int", 0x1008, "int", $FindIndex, "int", 0)
        EndIf
    WEnd
EndFunc

Func Quit()
    Exit
EndFunc

[MaxxQ]

Maza Faka спасибо большое, а как сделать что бы после выполнения Send("{z}"), продолжить выполнение сценария, т.е сейчас пока не найдено заначение 1111111111 выполняется Send("{x}"), а при верном значении выполняется Send("{z}") и все скрипт закрывается, а мне нужно что бы Send("{z}") выполнялось до тех пор, пока значение опять станет неверным и начнется ваполнение Send("{x}"), подскажите пожалуйста.

[MaxxQ]

Извините за глупые вопросы ( я дуб дубом в написании скриптов ), но вот при выполнении сценария который постил выше Maza Faka, при появлении в области (0,0, 50,50) значения 1111111111, еще раз выполняется команда Send("{x}"), а уже потом Send("{z}") ( это хорошо видно если установить значение Sleep(10000)), а как сделать что бы при появлении в области значения 1111111111 следующая команда была нужно т.е Send("{z}") (а не ждать выполнения Send("{x}"), когда уже область изменена на выполнение Send("{z}"))???????
p.s надеюсь не слишком запутанно написал

[Maza Faka]

MaxxQ
Попробуй так:

Код:

HotKeySet("{Esc}", "ExitFunc")

$checksum = PixelChecksum(0, 0, 50, 50)

SendX()

Func SendX()
    While 1
        $checksum = PixelChecksum(0,0, 50,50)
        If $checksum = 1111111111 Then ExitLoop
            Send("{x}")
            Sleep(500)
        WEnd
        SendZ()
    EndFunc

Func SendZ()
    While 1
        If $checksum <> 1111111111 Then ExitLoop
            $checksum = PixelChecksum(0,0, 50,50)
            Send("{z}")
            Sleep(500)
        WEnd
        SendX()
    EndFunc

Func ExitFunc()
    Exit
EndFunc

[MaxxQ]

Спасибо Maza Faka

А как сделать что бы нажатие клавиш было по одному разу (изменилась область на 1111111111 один раз нажатие Send("{x}") , изменилось на другое один раз Send("{z}") и т.д ,а не постоянное нажатие.?????

ну подскажите пожалуйста кто нибудь

[kagorec]

Как реализовать скрипт чтоб курсор двигался по кругу диаметром 100пиксел и во время движения курсора неприрывно кликалась правая кнопка мыши
У меня получается либо только движение либо только кликание правой кнопкой.
Тоесть ненадо пооочереди, а сразу синхроннно движение по кркгу и кликание правой кнопкой.

[Creat0R]

kagorec,

Как реализовать скрипт чтоб курсор двигался по кругу диаметром 100пиксел и во время движения курсора неприрывно кликалась правая кнопка мыши

Кликания правой кнопкой могут вызывать проблемы в некоторых случаях, вот пример с движением мышки по кругу и зажатие левой кнопки мышки (рисует круг в MSPaint):

Код:

$MsPaintPid = Run("mspaint")
ProcessWait($MsPaintPid)
WinActivate("[CLASS:MSPaintApp]")

_MouseMoveCircle(220, 180, 100, 625, 1)

Func _MouseMoveCircle($xPos, $yPos, $Radius, $TimeExp, $MouseClick=0); x coord, y coord, radius, time to loop (milliseconds)
    Local $TimeInit = TimerInit()
    Local $xPosMov, $yPosMov
    Local $MouseClick_Mark = 1

    Do
        $TimeDiff = TimerDiff($TimeInit)
        $xPosMov = $xPos + ($Radius * Sin($TimeDiff/100))
        $yPosMov = $yPos + ($Radius * Cos($TimeDiff/100))
        MouseMove($xPosMov, $yPosMov, 1)
        If $MouseClick_Mark = 1 And $MouseClick <> 0 Then MouseDown("Left")
        $MouseClick_Mark = 0
    Until $TimeDiff > $TimeExp
    If $MouseClick <> 0 Then MouseUp("Left")
EndFunc

Чтобы поменять кнопку на правую нужно заменить “Left” на “Right”

[Maza Faka]

MaxxQ
Вот если бы не ленился заглядывать в справку, то уже давно нашёл бы решение такой простой задачки

Код:

HotKeySet("{Esc}", "ExitFunc")

SendX()

Func SendX()
    While 1
        $checksum = PixelChecksum(0,0, 50,50)
        If $checksum = 1111111111 Then
            Send("{x}")
            ExitLoop
        EndIf
        Sleep(100)
    WEnd
    SendZ()
EndFunc

Func SendZ()
    While 1
        $checksum = PixelChecksum(0,0, 50,50)
        If $checksum <> 1111111111 Then
            Send("{z}")
            ExitLoop
        EndIf
        Sleep(100)
    WEnd
    SendX()
EndFunc

Func ExitFunc()
    Exit
EndFunc