SendKeys in WPF

在以往Windows Form的程式開發當中，當要送出鍵盤的相關資料時，會使用SendKeys的方式來處理，例如說要把一個字加到TextBox上這樣；用SendKeys的好處不用去處理當輸入的游標在文字中間的問題，會比像是
TextBox1.Text &= "1"
這樣的方式來的方便些。而到了WPF，沒有SendKeys可以用了，那麼應該怎麼辦呢？在網路上搜尋了一下，可以利用呼叫API的方式來做，可以參考一下下面 SendInput 的說明，所有需要的東西都在裡面了。動作原理大概是下面過程

紀錄要輸入的控制項在畫面上的位置
使用SendInput模擬滑鼠的動作，點擊要輸入的控制項(主要是要取得Focus)
使用SendInput模擬KeyDown的動作
使用 SendInput模擬KeyUp的動作

大概的過程是這樣子了；而我自己的使用方式有點偷懶，直接略過模擬滑鼠的部分，直接傳控制項的參考過去 XDD

下面是目前的程式碼，還沒詳細測試，大致就是上面列出的SendInput中的程式碼了，參考看看了；首先是宣告的部分

#Region "Const"
    Const INPUT_MOUSE As UInt32 = 0
    Const INPUT_KEYBOARD As Integer = 1
    Const INPUT_HARDWARE As Integer = 2
    Const KEYEVENTF_EXTENDEDKEY As UInt32 = &H1
    Const KEYEVENTF_KEYUP As UInt32 = &H2
    Const KEYEVENTF_UNICODE As UInt32 = &H4
    Const KEYEVENTF_SCANCODE As UInt32 = &H8
    Const XBUTTON1 As UInt32 = &H1
    Const XBUTTON2 As UInt32 = &H2
    Const MOUSEEVENTF_MOVE As UInt32 = &H1
    Const MOUSEEVENTF_LEFTDOWN As UInt32 = &H2
    Const MOUSEEVENTF_LEFTUP As UInt32 = &H4
    Const MOUSEEVENTF_RIGHTDOWN As UInt32 = &H8
    Const MOUSEEVENTF_RIGHTUP As UInt32 = &H10
    Const MOUSEEVENTF_MIDDLEDOWN As UInt32 = &H20
    Const MOUSEEVENTF_MIDDLEUP As UInt32 = &H40
    Const MOUSEEVENTF_XDOWN As UInt32 = &H80
    Const MOUSEEVENTF_XUP As UInt32 = &H100
    Const MOUSEEVENTF_WHEEL As UInt32 = &H800
    Const MOUSEEVENTF_VIRTUALDESK As UInt32 = &H4000
    Const MOUSEEVENTF_ABSOLUTE As UInt32 = &H8000
#End Region
 
#Region "Enums"
    Public Enum InputType As Integer
        Mouse = 0
        Keyboard = 1
        Hardware = 2
    End Enum
 
    <Flags()> _
    Public Enum MOUSEEVENTF As Integer
        MOVE = &H1
        LEFTDOWN = &H2
        LEFTUP = &H4
        RIGHTDOWN = &H8
        RIGHTUP = &H10
        MIDDLEDOWN = &H20
        MIDDLEUP = &H40
        XDOWN = &H80
        XUP = &H100
        VIRTUALDESK = &H400
        WHEEL = &H800
        ABSOLUTE = &H8000
    End Enum
 
    <Flags()> _
    Public Enum KEYEVENTF As Integer
        EXTENDEDKEY = 1
        KEYUP = 2
        [UNICODE] = 4
        SCANCODE = 8
    End Enum
#End Region
 
#Region "Structure"
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure INPUT
        <FieldOffset(0)> Dim dwType As Integer
        <FieldOffset(4)> Dim mouseInput As MOUSEINPUT
        <FieldOffset(4)> Dim keyboardInput As KEYBDINPUT
        <FieldOffset(4)> Dim hardwareInput As HARDWAREINPUT
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure KEYBDINPUT
        <FieldOffset(0)> Public wVk As Short
        <FieldOffset(2)> Public wScan As Short
        <FieldOffset(4)> Public dwFlags As Integer
        <FieldOffset(8)> Public time As Integer
        <FieldOffset(12)> Public dwExtraInfo As IntPtr
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure HARDWAREINPUT
        <FieldOffset(0)> Public uMsg As Integer
        <FieldOffset(4)> Public wParamL As Short
        <FieldOffset(6)> Public wParamH As Short
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure MOUSEINPUT
        <FieldOffset(0)> Public dx As Integer
        <FieldOffset(4)> Public dy As Integer
        <FieldOffset(8)> Public mouseData As Integer
        <FieldOffset(12)> Public dwFlags As Integer
        <FieldOffset(16)> Public time As Integer
        <FieldOffset(20)> Public dwExtraInfo As IntPtr
    End Structure
#End Region
 
    <DllImport("user32.dll", EntryPoint:="SendInput")>
    Public Shared Function SendInput(ByVal cInputs As Integer, ByRef pInputs As INPUT, ByVal cbSize As Integer) As Integer
    End Function
 
    Public Shared Sub DoKeyBoard(ByVal flags As KEYEVENTF, ByVal key As Char)
        Dim _input As New INPUT
        Dim ki As New KEYBDINPUT
        _input.dwType = InputType.Keyboard
 
        _input.keyboardInput = ki
        _input.keyboardInput.wVk = Convert.ToInt16(key)
        _input.keyboardInput.wScan = 0
        _input.keyboardInput.time = 0
        _input.keyboardInput.dwFlags = flags
        _input.keyboardInput.dwExtraInfo = IntPtr.Zero
        Dim cbSize As Integer = Marshal.SizeOf(GetType(INPUT))
        Dim result As Integer = SendInput(1, _input, cbSize)
        'If result = 0 Then Debug.WriteLine(Marshal.GetLastWin32Error)
        _input = Nothing
        ki = Nothing
    End Sub


而外面的UerControl多加了一個Property，使用方式大約會像是這樣子

Public Property FoucedCtl As TextBox
 
    Private Sub Button_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)
        If Me.FoucedCtl Is Nothing Then
            Exit Sub
        End If
        Me.FoucedCtl.Focus()
        Win32Helper.DoKeyBoard(0, CType(sender, Button).Content.ToString.Chars(0))
        System.Threading.Thread.Sleep(5)
        Win32Helper.DoKeyBoard(Win32Helper.KEYEVENTF.KEYUP, CType(sender, Button).Content.ToString.Chars(0))
    End Sub

留言

張貼留言

這個網誌中的熱門文章

安裝部屬全攻略之─如何製作安裝檔

圖片
在我們寫完了漂漂的程式之後要交到使用者手上，總不能直接把xxxx.exe給使用者吧，這個時候我們需要製作安裝檔來交給使用者安裝，那怎麼做呢？嗯，下面我們用圖說方式來說明 加入安裝部屬專案 在VS IDE環境中的功能表選取[檔案]→[加入]→[新增專案]，之後選擇[其他專案類型]→[安裝部屬專案]，像下面的圖 加入專案輸出以及相關檔案 加入新的專案之後，如果依照預設值沒有變動東西的話，現在應該在[方案總管]中會看到新的專案"Setup1"，在左邊我們會看到[目標電腦上的檔案系統]，下面預設會有3個項目，[使用者的桌面]、[使用者的程式功能表]、[應用程式資料夾]，這三個就是模擬成 目標電腦 上的相關位置，簡單的說如果安裝完後要再使用者的電腦桌面上加入捷徑之類的東西，那我們就要把東西放在[使用者的桌面]；如果要在"開始功能表"裡面加入項目那就要在[使用者的程式功能表]裡面加入東西；[應用程式資料夾]就是對應到PROGRAMFILE，也就是程式安裝之後產生的資料夾嚕~ ；好，我們先來加入最重要的exe檔(執行檔)吧。 首先點一下左邊烈表的[應用程式資料夾]，在右邊的空白處按下滑鼠右鍵會出現下圖的快顯功能表 點選[加入]→[專案輸出]，之後會看到多了一個[主要輸出從XXXX(作用中)]的項目，這就是我們的執行檔嚕~畫面上因為我的測試專案很簡單，所以只有一個專案輸出，如果你的專案有參考其他的東西(比如說有用到ReportViewer)相關的dll也會自動的幫你加入；另外如果你的專案有用到其他檔案(比如說mdb檔)或是要建立資料夾的話在這邊也要一一手動加入喔~這個部分vs2005是不會幫你自動建立的喔。 設定相關屬性 執行檔作好了，再來，安裝的時候VS怎麼知道要幫我裝到甚麼目錄裡面呢？嗯，問的好！我們就來設定一下相關設定；首先我們先了解一下，VS2005是怎麼去抓相關設定的，照下面這張圖 我們可以看到[應用程式資料夾]它的DefaultLocation屬性是設定成下面這樣 [ProgramFilesFolder][Manufacturer]\[ProductName] 上面這3個項目就會對應到某一個屬性設定，首先[ProgramFilesFolder]就是對應到使用者電腦的"Program Files"資料夾了，而[M...
閱讀完整內容

使用VS2005連接到CE5.0裝置發生錯誤(0x8973151A)

鄉親啊，如果您是參考這篇文章" 請教用VS 2005如何連上WinCE 5.0 Emulator? "來做連接到WIndows CE5.0裝置/模擬器，同時又跟我一樣在開發電腦上安裝VS2008，在連接到裝置時可能會發生下面的錯誤訊息 錯誤 0x8973151A Device Connectivity Component 怎麼會這樣？這是由於安裝了VS2008之後會將 "C:\Program Files\Common Files\microsoft shared\CoreCon\1.0\Target\wce400" 位置的DLL檔案版本更新的關係，把相關的DLL檔案重新複製一份到裝置上執行就可以再度的使用我們可愛的"遠端偵錯"了。 另外原本裝置連接設定為"使用特定的IP位置"，在安裝VS2008之後也會將其改為"用ActiveSync自動取得IP位置"，如果你的錯誤訊息是"無法連接到裝置"，記得要檢查一下這邊的設定。
閱讀完整內容

利用IP位置取得對方的Mac

要取得本機的MAC位置我們可以利用WMI或是.Net framework提供的相關功能來作，例如下面這兩篇 請問在 VB2005 中, 如何得知對方 MAC Address vb.net 2005如何獲取本機以下信息 那如果要得知遠端的MAC位址應該怎麼做，雖然可以利用arp的指令並將結果輸出到文字檔，但這樣有點麻煩，找了些參考資料後，我們可以用下面的程式碼來取得 首先是一些參考資料 RtlMoveMemory SendARP Function How to get mac address with input ip address 下面是測試的程式碼 Private Const No_ERROR = 0 _ Private Shared Function inet_addr(ByVal s As String) As Integer End Function _ Private Shared Function SendARP(ByVal DestIp As Integer, _ ByVal ScrIP As Integer, _ ByRef pMacAddr As Long, _ ByRef PhyAddrLen As Long) As Integer End Function _ Private Shared Sub CopyMemory(ByVal dst As Byte(), ByRef src As Long, ByVal bcount As Integer) End Sub Private Function GetRemoteMACAddress(ByVal sRemoteIP As String, ByRef sRemoteMacAddress As String) As Boolean Dim dwRemoteIp As Integer Dim pMacAddr As Long = 0 Dim bpMacA...
閱讀完整內容