' Methode zum Verbinden
' wsWinLirc ist ein Winsock-Control
Private Sub connectToWinLIRC()
  Dim strLocalIP As String
 
  strLocalIP = wsWinLirc.LocalIP
  wsWinLirc.Protocol = sckTCPProtocol
  wsWinLirc.RemoteHost = strLocalIP
  wsWinLirc.RemotePort = 8765
  wsWinLirc.Connect
 
End Sub
 
' Datenankunft am Winsock-Control
Private Sub wsWinLirc_DataArrival(ByVal bytesTotal As Long)
  Dim strData As String
  Dim strRemoteHex As String, strRemoteName As String, strRemoteKey As String
  Dim intRemoteIdx As Integer, intSeperatorOne As Integer, intSeperatorTwo As _
    Integer
 
  wsWinLirc.GetData strData, vbString
 
  strRemoteHex = Left(strData, 16)
  intRemoteIdx = Val(Mid$(strData, 18, 2))
 
  intSeperatorOne = InStr(21, strData, " ", vbBinaryCompare)
  strRemoteKey = Mid$(strData, 21, intSeperatorOne - 21) 'Code of the Key from 
  ' Remote Control
 
  intSeperatorTwo = InStr(intSeperatorOne, strData, Chr(10), vbBinaryCompare)
  strRemoteName = Mid$(strData, intSeperatorOne + 1, (intSeperatorTwo - _
    intSeperatorOne) - 1) 'Name of the Key - defined in WinLircServer
 
  ' Hier kannst du dann deine Aktionen frei nach belieben machen
 
End Sub