[Endr]

Creat0R, указал рабочую папку и запустился VBS-скрипт. Спасибо!

[Maza Faka]

Creat0R
Привет! Не поможешь?
Никак не получается убить процесс средствами WinAPI

Код:

#include <Array.au3>

Process_Kill("totalcmd.exe")

Func Process_Kill($sProc)
    Local $ProcHandle
    Local $ProcessPid = ProcessExists($sProc)
    If $ProcessPid = 0 Then
        MsgBox(16, "Error", "Process " & $sProc & " not exist")
        Return SetError(1)
    EndIf

    $ProcHandle = DllCall("kernel32.dll", "hwnd", "OpenProcess", "dword", BitOR(0x0400, 0x0004), "int", 0, "dword", $ProcessPid)

    If $ProcHandle[0] = 0 Then
        MsgBox(16, "Error", "Process " & $sProc & " not exist")
        Return SetError(1)
    EndIf

    $ProcHandle = $ProcHandle[0]

    $ProcTerminate = DllCall("kernel32.dll", "int", "TerminateProcess", "hwnd", $ProcHandle, "uint", "?")

    $CloseHandle = DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $ProcHandle)
    ConsoleWrite("@@ (6) : " & $CloseHandle[0] & "       ")
EndFunc

В выделенной строке в место параметра "?", надо вставить

uExitCode The exit code to be used by the process and threads terminated as a result of this call. Use the GetExitCodeProcess [ http://msdn2.microsoft.com/en-us/lib...,printer).aspx ] function to retrieve a process's exit value. Use the GetExitCodeThread [ http://msdn2.microsoft.com/en-us/lib...,printer).aspx ] function to retrieve a thread's exit value.

GetExitCodeProcess Function Retrieves the termination status of the specified process. BOOL WINAPI GetExitCodeProcess( __in HANDLE hProcess, __out LPDWORD lpExitCode ); Parameters hProcess A handle to the process. The handle must have the PROCESS_QUERY_INFORMATION access right. For more information, see Process Security and Access Rights [ http://msdn2.microsoft.com/en-us/lib...,printer).aspx ] . lpExitCode A pointer to a variable to receive the process termination status. If the specified process has not terminated and the function succeeds, the status is STILL_ACTIVE.

Как я понял нужно создать структуру Dll, а вот как её создать?

[Creat0R]

Maza Faka,

В выделенной строке в место параметра "?", надо вставить

Там должен быть код (по сути ptr - указатель) выхода от GetExitCodeProcess ... если я не ошибаюсь... у меня тоже не получается заставить это работать, либо скрипт крушится, либо процесс не убивается. DLL-о-писание видимо будет доходить (до меня по крайней мере) долго, т.к мануалов по этой теме вроде нету, я имею в виду именно для использования в AutoIt, а так приходится включать интуицию/способности "тыкания" .

На оф. форуме решения тоже нет, там ссылаются на C/C++, а на AutoIt перевести видимо ленятся

[Maza Faka]

Creat0R

Там должен быть код (по сути ptr - указатель) выхода от GetExitCodeProcess

Это понятно, что нужно указать pointer, а вот как его создать? (amel27 где ты гуру?)

а так приходится включать интуицию/способности "тыкания"

Вот-вот, всё утро на это убил...

P.S.
Если вдруг наткнёшься на решение, сообщи пожалуйста.

[Maza Faka]

Ура! Нашёл, вернее указали на ошибку. А ошибочное значение из недобросовестного ресурса, уже не помню какого.

[Creat0R]

Функция возвращает пронумерованный список всех классов определённого окна:

Код:

Func _WinGetNumeratedClassList($sTitle)
    Local $sClassList = WinGetClassList($sTitle)
    Local $aClassList = StringSplit($sClassList, @LF)
    Local $sRetClassList = "", $sHold_List = "|"
    Local $aiInHold, $iInHold

    For $i = 1 To UBound($aClassList) - 1
        If $aClassList[$i] = "" Then ContinueLoop

        If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
            $aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
            $iInHold = Number($aiInHold[UBound($aiInHold)-1])

            If $iInHold = 0 Then $iInHold += 1

            $aClassList[$i] &= "~" & $iInHold + 1
            $sHold_List &= $aClassList[$i] & "|"

            $sRetClassList &= $aClassList[$i] & @LF
        Else
            $aClassList[$i] &= "~1"
            $sHold_List &= $aClassList[$i] & "|"
            $sRetClassList &= $aClassList[$i] & @LF
        EndIf
    Next

    Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
EndFunc

[Creat0R]

amel27,

Не удаётся в новой версии AutoIt 3.2.10.0 переделать самопальную функцию _FileSelectFolder() - хотел избавиться от CallBack UDF'ов, соответственно использовать встроенные функции, но при запуске скрипт намертво виснит, диалога невидно вовсе

Я заменил...

_DllCallBack($sCallbackProc,'hwnd;uint;long;ptr')

на

DllCallBackRegister($sCallbackProc, 'int', 'hwnd;uint;long;ptr')

А также _DllCallBack_Free на DllCallBackFree

И убрал все UDF'ы/переменные/константы от библиотеки CallBack, но видимо нужно что-то ещё править, подскажи плиз что именно, у меня многие скрипты используют эту функцию, я затрудняюсь теперь пересесть на новую версию .

[МИШАНЧИК]

Никто не пробовал написать скрипт для Nero 8? А то втихую не получается, требует перезагрузку даже при включенном автоматическом обновлении. Может кто попробует, у кого время есть?
Заранее спасибо!

[kagorec]

Хорошо пополняются посты в этом топике

Помогите реализовать корректно работающий скрипт с тикими требованиями:
Лечилка для одной RPG игры. Все происходит в разрешении 1024х786

1. В определенных координатах если изменился цвет, то нажимание клавиши Q происходит с интервалом 0.5 секунды пока невернется снова красный цвет (q клавиша это пить баночки жизьни). И в это же самое время нажимать клавишу E (e элексир силы)
2. Очень важно чтоб при этом была всегда зажата правая кнопка мышки (почемуто у меня никак неполучается реализовать в действии с другими командами)
3. Как реализовать чтоб работало внезависимости если 32 бит или 16 цвет?

Поискал по форуму здесь и на офф. сайте вот нашел скрипт но в нем часть задумки реализована. Кстати он неработает тоесть не нажимает на кнопки.

PHP код:

Opt("WinTitleMatchMode", 1)



HotKeySet("{F5}", "Start")



While 1

    Sleep(10)

WEnd



Func Start()

        MsgBox(0,"","Start() triggered")

        $left = PixelChecksum(380, 420, 400, 400)

        ConsoleWrite($left & @CRLF)

        $down = PixelChecksum(450, 420, 470, 400)

        ConsoleWrite($down & @CRLF)

        $up = PixelChecksum(520, 420, 535, 410)

        ConsoleWrite($up & @CRLF)

        $right = PixelChecksum(590, 415, 585, 400)

        ConsoleWrite($right & @CRLF)

    While 1  

        If $left <> PixelChecksum(380, 420, 400, 400) Then Send("q")

        If $down <> PixelChecksum(450, 420, 470, 400) Then Send("e")

        If $up <> PixelChecksum(520, 420, 535, 410) Then Send("w")

        If $right <> PixelChecksum(590, 415, 585, 400) Then Send("t")

    WEnd

EndFunc 

[Maza Faka]

kagorec
С Новым Годом!

1. В определенных координатах если изменился цвет, то нажимание клавиши Q происходит с интервалом 0.5 секунды пока невернется снова красный цвет (q клавиша это пить баночки жизьни). И в это же самое время нажимать клавишу E (e элексир силы)

В принципе написать такой скрипт несложно, в топике есть примеры.

2. Очень важно чтоб при этом была всегда зажата правая кнопка мышки (почемуто у меня никак неполучается реализовать в действии с другими командами)

Смотри в справке MouseDown()

3. Как реализовать чтоб работало внезависимости если 32 бит или 16 цвет?

Можно после запуска игры определять глубину цвета рабочего стола @DesktopDepth и в зависимости от результата передавать значение в функцию.