Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¸÷ÊÇʲ


Ïà¹ØÎÊ´ð£º

[¼¼ÊõÉ¢·Ö]ASPµ÷ÓÃVB±àдµÄ×é¼þ

ÔÚVB°´MVCµÄ¹¹¼Üд×é¼þ¹©ASPµ÷ÓÃ
BLL²ã


VB code:

Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub



......

¶ÔÏó´ò¿ªÊ±£¬²»ÔÊÐí²Ù×÷¡£ vb·â×°asp

ÔÚ×öÊ÷ÐÍĿ¼ʱ³öÏֵģ¬ÒÔÏÂÊDz¿·Ö´úÂë

VB code:

Function TreeMenu(id)
sql = "select * from Class where CateID=1"
rs.Open sql, cover, 1, 1
While Not rs.EOF
Response.Write rs(&quo ......

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

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

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

ÎÒÔÚÖÆ×÷°²×°°üµÄʱºò£¬½«exeÎļþ¡¢iniÎļþ¡¢Í¼Ðοؼþ£¨ ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ