VB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
±¾ÎÄÒý×Ô¡£¸ÐлԴ´£¡http://useway.blog.51cto.com/736087/176913
VBÎÞËù²»ÄÜÖ®Èý£ºVB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://useway.blog.51cto.com
VBÒ»Ö±±»ÈÏΪÊÇÒ»¸ö¿ÉÒÔͨ¹ý¼òµ¥µÄ·½·¨£¬Íê³ÉWindows½çÃæÓ¦ÓóÌÐòµÄÒ»¸öÓïÑÔ¡£¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËÆºõÊ×ÏÈÏëµ½µÄ¾ø¶Ô²»ÊÇVB£¬¶ø´ó²¿·Ö³ÌÐòÔ±Ïëµ½µÄÒ»¶¨ÊÇVC¡£ÎÒÃǽñÌì¾Í½éÉÜÒ»ÖÖÓÃVB½Ø»ñWindowsÈ«¾ÖÏûÏ¢µÄ·½·¨¡£
Ò»¡¢WindowsÈ«¾ÖÏûÏ¢½éÉÜ
ÎÒ²»Ï²»¶Ó÷dz£»ÞɬµÄÓïÑÔÀ´½éÉÜÒ»¸ö¼òµ¥µÄÊÂÎÒò´Ë£¬ÎÒÏëÔÚ±¾ÆªÎÄÕÂÖоÍÓÃͨË×µÄÓïÑÔÀ´½âÊÍÕâ¸ö¸ÅÄî°É¡£
ʲôÊÇWindowsÈ«¾ÖÏûÏ¢ÄØ£¿
ÀýÈ磺Êó±êÔÚ×Ô¶¨ÒåµÄ´°¿ÚÖÐÒÆ¶¯µÄλÖã¬ÎÒÃÇ¿ÉÒÔͨ¹ýÕâ¸öFormÖеÄÏà¹Ø·½·¨»ñÈ¡£¬È»¶ø£¬Èç¹ûÊó±ê²¢Ã»ÓÐÔÚ×Ô¼ºµÄFormÖÐÒÆ¶¯ÓÖ¸ÃÔõô»ñµÃÆäλÖÃÄØ£¿
ÔÙÀýÈ磺¼üÅ̵ÄÇû÷¶¯×÷£¬ÔÚ±ðµÄµØ·½Çû÷¼üÅÌ£¬²¢Ã»ÓÐÔÚ×Ô¼ºµÄFormÖÐÇû÷¼üÅÌ£¬Ôõô²ÅÄÜ»ñµÃ°´¼üµÄ¾ßÌå¼üֵĨ£¿
¶Ôµ¥Æ¬»úÓÐÁ˽âµÄÅóÓѶ¼ÖªµÀ£¬Êó±êºÍ¼üÅ̵IJÙ×÷¶¼ÊÇÀûÓõÄÊÇ“Öжϔ´¥·¢Ê¼þÀ´Íê³ÉµÄ£¬ÄÇôµ±ÏµÍ³“ÖжϔµÄʱºò£¬¾Í»á·¢³öÏûÏ¢¸ø²Ù×÷ϵͳ£¬¶øÕâЩÏûÏ¢¾ÍÊÇWindowsÈ«¾ÖÏûÏ¢¡£
¶þ¡¢¹³×Ó¼ò½é
¹³×ÓÊÇͨ¹ýÓ¢ÎÄHook·Òë¹ýÀ´µÄ£¬ËùνµÄ¹³×Ó¾ÍÊÇÔÚWindowsÈ«¾ÖÏûÏ¢´«µÝµ½²Ù×÷ϵͳ֮ǰ½øÐнػñ£¬¾¹ý´¦ÀíºóÔÙ´«µÝ¸ø²Ù×÷ϵͳ»òÕ߯äËû¹³×ӵijÌÐò¡£
ÏëÏë¿´£¬¹³×ÓÌýÆðÀ´Ïñʲô³ÌÐò£¿
¶Ôû´í£¬ºÚ¿Í³ÌÐò£¬Ä¾Âí³ÌÐò£¬¶¼ÊÇͨ¹ý¹³×ӵķ½·¨»ñÈ¡Êó±ê¼üÅ̵ÄÏàÓ¦²Ù×÷ÐÅÏ¢£¬»¹»ñÈ¡ÃÜÂë»òÆäËûÓÐÓÃÐÅÏ¢µÄ¡£
µ«ÊÇ£¬¹³×ÓÆä±¾Éí²¢²»ÊDz¡¶¾£¬¶øÊÇÌṩ¸øÎÒÃdzÌÐòÔ±Ò»ÖÖ»ñÈ¡²Ù×÷ϵͳ¶¯×÷µÄÒ»¸ö·½·¨£¬Õâ¸ö·½·¨ÓÐʱºò·Ç³£ÓÐÓ㬿ÉÒԷdz£·½±ãµÄ¿ª·¢Õë¶Ô²Ù×÷ϵͳµÄÓÅÖʳÌÐò¡£
Èý¡¢ÏûÏ¢ÖÖÀà
1¡¢WH_CALLWNDPROCºÍWH_CALLWNDPROCRET
ÕâÁ½ÖÖÏûÏ¢ÊÇ·¢Ë͵½´°¿Ú¹ý³ÌµÄÏûÏ¢£¬ÏµÍ³ÔÚÏûÏ¢·¢Ë͵½½ÓÊÕ´°¿Ú¹ý³Ì֮ǰµ÷ÓÃWH_CALLWNDPROC£¬²¢ÇÒÔÚ´°¿Ú¹ý³Ì´¦ÀíÍêÏûÏ¢Ö®ºóµ÷ÓÃWH_CALLWNDPRO ¡£
2¡¢WH_CBT
ËüÊǼ¤
Ïà¹ØÎĵµ£º
VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©
×÷ÕߣºÖÓÉù
ÌâÍâ»°£º
×î½ü£¬Ð´Á˼¸Æª¡¶VBÎÞËù²»ÄÜ¡·ÏµÁУ¬±¾ÏµÁÐÎÄÕµĴ´×÷³õÖÔ¾ÍÊÇҪȥµß¸²ÖÚ¶à³ÌÐòÔ±¶ÔÓÚ“·ÇÃæÏò¶ÔÏó”ÓïÑÔ“VB”µÄ³É¼û£¡
µ±È»£¬ÎÒÒ²ÔçÓÐÔ¤ÆÚ£¬´ËÑÔÒ»³ö±ØÈ»ÕÐÖ²»Ã÷ÕæÏàµÄȺÖڵēΧ¹¥”£¬È»¶ø£¬ÎÒ»¹ÊÇÒª¼ ......
Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e ......
¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
м¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......
1¡¢´óµÀÖÁ¼ò
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵöͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
& ......
Private Function Utf8ToUni(B() As Byte) As String
'²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
Dim BU As Long
On Error Resume Next
BU = -1: BU = UBound(B)
If BU = -1 Then Exit Function
On Error GoTo 0
&n ......