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

ÔÚvbÖÐʹÓÃIphlpapi.dll»ñÈ¡ÍøÂçÐÅÏ¢ µÚÒ»Õ ǰÑÔ

¡ù==================================================================
¡ù±¾Á¬ÔØÎÄÕÂ˵Ã÷£º
¡ù1¡¢Á¬ÔØÊ×·¢ÓÚ¡¶Èí¼þ±¨¡·£¨http://www.sweek.com£©2006Äê21ÆÚ£¨2006Äê5ÔÂ22ÈÕ£©£»
¡ù2¡¢´Ë´ÎÍøÉÏÁ¬ÔزÉÓõÄÊÇÔ­¸å¼þ½á¹¹£¬ÄÚÈÝÓë¡¶Èí¼þ±¨¡··¢±íÂÔÓв»Í¬£»
¡ù3¡¢Ð»¾ø³ý¡¶Èí¼þ±¨¡·¼°ÆäÏà¹Ø¿¯ÎïÖ®ÍâµÄ´«Í³Ã½Ì岿·Ö»òÈ«²¿×ªÔØ£»
¡ù4¡¢Ð»¾øÈκÎÊÕ·ÑýÌå¡¢ÍøÂç×ªÔØ£»
¡ù5¡¢Ô­×÷Õߣºuruseibest £¬blog£ºhttp://blog.csdn.net/uruseibest£»
¡ù6¡¢ÈçÓÐÆäËüÒÉÎÊ£¬ÇëÁªÏµ×÷Õߣ»
¡ù7¡¢ÈçÓÐ×ªÔØ£¬±ØÐëÁ¬Í¬±¾ËµÃ÷Ò»²¢·¢±í£¬·ñÔò½«×·¾¿×ªÔØÕßÔðÈΡ£
¡ù======================================================================
 
 
µÚÒ»Õ ǰÑÔ
Windows 98ÒÔÉϵIJÙ×÷ϵͳÔÚϵͳĿ¼Ï¶¼´øÓÐiphlpapi.dllÕâ¸ö¶¯Ì¬Á´½Ó¿âÎļþ£¬Ëü¿ÉÒÔ°ïÖú³ÌÐòÔ±·½±ãµØ»ñÈ¡¼ÆËã»úÍøÂçÐÅÏ¢¡£¶ÔÓÚC³ÌÐòÔ±À´Ëµ£¬Ö»ÒªÓÐiphlpapiµÄÍ·Îļþ£¬µ÷ÓÃiphlpapi.dllÊǺܼòµ¥µÄÊ£¬µ«ÊǶÔÓÚVb³ÌÐòÔ±ÔòÊDZȽÏÀ§ÄѵÄÎÊÌâ¡£±¾ÎĽ«¾ÍVbÖе÷ÓÃiphlpapi.dllÀ´½éÉÜiphlpapiµÄʹÓá£
±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/UruseiBest/archive/2006/12/20/1450351.aspx


Ïà¹ØÎĵµ£º

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ʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀ ......

½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò


½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←ѰÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------- ......

pb調ÓÃVB寫µÄDLL·½·¨

1¡¢ÏȰÑVB±àÒëºÃµÄDLLÎļþ·Åµ½ÏµÍ³µÄSYSTEM32Îļþ¼ÐÏÂ
2¡¢ÓÃregsvr32×¢²áÕâ¸öDLLÎļþ
3¡¢Pbϵ÷ÓÃ
oleobject   ole_1
ole_1=create   oleobject
long   ll_ret
ll_ret=ole_1.connecttonewobject( 'add.addstring ')//ÆäÖÐaddΪVBµÄ¹¤³ÌÃû£¬addstringΪVBµÄÀàÄ£¿éÃû
string   ls_message, ......

c#Óë×îÅ£vbËã·¨±ÈÆ´ by Error


 
ÎÄÕÂÀ´Ô´: http://www.zoesan.com By Error 302777528×ªÔØÇë×¢Ã÷³ö´¦
ÒÔÉÏvbÓõ½Ö¸Õë¼¼Êõ²éÕÒ×Ö·û´®Óëc#Ò»°ãµÄ.indexof()²éÕÒÏà±È½Ï£¬Ã÷ÏÔ¿´³öË­¿ìË­Âý¡£
VB:
Option Explicit
'Ö¸Õë·½·¨²Ù×÷×Ö·û´®
'CopyÒ»¸ö×Ö·û´®µ½»º´æÖÐ
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ