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

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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

VBÓëLINUXÏÂÊý¾Ý¿âÁ¬½ÓµÄÎÊÌâ

¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡­¡­µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©ÓÃVBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼Ò ......

VBµ÷ÓÃwordºó³öÏÖµÄÎÊÌâ

ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)

È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc


ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË

½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ

ÎÒµ÷ÓõÄw ......

InstallShieldÖÆ×÷VB°²×°°ü

ÎÒÓÃInstallShield 10.0ÖÆ×÷ÁËÒ»¸öVB°²×°°ü
ÎÊÌâÊÇ£º
      ÔÚ±ðµÄ»ú×ÓÉϰ²×°ºó£¬ÔÚÔËÐгÌÐòµÄʱºò£¬ÌáʾdllÕÒ²»µ½£¬²»Äܵ÷Óá£

ÎÒÔÚÖÆ×÷°²×°°üµÄʱºò£¬½«exeÎļþ¡¢iniÎļþ¡¢Í¼Ðοؼþ£¨ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ