¿ÒÇóVBÒ»¶Ô¶àµÄTCPͨÐųÌÐò´úÂë

¿ÒÇóVBÒ»¶Ô¶àµÄTCPͨÐųÌÐò´úÂë

---

S:vb.net ¶àÏß³Ì
C:vb/VB

---

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
  If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
  End If
End Sub
ÕâÊÇMSDNµÄÀý×ÓÔ­´úÂ룬µ«ÎÒÔÚ±àÒëʱ×ÜÊDZ¨´í£º¹ý³ÌÉùÃ÷ÓëͬÃûʼþ»ò¹ý³ÌµÄÃèÊö²»Æ¥Åä¡£
ÓÐË­ÖªµÀÊÇÔõô»ØÊ°¡£¿

---

http://www.m5home.com/blog/article.asp?id=169

ËäÈ»Õâ¸ö´úÂë²»ÊÇרÃÅÑÝʾһ¶Ô¶àµÄ,µ«Ò²ÊµÏÖÁËÒ»¶Ô¶à.

¿É²Î¿¼Ò»ÏÂ.

---

Éè¼Æʱ£¬ÔÚformÉÏ·ÅÖõÄwinsock¿Ø¼þsckServerµÄIndexÊôÐÔÒªÉèÖÃΪ0£¬¼´Ê¹sckServer³ÉΪÊý×飬ÕâÑùÄǸö¹ý³ÌÉùÃ÷µÄÃèÊö²Å»á·ûºÏ¡£

---

ÒýÓÃ

Éè¼Æʱ£¬ÔÚformÉÏ·ÅÖõÄwinsock¿Ø¼þsckServerµÄIndexÊôÐÔÒªÉèÖÃΪ0£¬¼´Ê¹sckServer³ÉΪÊý×飬ÕâÑùÄǸö¹ý³ÌÉùÃ÷µÄÃèÊö²Å»á·ûºÏ¡£

ÒѾ­ÉèÖÃΪ0ÁË°¡

---

ÒýÓÃ

http://www.m5home.com/blog/article.asp?id=169

ËäÈ»Õâ¸ö´úÂë²»ÊÇרÃÅÑÝʾһ¶Ô¶àµÄ,µ«Ò²ÊµÏÖÁËÒ»¶Ô¶à.

¿É²Î¿¼Ò»ÏÂ.

´ò²»¿ª°¡

---

ÒýÓÃ

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
  If I