Capture keystroke form PPC and display it in PC

Hi
 I would like to capture keyboard events which is done in my pocketPC and display it in my PC Desktop threw network..
What i meant is I would like to click any keystke ,say I clicked in 'A' then I wanna display that in my PC as a msg as 'U clicked on 'A'..
I tried to capture that event and copy it into a buffer and try to display that in PC.But failed..Any body having a sample program of that?
sujeeshlalAsked:
Who is Participating?
 
eeyore7250Commented:
Actually, I will have a go at explaining it how to implement the projects here:

Create a new PPC project in eVB. Add a form with two buttons, a text box and a winsock control. Add the following code to the form.


‘start evb winsock code
‘by Nick Howard
Option Explicit

Private Const REMOTE_HOST As String = "DESKTOP_COMPUTER_NAME"
Private Const REMOTE_PORT As Long = 1111

Private Sub Command1_Click()
    WinSock1.RemoteHost = REMOTE_HOST
    WinSock1.RemotePort = REMOTE_PORT
    WinSock1.Protocol = sckTCPProtocol
    WinSock1.Connect
End Sub

Private Sub Command2_Click()
    WinSock1.Close
End Sub

Private Sub Form_Load()
    Command1.Caption = "Connect"
    Command2.Caption = "Disconnect"
End Sub

Private Sub Form_OKClick()
    App.End
End Sub

Private Sub Text1_KeyPress(ByVal KeyAscii As Integer)
    If WinSock1.State = sckConnected Then
        WinSock1.SendData Chr(KeyAscii)
    End If
End Sub


‘End evb winsock code


Create a new VB project. Add a form, with a text box and a winsock control. Then add the following code to the form:

‘start vb winsock code
‘by Nick Howard

Option Explicit

Private Sub Form_Load()
    Winsock1.LocalPort = 1111
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.Close
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
    Winsock1.GetData strData
    Me.Text1 = Me.Text1 & strData
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Winsock1.Close
    MsgBox "Error Occurred, Socket Now Closed"
End Sub

‘end vb winsock code



Get both projects running then connect through and type in the text box.

This should work
0
 
eeyore7250Commented:
I have a VB desktop app and a eVB windows ce app that can show you how to do what you wan't to achieve. I can give you these projects if you have some sort of way to recieve these, ie: email, ftp, etc.

Let me know?
0
 
sujeeshlalAuthor Commented:
thnx eeyore.. Actually I solved myself the problem..Thnx for helping me to solve my problem..
0
 
sujeeshlalAuthor Commented:
How can we create a doubleclick event in wince?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.