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

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ÔÚVBÖеÄÓ¦ÓÃ

¡¡¡¡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 µÄÓ ......

º§ÈËÌýÎÅ,VBÓöµ½ÕâÏÖÏó,´ó¼ÒСÐÄÍÛ~

YXOnlineÒѾ­½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾ­ÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......

VBÖи÷ÖÖÊý¾ÝÀàÐÍת»»º¯Êý

1. ¸÷ÖÖ½øÖÆת»»º¯Êý Ò»°ãµÄÊý¾Ý½øÖÆ°üÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØϵ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,
¡¡¡¡1.
 ¸÷ÖÖ½øÖÆת»»º¯Êý
¡¡¡ ......

Asp.netÁ¬½ÓÊý¾Ý¿â½Ì³Ì£¨vb.net£©

Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â: 
<%@ Import Namespace="System.Data" %> 
<%@ Import NameSpace="System.Data.SqlClient" %> 
<script laguage="VB" runat="server"> 
sub page_load(sender as Object ......

VB²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ