[Maza Faka]

HORRIBLE
Creat0R

Нашёл таки, как

вернуть список запущенных процессов ПОЛЬЗОВАТЕЛЕМ

Код:

#include <Array.au3> ; Нужно только для фунции _ArrayShow()  :)

$aOwnerList = _ProcessOwnerList() ; получаем список всех процессов и их владельцев
_ArrayDisplay($aOwnerList, "List of processes owner`s")

$aProcOwner = _ProcessGetOwner(@UserName) ; а здесь получаем список всех процессов и их владельцев
                                          ; +и создаём новый на основе имени пользователя
_ArrayDisplay($aProcOwner, "List of processes owner by " & @UserName)

Func _ProcessOwnerList()
    Local $objWMIService, $colProcessList, $objProcess, $iUser, $aList[1][2]

    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
    $colProcessList = $objWMIService.ExecQuery("Select * from Win32_Process")

    For $objProcess In $colProcessList
        $colProperties = $objProcess.GetOwner($iUser)

        If $colProperties <> 0 Then ContinueLoop

        $aList[0][0] += 1
        ReDim $aList[$aList[0][0] + 1][2]
        $aList[$aList[0][0]][0] = $objProcess.Name
        $aList[$aList[0][0]][1] = $iUser
    Next

    If UBound($aList) = 1 Then Return SetError(1, 0, 0)

    Return $aList
EndFunc

Func _ProcessGetOwner($sUser)
    Local $aOwnerList = _ProcessOwnerList()
    If @error Then Return SetError(1, 0, 0)

    Local $aUserProc[1][2], $i

    For $i = 1 To $aOwnerList[0][0]
        If $aOwnerList[$i][1] = $sUser Then
            $aUserProc[0][0] += 1
            ReDim $aUserProc[$aUserProc[0][0] + 1][2]
            $aUserProc[$aUserProc[0][0]][0] = $aOwnerList[$i][0]
            $aUserProc[$aUserProc[0][0]][1] = $aOwnerList[$i][1]
        EndIf
    Next

    If UBound($aUserProc) = 1 Then Return SetError(2, 0, 0)
    Return $aUserProc
EndFunc

[ARBUZ]

Люди!! кто разбирается в скриптах!! помогите сделать скрипт который автоматом будет создавать PPPoE соеденение!! плиз!! очень очень нуна!!!!

[SyDr]

Func DOWNKEY()
$D = $D + 1
Send("{DOWN DOWN}")
$D = $D - 1
if $D < 1 then Send("{DOWN UP}")
EndFunc

Как с помощью HotkeySet реализовать зажимание клавиши и отпускание клавиши?
То есть: я зажал на клавиатуре W - игра думает, что я зажал вверх. Отпустил - отпустил вверх.
1) Пока получается сделать только так, что игруха реагирует на это, как будто я постоянно клацаю вверх.

2) Подержал допустим секунд 10. Отпустил. AutoIt ещё какое-то время обрабатывает и отсылает нажатия.

[SyDr]

ARBUZ, тебе случаем не rasphone.exe нужно?
Запуск: rasphone.exe -d <Имя подключения>.
Только нужно, чтобы галочка Сохранять имя пользователя и пароль была отмечена (или вводить придётся).

Вот скрипт:

Run ("rasphone.exe -d <Имя подключения>")
WinWait("Подключение")
ControlSend("Подключение","<Кусок текста из окна>",1590,"{ENTER}")

Только лучше больше информации "впихивать". Т.е. не Подключение, а Подключение: GUEST


Аа... Понял. Тебе настройка соединения нужна.
Напиши, какие настройки нужно указывать, а то мало ли.
То есть такой код у меня спокойно работает:

Код:

Run ("rasphone.exe")
WinWait("Сетевые подключения")
ControlClick("Сетевые подключения","",1459)
WinWaitActive("Мастер новых подключений")
ControlClick("Мастер новых подключений","",1491)
ControlClick("Мастер новых подключений","",12324)
ControlSend("Мастер новых подключений","",1114,"<Имя подключения>")
ControlClick("Мастер новых подключений","",12325)
WinWaitActive("Сетевые подключения")
ControlClick("Сетевые подключения","",1449)
WinWaitActive("Подключение: <Имя подключения>")
ControlSend("Подключение: <Имя подключения>","",1104,"<Имя пользователя>")
ControlSend("Подключение: <Имя подключения>","",1103,"<Пароль пользователя>")
ControlClick("Подключение: <Имя подключения>","",1101)
ControlClick("Подключение: <Имя подключения>","",1623)
ControlClick("Подключение: <Имя подключения>","",1590)

[ARBUZ]

подскажите еще ммомент, когда подключение уже создалось, как сделать что бы еще и настраивались свойства безопасности????

[SyDr]

Run ("rasphone.exe")
WinWait("Сетевые подключения")
ControlClick("Сетевые подключения","",1459)
WinWaitActive("Мастер новых подключений")
ControlClick("Мастер новых подключений","",1491)
ControlClick("Мастер новых подключений","",12324)
ControlSend("Мастер новых подключений","",1114,"<Имя подключения>")
ControlClick("Мастер новых подключений","",12325)
WinWaitActive("Сетевые подключения")

ControlClick("Сетевые подключения","",1460) ;клик по свойствам
WinWaitActive("<Имя подключения> Свойства");ждём активности окна
ControlCommand ( "<Имя подключения> Свойства", "", 12320, "TABRIGHT","");перемещаемся на вкладку
ControlCommand ( "<Имя подключения> Свойства", "", 12320, "TABRIGHT","");безопасность

Далее всё, как обычно. ControlClick, ControlSend
Выбор из выпадающего списка - ControlCommand ( "<Имя подключения> Свойства", "", 12320, "SetCurrentSelection","<текст пункта выпадающего списка>");

Узнать ID отдельных элементов можно с помощью Au3Info.exe

Кстати, все настройки (кроме имени пользователя и пароля) хранятся в
C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk

[ARBUZ]

слушай Sylver Dragon можешь мне в аську написать??? я вижу ты понимаешь у меня есть пару вопросиков. 6584016

[Maksimkama]

Первый раз запустил AutoIt запустил пример из папки examples и сразу возник вопрос есть скрипт notepad1.au3 почему он не хотел у меня набирать текст я понял, название окошка у меня на русском а там на английском. Но затем я немогу осуществить выход из блокнота, т.к. немогу послать !ф и ы для выхода. Помему то скрипт в этом случае русские буквы передаёт как ôû "ô" это ф и "û" это ы. Соответсвенно он их пишет в поле ввода текста, и всё. не пашет таким образом.

[Maza Faka]

Maksimkama
В шапке есть FAQ, в котором есть примеры переключения раскладки клавиатуры.

[Maksimkama]

Спасиб. не помогло. кодировка стоит 1251 всё верно, если в 866 кодировке то показывает äë а не ôû :-) блин что за фигня даж не пойму. Хотя по русски тоже не пишет. Перепробовал переключать раскладку. либо не догнал чего то. писать по русски он тоже не пишет.