|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Установка выбранного приоритета для процесса |
|
[решено] Установка выбранного приоритета для процесса
|
Новый участник Сообщения: 7 |
Профиль | Отправить PM | Цитировать Нужно сделать скрипт, через который менять приоритет процессам. Суть такая, в
GUICtrlCreateCombo ("Средний приоритет", 10,10) GUICtrlSetData(-1,"Высокий|Средний приоритет","Низкий") Выбираем например "Высокий приоритет" после чего скрипт считывает это GUICtrlRead, и исходя из прочитанного присваивает ему цифру соответствующую. 0 - низкий, 2 - Средний приоритет, 4 - Высокий. Заранее спасибо! |
|
Отправлено: 11:13, 25-03-2010 |
Ветеран Сообщения: 812
|
Профиль | Отправить 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 |
Последний раз редактировалось madmasles, 25-03-2010 в 13:41. Отправлено: 13:25, 25-03-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Я что-то затрудняюсь понять, как связан заголовок темы с её содержимым?
|
------- Отправлено: 14:38, 25-03-2010 | #3 |
Ветеран Сообщения: 812
|
Профиль | Отправить PM | Цитировать Creat0R,
А нет никакой связи. |
Отправлено: 15:11, 25-03-2010 | #4 |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать Вы немного не так поняли, но всеравно спасибо) кинули идею как сделать я просто делаю стандартный WIn+R но с функцией выбора приоритета.
|
|
Отправлено: 15:26, 25-03-2010 | #5 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата La2Angel:
Кстати по теме: _FileRun UDF, Run Dialog Replacement |
|
------- Отправлено: 15:41, 25-03-2010 | #6 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - [решено] изменение приоритета | 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 |
|