VBÄܼǼÖÐÎĵļüÅ̼Ǽ
http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
ÄܼǼµ½ÖÐÎÄ£¬È±µãÊDz»ÄܼǼµ½Ctrl£¬shift£¬alt£¬capslock£¬home£¬del£¬pageUP£¬pageDownµÈ¼þµÄ°´ÏÂ״̬¡£
vb6´úÂëÈçÏ£º
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf SubWndProc) '×ÓÀ໯´°¿Ú£¬ÒÔ±ãÄÜ´¦ÀíDLL·¢³öµÄ×Ô¶¨ÒåÏûÏ¢
DLLstartHOOK Me.hWnd '³õʼ»¯DLL
DLLsetHOOKState True '´ò¿ªÊäÈë·¨HOOK
' -----------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
DLLsetHOOKState False '¹Ø±ÕÊäÈë·¨HOOK
DLLstopHOOK 'Ð¶ÔØÊäÈë·¨HOOK
Call SetWindowLong(Me.hWnd, GWL_WNDPROC, PrevWndProc) '»¹Ô×ÓÀ໯´°¿Ú
' ----------------
End Sub
‘-----------------------Ä£¿é
Option Explicit
' ------------------------------------ÒÔÉÏÊÇWINIOº¯ÊýÉùÃ÷-----------------------------------------------
Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public 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
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'---------------------------------APIº¯ÊýµÄÉùÃ÷-----------------------
Public Declare Function DLLstartHOOK Lib "hxwdllwx.dll" (ByVal hWnd As Long) As Long '³õʼ»¯¹³×Ó
Public Declare Function DLLstopHOOK Lib "hxwdllwx.dll" () As Long 'Ð¶ÔØ¹³×Ó
Public Declare Function DLLsetHOOKState Lib "hxwdllwx.dll" (ByVal myState As Boolean) As Long '´ò¿ª»ò¹Ø±Õ¹³×Ó
Public Declare Function DLLGetPubString Lib "hxwdllwx.dll" () As String '»ñµÃÊäÈë·¨ÊäÈë
Public Declare Function DLLSetPubString Lib
Ïà¹ØÎĵµ£º
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......
VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý ......
Óɵ×ÖÁÉÏÊÇ£º
• ÍйÜ×ÊÔ´
• WMI »ù´¡½á¹¹
• ʹÓÃÕß
ÍйÜ×ÊÔ´
ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼»òÎïÀí×é¼þ£¬Í¨¹ýʹ ......