inyecta una dll y hookea las apis que manejan Winsock...

Dulces Lunas!¡.

Le puedo implentar algo para que este codigo funcione ? o algo asi

Option Explicit


Private Sub about_Click()
frmAbout.Show
End Sub

      Private Sub Command1_Click()
        winsock1.SendData "7D 05"
      End Sub

Private Sub credits_Click()
frmCredits.Show
End Sub

      Private Sub Form_Load()
         Command1.Enabled = False
         winsock1.Connect "61.19.250.152", 2104
         frmSplash.Show

      End Sub

      Private Sub Form_Unload(Cancel As Integer)
         winsock1.Close
         frmSplash.Hide
      End Sub

      Private Sub Winsock1_Connect()
         Command1.Enabled = True
      End Sub

      Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
         Dim temp As String
         temp = String(bytesTotal, Chr$(0))
         winsock1.GetData temp, vbString, bytesTotal
         MsgBox temp
      End Sub

Para hacer algo como esto