VB HOOK API
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
ÒÔϵÄÊÇ·ÅÔÚÄ£¿éÄڵĴúÂ룺
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hhook As Long) As Long
Public Function testhook(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MsgBox "ÔËÐе½ÎÒÁË"
End Function
ÔËÐÐÒÔÉÏ´úÂëºó£¬ÎÒÖ»°´ÁËһϼüÅÌ£¬ÎªÊ²Ã´»áµ¯³ö2¸ö¶Ô»°¿ò£¿µ±¹Ø±ÕµÚÒ»¸öµÄʱºò »¹»áµ¯³öÒ»¸ö£¬ÄÇÑù¾ÍÒ»¹²µ¯³öÁË3¸ö¡°ÔËÐе½ÎÒÁË¡±ÕâÊÇÔõô»ØÊ£¿Õâ¸ö¹³×ÓÊÇÔõôÔËÐеİ¡£¿ »¹ÓÐÄǸöµ±ÎÒ°ÑÒÔÉÏ´úÂëmsgbox "ÔËÐе½ÎÒÁË" »»³Émsgbox ncode & wParam & lParam µÄʱºò Ϊʲô³öÏÖµÄÊÇ78,"310001"£¬¡°-------¡±ÕâÖÖ¸ñʽµÄ×Ö·ûÄØ£¿ Ôõô²»ÊÇÎÒ¼üÅ̵İ´¼ü×Ö·ûÄØ£¿ÄÇÒªÔõôת»¯³É¼üÅÌÉϵÄ×Ö·û£¿Çë¸÷λָµãÒ»ÏÂ
ÓÉÓÚÎÒ¸ÕѧϰÕâ¹³×Ó£¬ËùÒԺܶ඼²»ÖªµÀ £¬Ò²°Ù¶È²»µ½¡£Ï£Íû´ó¼Ò°ï°ïÎÒ£¬ÔÁÂÎÒÎÊЩ»ù´¡ÎÊÌ⡣лл
ÄãÕâÖ»ÊǼòµ¥µÄ¼üÅ̹³×Ó²»Ëãapihook
ÄãÒªÏÔʾ¼üÅ̵İ´¼üµÄ»°Òª×ª»»
ÄãºóÃæµÄncodeµÄ78¾ÍÊÇÄ㰴ϵļüÅ̵ÄaciiÂ룬ת»»ÁËÒÔºó¾Í¿ÉÒÔÁË
78µÄ¶ÔÓ¦ÖµÊÇN
¹³×Ó°²×°ºó,²»ÓÃÁË,ÊÇÐèÒªÐ¶ÔØµÄ.
.......»¹Ã»°ÑHOOKÓëHOOK API¸÷ÊÇʲ
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡¡µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©ÓÃVBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼Ò ......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)
È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc
ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË
½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ
ÎÒµ÷ÓõÄw ......
ÎÒÓÃInstallShield 10.0ÖÆ×÷ÁËÒ»¸öVB°²×°°ü
ÎÊÌâÊÇ£º
ÔÚ±ðµÄ»ú×ÓÉϰ²×°ºó£¬ÔÚÔËÐгÌÐòµÄʱºò£¬ÌáʾdllÕÒ²»µ½£¬²»Äܵ÷Óá£
ÎÒÔÚÖÆ×÷°²×°°üµÄʱºò£¬½«exeÎļþ¡¢iniÎļþ¡¢Í¼Ðοؼþ£¨ ......