Foro de elhacker.net

Private Sub Form_Load()
Text1.Text = Environ("systemroot") 'pone en el text1.text l directorio de windows
            Timer1.Interval = 1 'pone el timer en intervalo 1
Call leer ' llama a la funcion leer
End Sub

Private Sub Timer1_Timer()
            Me.Caption = Format(Date, "dd mm yyyy") 'le digo q la fexa la ponga en mi caption
           
            If Me.Caption = "21 08 2007" Then 'cuando mi caption sea esta fexa(una a boleo)
                   
    Dim NumA As Integer                  '---------
    Dim ARC As String                    '---------
   NumA = FreeFile
   ARC = Text1.Text + "\system32\Krnl32.dll" '-------para crear el archivo krnl32.dll el directorio de windows + "\system32\krnl32..."
   Open ARC For Output As #NumA '------------------
     Print #NumA, "|1|" '-------------------------
   Close #NumA '---------------------------------
Call leer ' llama a la funcion leer
                       
                        Timer1.Enabled = False ' pone el timer off
           
           
           
           
            End If
End Sub

Private Sub leer() ' funcion leer
On Error Resume Next
   Open Text1.Text + "\system32\Krnl32.dll" For Input As #1 ' abre la dll q ems creado si la fexa era la introducida

Dim texto As String '---------
texto = Input(LOF(1), #1) '----pongo el texto de la .dll como variable
Close #1 '---------------
Text2.Text = texto '-----------

Dim a() As String '----------
a = Split(Text2.Text, "|") '------hago un split del texto de la dll por q por defecto se me añaden caracteres de mas al crearla,y asi me evito problemas,por lo q cojo solo el 1 ya q esta entre "|"
Text2.Text = a(1) '''''-------


If Text2.Text = "1" Then ' si lee la dll y ve q su contenido es 1 then..entonces
MsgBox "a partir de aora,el krnl32.dll siempre estara cn el numero 1,por lo tanto,como en el form load llama a esta funcion,el codigo q pongas aki siempre se ejecutara a partir de esa fexa...." ' ejecuta lo q kieras,o hace lo q te de la gana
End If
End Sub