24-12-15, 01:04 AM
هل يمكن تشغيل RegisterHotKey مع Notepad بعنه عند الكتابة فى Notepad و تم الضغط على مفتاح معين يظهر رسلة ان تم الضغط على هذا الزر
هذا هو الكود الذى استخدمة
هذا هو الكود الذى استخدمة
كود :
Public Shared MOD_SHIFT As Integer = &H4
Public Const WM_HOTKEY As Integer = &H312
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
Dim Handlex As IntPtr = Process.GetProcessById(3736).MainWindowHandle
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call RegisterHotKey(Handlex.ToInt32(), 9, 0, MOD_SHIFT)
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_HOTKEY Then
MessageBox.Show("Key are pressed.")
Me.Show()
End If
MyBase.WndProc(m)
End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Call UnregisterHotKey(Handlex.ToInt32(), 9)
End Sub