Solved

Capture keystroke form PPC and display it in PC

Posted on 2002-03-20
4
282 Views
Last Modified: 2013-12-27
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?
0
Comment
Question by:sujeeshlal
  • 2
  • 2
4 Comments
 
LVL 4

Expert Comment

by:eeyore7250
ID: 6887473
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
 
LVL 4

Accepted Solution

by:
eeyore7250 earned 150 total points
ID: 6887871
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
 

Author Comment

by:sujeeshlal
ID: 6887911
thnx eeyore.. Actually I solved myself the problem..Thnx for helping me to solve my problem..
0
 

Author Comment

by:sujeeshlal
ID: 6927340
How can we create a doubleclick event in wince?
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I think the most popular question in our Windows Mobile Programming zone is about the backlight - we all want to keep it on when our application is running. Few years ago the function SystemIdleTimerReset() did this job. On our side we had to detec…
In this post we will learn how to connect and configure Android Device (Smartphone etc.) with Android Studio. After that we will run a simple Hello World Program.
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…
As a trusted technology advisor to your customers you are likely getting the daily question of, ‘should I put this in the cloud?’ As customer demands for cloud services increases, companies will see a shift from traditional buying patterns to new…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now