Código: Seleccionar todo
#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 <Array.au3>
$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
