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

VBÖÐWinsock¿ØÖƵÄUDPЭÒéµÄʹÓÃ

¡¡¡¡UDPЭÒé»ù´¡£º
¡¡¡¡UDP(User Datagram
Protocol)ÊÇÒ»ÖÖÎÞÁ¬½ÓЭÒ飬ÓëTCP²Ù×÷²»Í¬£¬¼ÆËã»ú¼ä²¢²»ÐèÒª½¨Á¢Ò»¸öÁ¬½Ó£¬Í¬Ê±£¬Ò»¸öUDPÓ¦ÓÿÉͬʱ×÷ΪӦÓõĿͻ§»ò·þÎñÆ÷·½¡£
¡¡¡¡ÓÉÓÚUDPЭÒé²¢²»ÐèÒª½¨Á¢Ò»¸öÃ÷È·µÄÁ¬½Ó£¬Òò´Ë½¨Á¢UDPÓ¦ÓÃÒª±È½¨Á¢TCPÓ¦Óüòµ¥µÃ¶à¡£ÔÚTCPÓ¦ÓÃÖУ¬Ò»¸öWinsock¿ØÖƱØÐëÃ÷È·µØÉèÖóɓ¼àÌý”£¬¶øÆäËüWinsock¿ØÖÆÔò±ØÐëʹÓÃConnect·½·¨À´³õʼһ¸öÁ¬½Ó¡£
¡¡¡¡Ê¹ÓÃUDPЭÒ飬ÔÚÁ½¸öWinsock¿ØÖÆ¼ä½øÐÐÊý¾ÝµÄ·¢ËÍ£¬ÔÚÁ¬½ÓµÄÁ½¶Ë±ØÐëÍê³ÉÒÔÏÂÈý²½£º
¡¡¡¡1.ÉèÖÃRemoteHostÊôÐÔΪÆäËü¼ÆËã»úµÄÃû³Æ£»
¡¡¡¡2.ÉèÖÃRemotePortÊôÐÔΪµÚ¶þ¸öWinsock¿ØÖƵÄLocalPortÊôÐÔµÄÖµ£»
¡¡¡¡3.ÉêÇëBind·½·¨¡£
¡¡¡¡Í¨¹ýʹÓ÷½·¨Bind£¬Ôò¿É½«¸ÃWinsock¿ØÖÆÀ¦°óµ½Ò»¸ö±¾µØ¶Ë¿Ú£¬ÒÔ±ã¸ÃWinsock¿ØÖÆÊ¹Óøö˿ÚÀ´½øÐÐÀàËÆTCPµÄ“¼àÌý”¹¦ÄÜ£¬²¢·ÀÖ¹ÆäËüÓ¦ÓÃʹÓøö˿ڡ£
¡¡¡¡Ê¹ÓøÃЭÒé´«ËÍÊý¾Ý£¬Ê×ÏÈÉèÖÿͻ§¼ÆËã»úµÄLocalPortÊôÐÔ¡£¶ø×÷Ϊ·þÎñÆ÷µÄ¼ÆËã»ú½öÐèÒªÉèÖÃRemoteHostÊôÐÔΪ¿Í»§¼ÆËã»úµÄIPµØÖ·»òÓòÃû¼´¿É£¬²¢½«ÆäRemotePortÊôÐÔÉèÖóɿͻ§¼ÆËã»úÉϵÄLocalPortÊôÐÔ¼´¿É£¬È»ºó¾Í¿Éͨ¹ýÉêÇëSendData·½·¨À´¿ªÊ¼ÐÅÏ¢·¢ËÍ£¬¿Í»§¼ÆËã»úÔò¿ÉÔÚÆäDataArrialʼþÖÐʹÓ÷½·¨GetDataÀ´»ñÈ¡·¢Ë͵ÄÐÅÏ¢¡£
¡¡¡¡ÏÂÀý¾ßÌåÑÝʾÁËÒ»¸ö“̸»°”Ó¦Óã¬ÒÔÔÊÐíÏ໥¼ä½øÐÐʵʱµÄ½»Ì¸¡£
¡¡¡¡UDPÓ¦ÓÃÒ»£º
¡¡¡¡½¨Á¢Ò»¸öбê×¼EXE¹¤³ÌÎļþ£¬ÍÏ·ÅÒ»¸öWinsock¿ØÖƵ½±íµ¥ÉÏ£¬Ìí¼ÓÁ½¸öÎı¾¿òµ½±íµ¥ÉÏ£¬È»ºó½øÐÐÒÔÏÂÊôÐÔµÄÉèÖãº
¡¡¡¡±íµ¥(Form):Name=“frmPeerA” Caption=“UDP Application(1)”
¡¡¡¡Winsock¿ØÖÆ£ºName=“udpPeerA” Protocol=“sckUDPProtocol”
¡¡¡¡Îı¾¿ò1(TextBox):
Name“txtSend”
¡¡¡¡Îı¾¿ò2(TcxtBox): Name=“txtOutput” MultiLine£­True ScrollBars=2
¡¡¡¡È»ºó´ò¿ª´úÂë´°¿Ú£¬·Ö±ðÔÚÏàÓ¦µÄʼþÏÂÊäÈëÒÔÏ´úÂ룺
¡¡¡¡Private Sub Form_Load()
¡¡¡¡ With
udpPeerA
¡¡¡¡ .RemoteHost=“197.1.1.2” 'ÒªÁ¬½Óµ½µÄ¼ÆËã»úÃû
¡¡¡¡ .RemotePort=1010
'ÒªÁ¬½Óµ½µÄ¶Ë¿ÚºÅ
¡¡¡¡ .LocalPort=1011 '¸ÃWinsock¿ØÖƽ«ÒªÊ¹Óõı¾µØ¶Ë¿ÚºÅ£¬±ãÓÚÆäËü¶ËÓë¸ÃWinsockͨѶ
¡¡¡¡
.Bind 1011 '½«¸ÃWinsock¿ØÖư󶨵½¸Ã±¾µØ¶Ë¿Ú
¡¡¡¡ EndWith
¡¡¡¡End Sub
¡¡¡¡Private Sub
txtSend_Change()
¡¡¡¡ udpPe


Ïà¹ØÎĵµ£º

VBÖÐɾ³ýÊý×éÖØ¸´ÔªËØ

Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......

vb Active ¿Ø¼þ¡¡¼¯ºÏÀà¡¡ÎÊÌâ

ÒýÑÔ:
         ×öÒ»¸ö¿Ø¼þ, ÓÃÓÚ Êý¾Ý²ÉÑùÈçʾ²¨Æ÷, ¿ÉÒÔÌí¼Ó,ɾ³ýÇúÏß, ÉèÖÃÇúÏßµÄÏà¹ØÊôÐÔ: ÏßÐÍ,ÑÕÉ«,µÈ...
¹ý³Ì:
        ¡¡ÏÈ´´½¨ Ïß Àà,  ÔÚÓû§¿Ø¼þÀïʵÏÖ Ïß ¶ÔÏó´´½¨,  ²¢ÉùÃ÷Ò»¸ö ¼¯ºÏ, ÓÃÓÚ ´æ·Å½¨Á¢µÄÏß¶ÔÏó.
ÎÊÌâ ......

ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ

ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
PMP ¹Ø¾¢ËÉ
     ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
¶ÁÈ¡¡¢Ð޸Ķþ½øÖÆÎļþÈÔÊǴ󲿷ֱà³ÌÓïÑԵĻù±¾¿ª·¢¼¼ÄÜ¡£¿ÉÒÔÌá¸ß´¦ÀíÎļþЧÂÊ£¬Ö÷ÒªÓ¦ÓÃÔÚͨÐÅ¡¢½»»»Êý¾ÝµÈ·½Ãæ¡£
'open   filena ......

ÀûÓÃVB×ÔÖÆOCX¿Ø¼þ

¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......

ÔÙ̸ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥

'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºButton.ctl
'* ³ÌÐò¹¦ÄÜ£ºÍ¸Ã÷¸¡¶¯°´Å¤
'* ×÷Õߣºlyserver£¬×îºóÐÞ¸ÄÈÕÆÚ£º2009Äê11ÔÂ
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ