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

ÓÃVB Winsock¿Ø¼þ´´½¨TCP/IP¿Í»§»ú/·þÎñÆ÷³ÌÐò


ת×Ô£ºhttp://www.52arm.com/Article_Show.asp?ArticleID=186
 
×÷Õߣºweidian    ---±¾Õ¾Ô­´´    µã»÷Êý£º4721    ·¢±íʱ¼ä£º2008-5-7    ±à¼­£ºsanzang
 
Winsock¿Ø¼þ½¨Á¢ÔÚTCP¡¢UDPЭÒéµÄ»ù´¡ÉÏ£¬Íê³ÉÓëÔ¶³Ì¼ÆËã»úµÄͨÐÅ¡£¼´Ê¹¶ÔTCP/IP²»Ì«ÊìϤµÄÓû§£¬Ê¹ÓøÿؼþÒ²¿ÉÒÔÔÚÊ®¼¸·ÖÖÓÄÚ´´½¨Ò»¸ö¼òµ¥µÄ¿Í»§»ú/·þÎñÆ÷³ÌÐò¡£ÏÂÃæÎÒÃǶÔWinsock¿Ø¼þµÄʼþ¡¢·½·¨¡¢ÊôÐÔ°´ÆäÔÚ³ÌÐòÖгöÏÖµÄ˳Ðò·Ö±ð×÷ÏêϸµÄ½éÉÜ£¬ÒÔ±ã¸üºÃµØÀí½â³ÌÐòÔ´´úÂë¡£
ÏÂÃæÊÇWinsock¿Ø¼þµÄÏà¹ØÊôÐÔ£¬·½·¨ºÍʼþ¡£(ÂÔȥһЩÔÝÓò»µ½µÄ)
*ÊôÐÔ
-------------------------------------------------------------------------
LocalHostName | ±¾µØ»úÆ÷Ãû
LocalIP | ±¾µØ»úÆ÷IPµØÖ·
LocalPort | ±¾µØ»úÆ÷ͨÐųÌÐòµÄ¶Ë¿Ú(0<¶Ë¿Ú<65536)
RemoteHost | Ô¶³Ì»úÆ÷Ãû
RemotePort | Ô¶³Ì»úÆ÷µÄͨÐųÌÐò¶Ë¿Ú
state | Á¬½ÓµÄµ±Ç°×´Ì¬(ÎĺóÓÐÏêϸ˵Ã÷)
Protocal | ʹÓÃTCP»òUDPЭÒé(ÕâÀïÎÒÃÇÑ¡‘0-sckTCPProtocal’)
--------------------------------------------------------------------------
*·½·¨
--------------------------------------------------------------------------
Listen
Listen·½·¨ÓÃÓÚ·þÎñÆ÷³ÌÐò£¬µÈ´ý¿Í»§·ÃÎÊ¡£
¸ñʽ£ºWinsock¶ÔÏó.listen
Connect
Connect·½·¨ÓÃÓÚÏòÔ¶³ÌÖ÷»ú·¢³öÁ¬½ÓÇëÇó
¸ñʽ£ºWinsock¶ÔÏó.connect [Ô¶³ÌÖ÷»úIP,Ô¶³Ì¶Ë¿Ú]
Accept
Accept·½·¨ÓÃÓÚ½ÓÊÜÒ»¸öÁ¬½ÓÇëÇó
¸ñʽ£ºWinsock¶ÔÏó.accept Request ID
Senddata
´Ë·½·¨ÓÃÓÚ·¢ËÍÊý¾Ý
¸ñʽ£ºWinsock¶ÔÏó.senddata Êý¾Ý
Getdata
ÓÃÀ´È¡µÃ½ÓÊÕµ½µÄÊý¾Ý
¸ñʽ£ºWinsock¶ÔÏó.getdata ±äÁ¿ [,Êý¾ÝÀàÐÍ [,×î´ó³¤¶È]]
Close
¹Ø±Õµ±Ç°Á¬½Ó
¸ñʽ£ºWinsock¶ÔÏó.close
*ʼþ
----------------------------------------------------------------------------
Close | Ô¶³Ì»úÆ÷¹Ø±ÕÁ¬½Óʱ´¥·¢
Connect | Á¬½Ó½¨Á¢ºÃ£¬¿ÉÒÔ½øÐÐͨÐÅʱ´¥·¢(¿Í»§¶Ë)
ConnectRequest | ÓÐÇëÇóÁ¬½Óµ½´ïʱ²úÉú(·þÎñÆ÷¶Ë)
DataArrival | ÓÐÊý¾Ýµ½´ïʱ´¥·¢
Error | ·¢Éú´íÎóʱ·¢Éú
SendProgress | Êý¾Ý´«Ëͽø¶È
-----------------------------------------------------------------------------
¡¡¡¡·þÎñÆ÷³ÌÐòµÄʵÏÖ¹ý³ÌÊÇ£º
¡¡¡¡£¨1£©·þÎñÆ÷³ÌÐò±ØÐëÉèÖúÃLocalPortÊôÐÔ£¬×÷ΪÕìÌý


Ïà¹ØÎĵµ£º

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 ......

VB´´½¨ACCESSÊý¾Ý¿âÈ«½â

VB´´½¨ACCESSÊý¾Ý¿âÈ«½â ¶¯Ì¬´´½¨Êý¾Ý¿â¡¢´´½¨±í£¬´´½¨¼Ç¼ ADO¡¢ADOX2009Äê04ÔÂ20ÈÕ ÐÇÆÚÒ» 10:17ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡Ô ......

vbʵÏַ½ðɽ´Ê°ÔµÄÆÁĻȡ´Ê¹¦ÄÜ

½ñÌìÏëÒª×öÀàËÆ½ðɽ´Ê°ÔÆÁĻȡ´ÊµÄ¹¦ÄÜ£¬ÔÚÍøÉÏÕÒÁËһЩ×ÊÁÏ£¬·¢ÏÖ¶¼ºÜ¸´ÔÓ¡£¼ÈÈ»½ðɽ´Ê°ÔÒѾ­Êµ
ÏÖÁË£¬½èÓÃÖ®:
½ðɽ´Ê°ÔÖÐ2005ÖдøÁËÒ»¸öXdictGrb.dll£¬ÆäʵÊÇÒ»¸öCOM×é¼þ£¬²¢ÇÒʵÏÖÁËÒ»¸öÈ¡´ÊµÄ²å¼þ¿ò¼Ü¡£
ÆäÖеÄÓÐÒÔÏÂÄÚÈÝ£º
1 ½Ó¿Ú
1.1 GrabProxy È¡´Ê´úÀí¶ÔÏó
Function AdviseGrab(XDictGrabSink As IXDictGra ......

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

¡ù==================================================================
¡ù±¾Á¬ÔØÎÄÕÂ˵Ã÷£º
¡ù1¡¢Á¬ÔØÊ×·¢ÓÚ¡¶Èí¼þ±¨¡·£¨http://www.sweek.com£©2006Äê21ÆÚ£¨2006Äê5ÔÂ22ÈÕ£©£»
¡ù2¡¢´Ë´ÎÍøÉÏÁ¬ÔزÉÓõÄÊÇÔ­¸å¼þ½á¹¹£¬ÄÚÈÝÓë¡¶Èí¼þ±¨¡··¢±íÂÔÓв»Í¬£»
¡ù3¡¢Ð»¾ø³ý¡¶Èí¼þ±¨¡·¼°ÆäÏà¹Ø¿¯ÎïÖ®ÍâµÄ´«Í³Ã½Ì岿·Ö»òÈ«²¿×ªÔØ ......

Çó×¢ÊÍVB³ÌÐò£¬Ö»Òª´ó¸ÅÕû¾äÒâ˼¼´¿É£¬¼±Óã¡£¡£¡

Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
        frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '³ÌÐò¶Î
         ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ