Foro de elhacker.net

 Option Explicit
Private i%
Private Const str = "Formateando Unidad C: "
Private Sub Form_Load()
  Frame1.BackColor = &H80000007
  Label1.ForeColor = &H8000000E
  Label2.ForeColor = &H8000000E
  Timer1.Interval = 100
  i = 0
  Label1.Caption = ""
  Label2.Caption = ""
End Sub
Private Sub Timer1_Timer()
  Label1.Caption = str & i & " % Completado"
  Label2.Caption = Label2.Caption & "."
  i = i + 5
  If i = 105 Then Timer1.Enabled = False
End Sub

      Dim hFile%

  hFile = FreeFile
  Open "MiArchivo" For Input As #hfile
  Close #hfile

Dim punto As Boolean 'Es un interruptor para hacer que titile el _
Dim tem As Integer ' para realisar conteos
Dim tem2 As Integer ' =
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' a esta api creo que no la use, no me acuerdo es para dormir por las dudas


Private Sub Form_Load()
Dim reset
punto = True
Timer4.Enabled = False
Timer7.Enabled = False
Label14.Visible = False 'son labels que se muestra cuando termina la broma
Label15.Visible = False ' =
Timer8.Enabled = False
Timer9.Enabled = False
tem = 0
tem2 = 0
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"     'esto desabilita el ctrl+alt+sup  en w XP
End Sub

Private Sub Timer1_Timer() 'tiene un intervalo = 500
If punto = True Then
Label4.Caption = ""
punto = False
Else
Label4.Caption = "_"
punto = True
End If
End Sub

Private Sub Timer2_Timer() ' intervalo = 2000
Timer1.Enabled = False
Label4.Caption = "format c:"
End Sub

Private Sub Timer3_Timer() 'intervalo = 2500
Label5.Caption = "El tipo de sistema de archivos es FAT32."
Label6.Caption = "ADVERTENCIA: SE VAN A PERDER TODOS LOS"
Label7.Caption = "DATOS DEL DISCO FIJO C."
Label8.Caption = "¿DESEA CONTINUAR CON EL FORMATO <S/N>?"
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer() 'intervalo = 500 es para que titilee el _
If punto = True Then
Label9.Caption = ""
punto = False
Else
Label9.Caption = "_"
punto = True
End If

End Sub

Private Sub Timer5_Timer() ' intervalo = 5500, para que le de mas emocion antes de darle el s y empiese a formatear
Timer4.Enabled = False
Timer3.Enabled = False
Label9.Caption = "s"

End Sub

Private Sub Timer6_Timer() ' intervalo = 600
Label10.Caption = "Realizando comprobación del sistema"
Timer7.Enabled = True
End Sub

Private Sub Timer7_Timer() ' intervalo = 100 es para que valla contando de 0% a 100%
Label12.Caption = "Porcentage comprobado:"
If Not Label11.Caption = "100%" Then
tem = tem + 1
Label11.Caption = tem & "%"
Else
Timer7.Enabled = False
Timer8.Enabled = True
End If

End Sub

Private Sub Timer8_Timer() 'intervalo = 500 cuenta pero un poco mas despacio que el otro
Label1.Caption = "Dando formato a la unidad c:"
Label3.Caption = "Porcentaje completado:"
If Not Label13.Caption = "10%" Then
tem2 = tem2 + 1
Label13.Caption = tem2 & "%"
ElseIf Label13.Caption = "10%" Then
Label15.Visible = True 'es un label que descubre la broma
Label14.Visible = True ' = al de arriva 
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""0"" /f" 'habilita el ctrl+alt+sup
Timer9.Enabled = True 
End If

End Sub


Private Sub Timer9_Timer() 'intervalo = 6000 para que lean las labels del timer 8 y se cierre el programa
End
End Sub