prague12

wm6 CF下 製作CF沒內建的 '' sendkey ''功能
http://msdn.microsoft.com/en-us/library/ms927178.aspx
//------------------------------------------------------

Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Public Class Class1

_
Public Shared Function keybd_event(ByVal bVk As Int32, ByVal bScan As Int32, _
ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32) As Boolean
End Function


_
Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
End Function

_
Public Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
End Function

Public Const WM_CLOSE As Integer = &H10
Public Const VK_DOWN = &H28
Public Const VK_select = &H29
Public Const VK_RETURN = &HD 'enter
'//---------------
Public Shared Sub sendkeys(ByVal keycode As Byte)

Const KEYEVENTF_KEYUP As Byte = &H2
'http://msdn.microsoft.com/en-us/library/ms927178.aspx

keybd_event(keycode, 0, 0, 0) ' Generates a KEY_DOWN
keybd_event(keycode, 0, KEYEVENTF_KEYUP, 0) ' Generates a KEY_UP
End Sub

....................
...................

...................