日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
全面講解實(shí)現(xiàn)VB.NET全局熱鍵

今天在玩游戲的時(shí)候突然有個(gè)想法，想想可以用VB.NET全局熱鍵可以實(shí)現(xiàn)，現(xiàn)在就看看文章吧。想要一個(gè)熱鍵功能~習(xí)慣了使用熱鍵...我想想也是...于是就上網(wǎng)找了找VB全局熱鍵的寫(xiě)法... 一看才知道VB.NET全局熱鍵都很占資源大都用DO~LOOP來(lái)監(jiān)視.不喜歡.于是在查閱一些關(guān)于GetWindowLong與HotKey的資料后半抄半寫(xiě)的情況下寫(xiě)了以下程序.全局鍵盤(pán)熱鍵。

#T#有統(tǒng)計(jì)表明，很大一部分程序缺陷和內(nèi)存的錯(cuò)誤訪問(wèn)有關(guān)。正是因?yàn)橹羔樦苯雍蛢?nèi)存打交道，所以指針一直以來(lái)被看成一個(gè)危險(xiǎn)的東西。以至于不少語(yǔ)言，如著名的 JAVA，都不提供對(duì)指針操作的支持，所有的內(nèi)存訪問(wèn)方面的處理都由編譯器來(lái)完成。而象C和C++，指針的使用則是基本功，指針給了程序員極大的自由去隨心所欲地處理內(nèi)存訪問(wèn)，很多非常巧妙的東西都要依靠指針技術(shù)來(lái)完成。

新建立一個(gè)FORM~

 
 
    
  
  
  1. Private Sub Form_Load() 
    2. 
  
  
  2. Dim ret As Long 
    3. 
  
  
  3. preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC) 
    4. 
  
  
  4. ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc) 
    5. 
  
  
  5. idHotKey = 1
    6. 
  
  
  6. Modifiers = MOD_ALT + MOD_CONTROL 
    7. 
  
  
  7. uVirtKey = vbKeyA
    8. 
  
  
  8. ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey) 
    9. 
  
  
  9. End Sub 
    10. 
  
  
  10. 
  
  
  11. Private Sub Form_Unload(Cancel As Integer) 
    12. 
  
  
  12. Dim ret As Long 
    13. 
  
  
  13. ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc) 
    14. 
  
  
  14. Call UnregisterHotKey(Me.hwnd, uVirtKey) 
    15. 
  
  
  15. 
  
  
  16. End Sub 
    17.

新建立一個(gè)模塊

 
 
    
  
  
  1. Option Explicit 
    2. 
  
  
  2. 
  
  
  3. Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
    4. 
  
  
  4. Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
    5. 
  
  
  5. Declare Function CallWindowProc Lib "User32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
    6. 
  
  
  6. Declare Function RegisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long 
    7. 
  
  
  7. Declare Function UnregisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As Long) As Long 
    8. 
  
  
  8. 
  
  
  9. Public Const WM_HOTKEY = &H312 
    10. 
  
  
  10. Public Const MOD_ALT = &H1 
    11. 
  
  
  11. Public Const MOD_CONTROL = &H2 
    12. 
  
  
  12. Public Const MOD_SHIFT = &H4 
    13. 
  
  
  13. Public Const GWL_WNDPROC = (-4) 
    14. 
  
  
  14. 
  
  
  15. Public preWinProc As Long 
    16. 
  
  
  16. Public Modifiers As Long, uVirtKey As Long, idHotKey As Long 
    17. 
  
  
  17. 
  
  
  18. Private Type taLong 
    19. 
  
  
  19. ll As Long 
    20. 
  
  
  20. End Type 
    21. 
  
  
  21. 
  
  
  22. Private Type t2Int 
    23. 
  
  
  23. lWord As Integer 
    24. 
  
  
  24. hWord As Integer 
    25. 
  
  
  25. End Type 
    26. 
  
  
  26. 
  
  
  27. Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
    28. 
  
  
  28. If Msg = WM_HOTKEY Then 
    29. 
  
  
  29. If wParam = idHotKey Then 
    30. 
  
  
  30. Dim lp As taLong, i2 As t2Int 
    31. 
  
  
  31. lp.ll = lParam
    32. 
  
  
  32. LSet i2 = lp
    33. 
  
  
  33. If (i2.lWord = Modifiers) And i2.hWord = uVirtKey Then 
    34. 
  
  
  34. msgbox "你按下了熱鍵哦~" 
    35. 
  
  
  35. End If 
    36. 
  
  
  36. End If 
    37. 
  
  
  37. End If 
    38. 
  
  
  38. Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam) 
    39. 
  
  
  39. End Function  
    40.

當(dāng)前文章：全面講解實(shí)現(xiàn)VB.NET全局熱鍵
網(wǎng)址分享：http://m.5511xx.com/article/dpeoidc.html