[sattva]

XXXler

Спасиба!

[ANGRO]

А вот кстати как это будет на COM.
Особо не разбирался в возможностях просто транслировал пример из MSDN.
Не уверен что будет работать до WinXP_SP2, но стоит проверить.

Код:

;Firewall Adding an Application
;Set constants
Const $NET_FW_PROFILE_DOMAIN = 0
Const $NET_FW_PROFILE_STANDARD = 1
;Scope
Const $NET_FW_SCOPE_ALL = 0
;IP Version – ANY is the only allowable setting for now
Const $NET_FW_IP_VERSION_ANY = 2

;Create the firewall manager object.
$ObjfwMgr = ObjCreate("HNetCfg.FwMgr")
;Get the current profile for the local firewall policy.
$Profile = $ObjfwMgr.LocalPolicy.CurrentProfile

$App = ObjCreate("HNetCfg.FwAuthorizedApplication")
$App.ProcessImageFileName = @ProgramFilesDir&"\PowerDVD\PowerDVD.exe" ;Путь
$App.Name = "PowerDVD" ;Имя как будет значиться в списке исключений
;Use either Scope or RemoteAddresses, but not both !!!!!! (Если не понятно лучше не трогать)
$App.Scope = $NET_FW_SCOPE_ALL
;$App.RemoteAddresses = "*"
$App.IpVersion = $NET_FW_IP_VERSION_ANY
$App.Enabled = TRUE ; TRUE - Галочка стоит, FALSE - Галочка снята
$Profile.AuthorizedApplications.Add($App)

[sattva]

Рабочий вариант:

Код:

Select
		Case @OSVersion='WIN_XP' and @OSServicePack='Service Pack 2'
			RunWait('netsh firewall add allowedprogram program="'&@ProgramFilesDir&'\InterVideo\DVD7\WinDVD.exe" name=WinDVD7 profile=ALL mode=ENABLE ','',@SW_HIDE )
		Case @OSVersion='WIN_2003' and @OSServicePack='Service Pack 1'
			RunWait('netsh firewall add allowedprogram program="'&@ProgramFilesDir&'\InterVideo\DVD7\WinDVD.exe" name=WinDVD7 profile=ALL mode=ENABLE ','',@SW_HIDE  )
EndSelect

[bodro]

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

Код:

;--------------------------------------Start Dir----------------------------------------
$searchdir = (@ScriptDir & "\")
$search = FileFindFirstFile($searchdir & "*")  
$dirtot = 0
$i1 = 0

While 1
If $search = -1 Then ExitLoop
	$file = FileFindNextFile($search) 
	If @error Then ExitLoop


$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirA" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)
;---------------------------------------------------------------------------------------



$is = $i1
$i1 = 0
For $i = 1 TO $is


$var = Eval( "dirA" & $i)
$searchdir = ( $var & "\") 

    
$search = FileFindFirstFile($searchdir & "*")
 
While 1
If $search = -1 Then ExitLoop
	$file = FileFindNextFile($search) 
	If @error Then ExitLoop


$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirB" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)


Next 

;---------------------------------------------------------------------------------------


$is = $i1
$i1 = 0
For $i = 1 TO $is


$var = Eval( "dirB" & $i)
$searchdir = ( $var & "\") 

    
$search = FileFindFirstFile($searchdir & "*") 
 
While 1
If $search = -1 Then ExitLoop
	$file = FileFindNextFile($search) 
	If @error Then ExitLoop


$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirC" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)


Next 

;---------------------------------------------------------------------------------------

$is = $i1
$i1 = 0
For $i = 1 TO $is


$var = Eval( "dirC" & $i)
$searchdir = ( $var & "\") 

    
$search = FileFindFirstFile($searchdir & "*") 
 
While 1
If $search = -1 Then ExitLoop
	$file = FileFindNextFile($search) 
	If @error Then ExitLoop


$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirD" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)


Next 






$swar = ("")
$i1 = 0
For $i = 1 TO $dirtot

$var = Eval( "dirtot" & $i)
$swar = ($swar & $var & "; ")
Next 
FileWrite("test.txt", $swar)

Как его можно оптимизировать чтобы он сканировал все папки независимо от уровня вложений?

[amel27]

bodro
интересно чем не устраивает DIR?

Код:

DIR /AD /S /B >test.txt

хотя можно и AutoIT-ом, что-нибудь типа:

Код:

$root="C:"
DirList ($root,"test.txt")

Func DirList ($root,$file)
	$search = FileFindFirstFile($root & "\*.*")
	While 1
		$dir = FileFindNextFile($search) 
		If @error Then ExitLoop
		$dir =$root & "\" & $dir
		If FileExists($dir & "\") Then
			FileWriteLine($file,$dir)
			DirList ($dir,$file)
		EndIf
	WEnd
	FileClose($search)
	Return 0
EndFunc

[Dirk Diggler]

конечно, синтаксическая ошибка. внимательнее надо быть, у Вас апостроф вместо & .

[XXXler]

Код:

;~ Функция вывода структуры каталогов
Func ParceDir($Path)
	Local $Pathes[2],$i,$Folders,$Str
	$Pathes[0]=1
	$Pathes[1]=$Path
	While $i<$Pathes[0]
		$i=$i+1
		$Folders=FileFindFirstFile($Pathes[$i]&"\*")
		If $Folders=-1 Then ContinueLoop
		While 1
			$Str=FileFindNextFile($Folders)
			If @error Then ExitLoop
			If $Str="." Or $Str=".." Then ContinueLoop
			$Str=$Pathes[$i]&"\"&$Str
			If StringInStr(FileGetAttrib($Str),"D")<>0 Then
				$Pathes[0]=$Pathes[0]+1
				ReDim $Pathes[$Pathes[0]+1]
				$Pathes[$Pathes[0]]=$Str
			EndIf
		WEnd
		FileClose($Folders)
	Wend
	Return $Pathes
EndFunc

Вызывается с полным путем к каталогу, возвращает одномерный массив, где [0] - количество каталогов, [x] - полный путь к каталогу
Есть минус - каталоги в массиве идут по вложенности (сначала верхний уровень, потом вложенные папки), да и быстродействие хромает...

[bodro]

спасибо DIR /AD /S /B >test.txt меня полностью удовлетворил

[Creat0R]

Такой вопрос - Как можно корректно, закрыть определённую программу (не убивать её процесс, а именно нормально закрыть). Эту программу не получается уловить через WinWaitActive, она находится в трее, а как из трея вызывать окно, я не знаю.

И ещё, я запускаю Winamp из трея (повторным запуском), но не получается также уловить его окно, вроде знаю заголовок, но ничего не происходит, скрипт продолжает свои действия не активируя окно винампа (а действия связанный именно с ним). Может есть другой способ уловить окно? т.е не по заголовку, а по другим показателям, ведь заголовок может меняться (при разных языковых версиях).

[Ivan1986]

А ProcessClose разве его не корректно завершеает?
Кстати не нашел там ProcessKill

По поводу винампа попробуй

Код:

AutoItSetOption("WinTitleMatchMode", 4)
WinClose("classname=Winamp v1.x", "")