hola a todos alguien me ayuda estoy haciendo un cliente de un troyano y me da error por que?
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub
Private Sub enviar_Click()
Dim enviar As String
Winsock1.SendData
End Sub
Private Sub notas_Click()
Winsock1.SendData
End Sub
Private Sub abrir_Click()
Winsock1.SendData
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Winsock1.Close
End
End Sub
Private Sub Winsock1_Connect()
Me.Caption
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData
consola.Text = consola.Text + datos + vbNewLine
End Sub
nose de programacion si alguien es tan amable si me puede ayudar
o me ponga un ejemplo
gracias