AutoIT 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