Locked Función ListarRun [By Pink]

[Expermicid]

Función que lista las Claves Run en un Array.

 

[lenguaje=autoit]#cs -------------------------------------------------------

AutoIt Version: 3.3.8.1

Author..........: Pink

Script Function...: ListarRun

Uso..............: $Listar=listarRun()

Retorna : Lista las Claves Run en un Array

#ce -------------------------------------------------------

 

 

;Ejemplo

 

#include

 

$Listar=listarRun()

 

_ArrayDisplay($Listar,"Funcion Listar Runs")

 

 

Func listarRun()

local $valor

 

 

Select

Case @OSArch="X64"

 

Local $clave[3]

local $Array

Local $split

$clave[0]="HKLM64\Software\Microsoft\Windows\CurrentVersion\Run"

$clave[1]="HKLM\Software\Microsoft\Windows\CurrentVersion\Run"

$clave[2]="HKCU\Software\Microsoft\Windows\CurrentVersion\Run"

 

for $a=0 to 2

For $i = 1 To 100

 

Local $var = RegEnumVal($clave[$a], $i)

if _RegExist($clave[$a],$var) Then

$valor=RegRead($clave[$a],$var)

$clavereg=StringSplit($clave[$a],"\")

 

 

 

$Array&=($clavereg[1] & " - Run: " &"[" & $var& "] - " & $valor)&@CR

 

EndIf

 

Next

 

next

 

$split=stringsplit($Array,@CRLF)

ReDim $split[uBound($split)-1]

return $split

 

 

 

Case @OSArch="X86"

local $clave2[2]

local $Array

local $split

$clave2[0]="HKLM\Software\Microsoft\Windows\CurrentVersion\Run"

$clave2[1]="HKCU\Software\Microsoft\Windows\CurrentVersion\Run"

 

for $a=0 to 1

For $i = 1 To 100

 

Local $var = RegEnumVal($clave2[$a], $i)

if _RegExist($clave2[$a],$var) Then

$valor=RegRead($clave2[$a],$var)

$clavereg=StringSplit($clave2[$a],"\")

 

$Array&=($clavereg[1] & " - Run: " &"[" & $var& "] - " & $valor)&@CR

 

EndIf

 

Next

 

next

 

$split=stringsplit($Array,@CRLF)

ReDim $split[uBound($split)-1]

return $split

 

EndSelect

 

EndFunc

 

 

 

 

Func _RegExist($sKeyName, $sValueName)

RegRead($sKeyName, $sValueName)

Return @error = 0

EndFunc

[/lenguaje]

 

Autor: Pink

Edited February 16, 2014 by Expermicid