Indetectables

Indetectables es una Comunidad de Hacking, Seguridad Informática, Impresión 3d y Desarrollo
./index.php

Función ListarRun "Lista Claves Run En Array"

https://indetectables.net/viewtopic.php?t=42062

Página 1 de 1

Función ListarRun "Lista Claves Run En Array"

Publicado: 15 Ago 2012, 03:11
por Pink
Bueno les dejo esta Función que lista las Claves Run en un Array.



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
Saludos

Re: Función ListarRun "Lista Claves Run En Array"

Publicado: 15 Ago 2012, 17:32
por Pink
Actualizado

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
Gracias....: Fakedo0r
#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
local $Fakedo0r =1
$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 $Fakedo0r

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
$Fakedo0r+=1
   EndIf

Next

next

$split=stringsplit($Array,@CRLF)
ReDim $split[UBound($split)-1]
return $split



Case @OSArch="X86"
    local $clave2[2]
    local $Array
    local $split
	local $Fakedo0r =1
$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 $Fakedo0r

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
$Fakedo0r+=1
   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

Re: Función ListarRun "Lista Claves Run En Array"

Publicado: 21 Ago 2012, 04:57
por Pink
Corregido otra vez :S

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
Gracias....: Fakedo0r
#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
local $i=1
$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



while 1
Local $var = RegEnumVal($clave[$a], $i)
If @error <> 0 Then ExitLoop
$valor=RegRead($clave[$a],$var)
$clavereg=StringSplit($clave[$a],"\")
$Array&=($clavereg[1] & " - Run: " &"[" & $var& "] - " & $valor)&@CR
$i+=1
WEnd


next

$split=stringsplit($Array,@CRLF)
ReDim $split[UBound($split)-1]
return $split



Case @OSArch="X86"
    local $clave2[2]
    local $Array
    local $split
    local $i=1
$clave2[0]="HKLM\Software\Microsoft\Windows\CurrentVersion\Run"
$clave2[1]="HKCU\Software\Microsoft\Windows\CurrentVersion\Run"

for $a=0 to 1


while 1
Local $var = RegEnumVal($clave2[$a], $i)
If @error <> 0 Then ExitLoop
$valor=RegRead($clave2[$a],$var)
$clavereg=StringSplit($clave2[$a],"\")
$Array&=($clavereg[1] & " - Run: " &"[" & $var& "] - " & $valor)&@CR
$i+=1
WEnd


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
Todos los horarios son UTC+02:00
Página 1 de 1

© Indetectables Team

Desarrollado por Indetectables LAB