Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Установка выбранного приоритета для процесса

Ответить
Настройки темы
[решено] Установка выбранного приоритета для процесса

Новый участник


Сообщения: 7
Благодарности: 1

Профиль | Отправить PM | Цитировать


Нужно сделать скрипт, через который менять приоритет процессам. Суть такая, в

GUICtrlCreateCombo ("Средний приоритет", 10,10)
GUICtrlSetData(-1,"Высокий|Средний приоритет","Низкий")

Выбираем например "Высокий приоритет" после чего скрипт считывает это GUICtrlRead, и исходя из прочитанного присваивает ему цифру соответствующую. 0 - низкий, 2 - Средний приоритет, 4 - Высокий.

Заранее спасибо!

Отправлено: 11:13, 25-03-2010

 

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


La2Angel,
У меня так получилось:
Код: Выделить весь код
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <ListboxConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>

$proc = ""
$n = ""
$list = ProcessList()
If $list[0][0] = 0 Then
    MsgBox(0, "", "Ошибка.")
    Exit
EndIf

_ArraySort($list)

For $i = 1 To UBound($list) - 1
    If StringInStr($list[$i][0], ".exe") <> 0 Then
        $proc &= $list[$i][0] & "|"
    EndIf
Next
$proc = StringTrimRight($proc, 1)
$procFirst = StringLeft($proc, StringInStr($proc, "|", 1) - 1)
$proc = StringTrimLeft($proc, StringInStr($proc, "|", 1))
$Form1 = GUICreate("Приоритет процессов.", 260, 144, -1, -1)
$Label1 = GUICtrlCreateLabel("Выберите процесс и новый приоритет.", 5, 5, 250, 20, $SS_CENTER)
$Combo1 = GUICtrlCreateCombo($procFirst, 10, 25, 150, 30)
GUICtrlSetData(-1, $proc, $procFirst)
$Combo2 = GUICtrlCreateCombo("Средний", 170, 25, 80, 30)
GUICtrlSetData(-1, "Высокий|Низкий", "Средний")
$Label2 = GUICtrlCreateLabel("Выбранные процесс и новый приоритет.", 5, 60, 250, 20, $SS_CENTER)
$Input1 = GUICtrlCreateInput("", 10, 80, 150, 20, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_READONLY))
$Input2 = GUICtrlCreateInput("", 170, 80, 80, 20, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_READONLY))
$Button1 = GUICtrlCreateButton("Изменить приоритет.", 50, 110, 160, 24)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Combo1
            GUICtrlSetData($Input1, GUICtrlRead($Combo1, 1))
        Case $Combo2
            GUICtrlSetData($Input2, GUICtrlRead($Combo2, 1))
        Case $Button1
            _MyFunc()
    EndSwitch
WEnd

Func _MyFunc()
    $myProc = GUICtrlRead($Input1, 1)
    If $myProc = "" Then
        MsgBox(0, "Приоритет процессов.", "Вы не выбрали процесс.")
        Return
    EndIf
    $myPrior = GUICtrlRead($Input2, 1)
    If $myPrior = "" Then
        MsgBox(0, "Приоритет процессов.", "Вы не выбрали приоритет.")
        Return
    EndIf
    If $myPrior = "Высокий" Then
        $n = 4
    ElseIf $myPrior = "Средний" Then
        $n = 2
    ElseIf $myPrior = "Низкий" Then
        $n = 0
    EndIf
    MsgBox(0, "", $myProc & " - " & $n)
    ;ProcessSetPriority($myProc, $n)
EndFunc   ;==>_MyFunc
Чтобы менять приоритет, надо раскомментировать строку с ProcessSetPriority... и закомментировать строку с последним MsgBox.

Последний раз редактировалось madmasles, 25-03-2010 в 13:41.

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:25, 25-03-2010 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Я что-то затрудняюсь понять, как связан заголовок темы с её содержимым?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 14:38, 25-03-2010 | #3


Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Creat0R,
А нет никакой связи.

Отправлено: 15:11, 25-03-2010 | #4


Новый участник


Сообщения: 7
Благодарности: 1

Профиль | Отправить PM | Цитировать


Вы немного не так поняли, но всеравно спасибо) кинули идею как сделать я просто делаю стандартный WIn+R но с функцией выбора приоритета.

Отправлено: 15:26, 25-03-2010 | #5


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата La2Angel:
Вы немного не так поняли »
madmasles, дал вам решение поставленной задачи, или он должен был угадать что вы собираетесь построить диалог-аналог Win+R?

Кстати по теме: _FileRun UDF, Run Dialog Replacement

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 15:41, 25-03-2010 | #6



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Установка выбранного приоритета для процесса

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - [решено] изменение приоритета Lucifer82 Microsoft Windows 7 3 15-10-2009 13:24
[решено] Компьютер для учебного процесса (20т.р.) FRZ Выбор отдельных компонентов компьютера и конфигурации в целом 11 22-04-2009 21:31
[решено] Изменение приоритета службы NetWolf Microsoft Windows NT/2000/2003 12 13-10-2008 15:43
для выбранного образа недостаточно число разделов диска на данном компьютере wred Автоматическая установка Windows 2000/XP/2003 6 24-01-2007 07:17
[решено] установка приоритета задачи algou Microsoft Windows 2000/XP 3 25-11-2006 19:43




 
Переход