[Sanja Alone]

biggreeder

А можно "по-пензенски"?

cmd:

Код:

cacls "C:\Путь_к_файлу\Имя_файла" /E /G SYSTEM:R Администраторы:R

AutoIt:

Код:

RunWait(@comspec & ' /c cacls "C:\Путь_к_файлу\Имя_файла" /E /G SYSTEM:R Администраторы:R','',@SW_HIDE)

[biggreeder]

Sanja Alone
Спасибо, думал я не так что-то делаю. Но именно такие команды на срабатывают. В смысле права доступа остаются прежними.
И разные варианты команд пробовал и разные файлы. Ничего не помогает...

[Creat0R]

Как можно деактивировать гуи (GuiSetState(@SW_DISABLE)), но чтобы можно было перетаскивать окно (через заголовок)? или хотябы как деактивировать элементы гуи (кнопки, поля ввода и т.д.), но чтобы они не затемнялись, а в обычном их виде были недоступны для использования?

[Diamond]

Creat0R

Как можно деактивировать гуи

Тебе нужно блокировать не само GUI а скорее обработку событий...
Ведь если запретить обработку событий ВСЕХ кнопок и элементов то это и будет по сути заблокированное GUI.
В функции которая обрабатывает событие кнопки надо поставить условие:

Код:

Dim $zapret=False
; Пока функция MainEvent() работает кнопка не среагирует
Func MainEvent()
	$zapret=True
		Sleep(3000)
	$zapret=False
EndFunc
; функция кнопки:
Func PressButton()
	If $zapret=False Then
		Msgbox(0,"","Функция кнопки Выполнена")
	Endif
EndFunc

Например оставить $zapret=True пока пользователь не введёт верный пароль и т.п.

[Creat0R]

Diamond_m

Тебе нужно блокировать не само GUI а скорее обработку событий...

Нет, именно гуи (или кнопки - т.е элементы), мне нужно чтобы небыло возможности нажать на кнопку, ввести текст в поле ввода, или зажать чекбокс... т.е другими словами - заблокировать с точки зрения интерфейса а не функциональности... и, кстати, хотелось бы также блокировать не только гуи, но и внешние окна, т.е блокировать то можно, но нужно так, чтобы была при этом возможность перетаскивать окно, сворачивать его, или (если есть возможность) разворачивать.

И даже если и подойдёт такой ввариант, у меня слишком много чекбоксов в гуи (более 30-ти), и ставить их всех на условия не очень практичное решение... хотелось бы просто заблокировать элемент (чекбокс к примеру), и чтобы небыло возможности зажать галку, но и вид чтобы оригинальный оставался. Я думал что может есть какой то стиль который это делает, но в справке уже замучался искать

Спасибо за попытку помочь... но мне кажется моей задумке (как и многим другим моим задумкам ), в AutoIt'е просто нет решения

[Diamond]

Creat0R

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

Могу предложить такое решение.

Код:

#include <GUIConstants.au3> 
Opt("GUIOnEventMode", 1)
$test= GUICreate("TestCover","400","300")
GUISetOnEvent($GUI_EVENT_CLOSE,"closed")
$cover=GUICtrlCreateLabel("",0, 0, 400,300)
GUICtrlSetState($cover,$GUI_DISABLE)
Dim $status=0
$CTRL_btn1 = GUICtrlCreateButton ("Заблокировать GUI", 180, 130, 120, 22,$BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent($CTRL_btn1,"CoverGui")
$CTRL_Checkbox = GUICtrlCreateCheckbox ("Checkbox",80,5,66,15)
GUICtrlCreateGroup ("RadioGroup", 5, 5, 70, 60)
$radio0 = GUICtrlCreateRadio ("radio1", 10, 20, 50, 15)
$radio1 = GUICtrlCreateRadio ("radio2", 10, 40, 50, 15)
GUICtrlSetState ($radio0,$GUI_CHECKED)
GUICtrlCreateGroup ("",-99,-99,1,1)
$CTRL_edit = GUICtrlCreateEdit ("0", 10, 80, 34, 18,$ES_NUMBER)
GUISetState()
While 1
	Sleep(1000)
WEnd
Func closed()
	Exit(0)
EndFunc
Func CoverGui()
	If $status=1 Then
		GUICtrlSetState($cover,$GUI_DISABLE)
		$status=0
	Else
		GUICtrlSetState($cover,$GUI_ENABLE)
		$status=1
	EndIf
EndFunc

[Creat0R]

Diamond_m

Могу предложить такое решение

Решение отличное - но нет "защиты от дурака" - нажимаем пробел (или перед этим таб), и кнопка снова нажимается...

Может можно как то блокировать доступ клавиатуры именно в гуи (BlockInput() не предлагать )?

[Diamond]

Creat0R
Сначала я решил что дело только в стиле кнопки $BS_DEFPUSHBUTTON, который я вставил умышленно для удобства тестирования. К сожалению о пробеле и TAB я не подумал. А что если в функцию CoverGui() после условия Else добавить строчку: ControlFocus("TestCover","",$cover) а в шапке добавить: HotKeySet("{TAB}","nul") где nul() это пустая функция которая ничего ни делает (её так-же придётся дописать). Это сработает! Минус только в том что мы получаем неработающую клавишу {TAB} в системе. Ну и конечно убрать стиль: $BS_DEFPUSHBUTTON с кнопки, чтобы ее нельзя было нажать с помощью ENTER.

[Diamond]

Creat0R
Ещё проще... Ничего в шапке писать не надо, потребуется только изменить функцию.
Это хотя бы позволит отключить {TAB} только на момент блокировки GUI.

Код:

Func CoverGui()
	If $status=1 Then
		GUICtrlSetState($cover,$GUI_DISABLE)
		$status=0
		HotKeySet("{TAB}") ;снимаю блокировку {TAB}
		HotKeySet("^{TAB}")
		HotKeySet("+{TAB}")
	Else
		GUICtrlSetState($cover,$GUI_ENABLE)
		$status=1
		ControlFocus("TestCover","",$cover)
		HotKeySet("{TAB}","nul") ; блокирую возможные комбинации {TAB}
		HotKeySet("^{TAB}","nul")
		HotKeySet("+{TAB}","nul")
	EndIf
EndFunc
Func nul()
EndFunc

[Creat0R]

Diamond_m

Минус только в том что мы получаем неработающую клавишу {TAB} в системе

И Space (если и её таким образом "отключить")....

Ладно, ничего не поделать, придётся деактивировать "некрасиво" ($GUI_DISABLE - или 128).

Есть у меня друга задумка, но она тоже не работает - нужно поставить прогресс бар, и потом отменить его... вот гуи, и не пойму почему не работает такая конструкция:

Код:

Opt("GuiOnEventMode", 1)
#include <GUIConstants.au3>

Global $ExitLoop
$gui = GUICreate("Abort GUI", 420, 140, -1, -1, $WS_SIZEBOX)
$Button = GUICtrlCreateButton("Start", 180, 20, 70)
GUICtrlSetOnEvent($Button, "Button")
GUISetOnEvent(-3, "ExitScript")

$Progress = GUICtrlCreateProgress(60, 60, 300, 15)

GUISetState(@SW_SHOW)

While 1
   Sleep(100)
WEnd

Func Button()
    GUICtrlSetData($Button, "Abort")
    GUICtrlSetOnEvent($Button, "SetExitLoop")
    While $ExitLoop = 0
        For $i = 10 To 100
            Sleep(10)
            GUICtrlSetData($Progress, $i)
        Next
    WEnd
    GUICtrlSetData($Button, "Start")
EndFunc

Func SetExitLoop()
    $ExitLoop = 1
EndFunc

Func ExitScript()
    Exit
EndFunc