vb.net – VB模拟按键

前端之家收集整理的这篇文章主要介绍了vb.net – VB模拟按键前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
在我的程序中,我想模拟按下MediaPlayPause键.就像一张纸条,我不想检查按键是否按下或按下,我想通过我的程序按键.

我尝试过SendKeys.Send,但特殊键仅限于{Enter}和{Tab}等.

好的,我从这个答案中移植了c#代码https://stackoverflow.com/a/7182076/2000557

我不知道VB.Net,但使用本指南复制并不太难:http://msdn.microsoft.com/en-us/library/172wfck9.aspx

无论如何,我通过点击事件在表单上放了一个按钮.

Imports System.Runtime.InteropServices

Public Class Form1

    'this constant represents the hex value for the key to send to user32.dll
    Const APPCOMMAND_MEDIA_PLAY_PAUSE = &HE0000
    'this constant represents which command. Sort of like the function in user32.dll we are calling.
    Const WM_APPCOMMAND = &H319

    'this declares the user32.dll call to SendMessageW we are making
    Declare Auto Function SendMessageW Lib "user32.dll" Alias "SendMessageW" (
    ByVal hWnd As Integer,ByVal Msg As Integer,ByVal wParam As Integer,ByVal lParam As Integer) As Integer

    Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        'call the SendMessage function with the current window handle,the command we want to use,same handle,and the button we want to press
        SendMessageW(Handle,WM_APPCOMMAND,Handle,APPCOMMAND_MEDIA_PLAY_PAUSE)
    End Sub
End Class

我通过打开WMplayer测试了它,按钮播放/暂停了我的音乐.如果您需要任何其他帮助,请告诉我.如果要实现其他密钥,请参考以下内容http://msdn.microsoft.com/en-us/library/windows/desktop/ms646275(v=vs.85).aspx

猜你在找的VB相关文章