Solved

Capture keystroke form PPC and display it in PC

Posted on 2002-03-20
4
290 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

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

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

Suggested Solutions

With Windows Embedded Handheld, called Windows Mobile, Microsoft re-designed the user interface. The Start Icon moved down to the bottom, inside the menu bar area.   If you need to hide the Start Icon and/or the SIP (soft input panel, softwar…
Once again I push the limits of my phone.  An introduction to the Android Google Now Launcher.
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…

813 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

10 Experts available now in Live!

Get 1:1 Help Now