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
Ïà¹ØÎĵµ£º
×î¼òµ¥µÄ·½·¨ÊÇʹÓÃfilesystemobject¶ÔÏó¡£¶øËü²¢·ÇVBÄÚÖöÔÏó£¬
ÐèÒýÓòſÉÒÔʹÓá£
1£®filesystemObject¶ÔÏóÒýÓÃ
“¹¤³Ì/ÒýÓÃ/microsoft scription Runtime”
ÔÚ¶ÔÏóä¯ÀÀÆ÷´°¿ÚÖÐÑ¡“scripting”Ä£¿é£¬¿´µ½ÔöÁËÐí¶à¶ÔÏó£¬
drive filesystemobject textstream &nbs ......
¡¾º¯Êý¡¿
GetFileVersionInfo
¡¾²Ù×÷ϵͳ¡¿
Win9X:Yes
WinNT:Yes
¡¾ÉùÃ÷¡¿
GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" &n ......
¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......
³¤¾ÃÒÔÀ´£¬ÓÉÓÚ²»ÄÜÖ±½Ó»ñµÃVBÀà³ÉÔ±º¯ÊýÖ¸Õ룬ÒòΪÎÞ·¨ÔÚVBµÄÀàÄ£¿éÖÐÖ±½ÓʹÓö¨Ê±Æ÷¿Ø¼þ»ò¶¨Ê±Æ÷API£¬»ùÓÚ°³±àдµÄ»ñµÃÀà³ÉÔ±º¯ÊýÖ¸ÕëµÄº¯Êý£¬°³±àдÁËÕâ¸ö´ø¶¨Ê±Æ÷¹¦ÄܵÄÀ࣬ϣÍû¸øÅóÓÑÃÇһЩÆô·¢¡£
Ò»¡¢Ð½¨Ò»¸öÀ࣬ÀàÃû³ÆÎªclsTimer£¬Àà´úÂëÈçÏ£º
Option Explicit
'* ** ......