Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

VBÏÂOCX¿É·ñʵÏÖÈçϹ¦ÄÜ£¿ - VB / ÍøÂç±à³Ì

ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......

vb activex ´«µÝ²ÎÊý - VB / COM/DCOM/COM+

ÎÒÓÃVBдÁËÒ»¸öactivex£¬ÏÖÔÚÏëÔÚjsÀïÃæÏòactivex´«Öµ£¬Ð´ÁËÒ»¸öpublic·½·¨²»ÐУ¬Ð´ÁËÒ»¸öÊôÐÔÒ²²»ÐУ¬Çë¸ßÊÖÖ¸µã£¬ÔÚÏߵȺò,´úÂëÈçÏÂ
±äÁ¿ÉùÃ÷
Dim dirName As String = ""
·½·¨
Public Sub UrlName( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ