[TERMINAL]

1.У меня вопрос такой...
Можно ли в скрипте написать такую прогу которая будет определять дату записи диска (например, дата записи диска 30.12.2006 программой НЕРО) и если дата не соответствует то выполняется например перезагрузка машины а если дата соответствует, то выполняется к примеру старт файла SETUP.exe?

[Creat0R]

Кто нибудь сталкивался с _GuiCtrlStatusBarGetText? оно не работает в GUI

Берём тот же пример из справки:

Код:

opt("MustDeclareVars", 1)

#include <GUIConstants.au3>
#Include <GuiStatusBar.au3>

Local $gui, $StatusBar1, $msg, $lbl_Info
Local $a_PartsRightEdge[3] = [100, 350, -1]
Local $a_PartsText[3] = ["New Text", "More Text", "Even More Text"]

$gui = GUICreate("Status Bar Get Text", 500, -1, -1, -1, $WS_SIZEBOX)
$lbl_Info = GUICtrlCreateLabel("", 10, 10, 150, 50, $SS_SUNKEN)
$StatusBar1 = _GUICtrlStatusBarCreate ($gui, $a_PartsRightEdge, $a_PartsText)

GUICtrlSetData($lbl_Info, "1st Part: " & _GUICtrlStatusBarGetText ($StatusBar1, 0) & @LF & _
        "2nd Part: " & _GUICtrlStatusBarGetText ($StatusBar1, 1) & @LF & _
        "3rd Part: " & _GUICtrlStatusBarGetText ($StatusBar1, 2))

GUISetState(@SW_SHOW)


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_RESIZED
            _GUICtrlStatusBarResize ($StatusBar1)
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case Else
            ;;;;;
    EndSelect
    
WEnd

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

Как получить текст из статус-бара?

[Diamond]

Поздравляю Всех С Наступающим Новым Годом!
Я тут написал небольшую функцию, возможно кому ни-будь она пригодится...

Код:

; Преобразовывает десятичное число в другие системы счисления
; Использование:     encode($val,$type)
; $val - конвертируемое десятичное число
; $type - система счисления в которую требуется преобразовать число
Global Const $Heh=16
Global Const $Oct=8
Global Const $Bin=2

$num=987
msgbox(0,"",encode($num,$Heh))

Func encode($val,$type)
$string=""
While $val
	$MB=_Mod($val,$type)
	Select
		Case $MB=10
		$MB="A"
		Case $MB=11
		$MB="B"
		Case $MB=12
		$MB="C"
		Case $MB=13
		$MB="D"
		Case $MB=14
		$MB="E"
		Case $MB=15
		$MB="F"
	EndSelect
	$val=Int($val/$type)
	$string=$MB & $string
WEnd
Return $string
EndFunc

; Альтернатива функции Mod():
; $A - Делимое
; $B - Делитель
Func _Mod($A,$B)
	$Q=$A/$B
	$ret=($Q-Int($Q))*$B
	Return $ret
EndFunc

[Diamond]

Обратное преобразование в десятичное число.

Код:

; Преобразовывает числа из различных систем счисления в привычные нам десятичные
; Использование:     decode($val,$type)
; $val - конвертируемое число
; $type - система счисления из которой требуется преобразовать число
Global Const $Heh=16
Global Const $Oct=8
Global Const $Bin=2

$num="11111111"
MsgBox(0,"",decode($num,$Bin))

Func decode($val,$type)
$string=0
$step=StringLen($val)
While $step
$MB=StringLeft($val,1)
	Select
		Case $MB="A"
		$MB=10
		Case $MB="B"
		$MB=11
		Case $MB="C"
		$MB=12
		Case $MB="D"
		$MB=13
		Case $MB="E"
		$MB=14
		Case $MB="F"
		$MB=15
	EndSelect
	For $i=2 To $step
		$MB=$MB*$type
	Next
	$string=$string+$MB
	$val=StringRight($val,StringLen($val)-1)
	$step=$step-1
WEnd
Return $string
EndFunc

[Creat0R]

Всех с новым годом!

Вопрос опять по гуи (непомню задавал ли уже, по поиску вроде не нашел)...

Возможно ли внедрить ссылку в гуи? т.е чтобы был подчёркнуты текст как ссылка, и при нажатии выполнялось какое то действие (запуск браузера с ссылкой - но это я знаю как сделать).

[Diamond]

Creat0R
Можно внедрить целую HTML страницу:

Код:

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate( "Внедренная HTML-страница",640,480)
$GUIActiveX=GUICtrlCreateObj( $oIE,0,0,640,480 )
GUISetOnEvent($GUI_EVENT_CLOSE,"closed")
GUISetState ()
$oIE.navigate("C:\Моя страничка.html")
While 1
Sleep(1000)
Wend
Func closed()
	Exit
EndFunc

Или сделать имитацию ссылки, вроде этой:

Код:

#include <GUIConstants.au3> 
Opt("GUIOnEventMode", 1)
$title="Имитация ссылки"
$test= GUICreate($title,"320","240")
GUISetOnEvent($GUI_EVENT_CLOSE,"closed")
$label=GUICtrlCreateLabel("Ссылка",10,10,80,20)
GUICtrlSetCursor (-1,0 )
GUICtrlSetColor(-1,0x0000ff)
GUICtrlSetFont(-1,14,400,6)
GUICtrlSetOnEvent(-1,"event")
GUISetState()
While 1
	Sleep(1000)
WEnd
Func closed()
	Exit
EndFunc
Func event()
	GUICtrlSetColor($label,0xAC00A9)
	Run("explorer.exe http://forum.oszone.net/")
EndFunc

[Creat0R]

Diamond_m

сделать имитацию ссылки

Гинеально!!! я и не думал что это так просто! С новым Годом тебя и всех всех всех!!!

[biggreeder]

Вопрос знатокам AutoIt:
как при помощи этой программы изменить права доступа NTFS к отдельному файлу (в WinXP естесственно)?

[Sanja Alone]

biggreeder

изменить права доступа NTFS к отдельному файлу

%SystemRoot%\system32\cacls.exe + RunWait

[biggreeder]

Sanja Alone
А можно "по-пензенски"?
Как конкретно команду прописать, чтобы запретить запись "C:\Путь_к_файлу\Имя_файла" для групп SYSTEM и администраторы?