Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÓüüÅÌÈ«¾ÖHOOKµÄÎÊÌâ - VB / API

Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim blnHook As Boolean
  Dim p As KBDLLHOOKSTRUCT
  Dim IsbKeyUp As Boolean
  Dim AltKey As Boolean


  Call CopyMemory(p, ByVal lParam, Len(p))

  AltKey = ((GetKeyState(18) And &H4000) = &H4000) ''''''''''ALT¼ü
   
  If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Then
  IsbKeyUp = False
  ElseIf wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
  IsbKeyUp = True
  End If

  If AltKey And main.AltChk.Value Then

  Debug.Print "1" & AltKey
  If p.vkCode = vbKeyQ Then Call keybd_event(103, 0, IIf(IsbKeyUp, 2, 0), 0): blnHook = True
  End If

  If blnHook Then
  LowLevelKeyboardProc = 1
  Else
  Call CallNextHookEx(WH_KEYBOARD_LL, nCode, wParam, lParam)
  End If

End Function


ÕâÊÇÎÒÀ¹½Ø¼üÅ̰´¼üµÄº¯Êý¡£
ÎÒҪʵÏÖ¡°½«°´ALT+Q¸Ä³É°´Ð¡¼üÅÌ7¡±

ÕâÑùΪʲô²»ÐÐÄØ£¿ÎÒdebug.print·¢ÏÖÊǸĹýµÄ£¬µ«ÊÇÔÚÆäËüµØ·½°´ALT+QÈ´´ò²»³ö7£¬Çó¸ßÊÖ½â´ð
http://download.csdn.net/source/1899084

¼üÅÌHOOKÎһᡣ¡£ÏñÄÇÑùµÄ°Ñy¸Ä³ÉnÎÒҲûÎÊÌâ¡£Ö»ÊÇÎҵijÌÐ


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ