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
ËüÊǼ¤
Ïà¹ØÎĵµ£º
¡¡¡¡SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 2000 ÖÐµÄ SQL Server ÆóÒµ¹ÜÀíÆ÷ËùʹÓõÄÓ¦ÓóÌÐò½Ó¿Ú (API);Òò´ËʹÓà SQL-DMO µÄÓ ......
YXOnlineÒѾ½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......
1. ¸÷ÖÖ½øÖÆת»»º¯Êý Ò»°ãµÄÊý¾Ý½øÖÆ°üÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØϵ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,
¡¡¡¡1.
¸÷ÖÖ½øÖÆת»»º¯Êý
¡¡¡ ......
Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â:
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<script laguage="VB" runat="server">
sub page_load(sender as Object ......
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 ......