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Ö®¶þ£¬ºÁÃëÆª
PMP ¹Ø¾¢ËÉ
¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
ÔÚvbÖÐÈçºÎ»ñµÃºÁÃ뾫¶È¼¶±ðµÄʱ¼ä£¿vbµÄʱ¼äº¯Êý²»Ö§³ÖºÁÃ룬ÐèÒªÀûÓÃwindowsµÄ»ù±¾API£¬±àд³ÌÐò²ÅÄÜ»ñÈ¡ºÁÃë¼¶ ......
vb class Property Get¡¢Property Let ʹÓÃ
<%
'ÔÚ Class ¿éÖУ¬³ÉԱͨ¹ýÏàÓ¦µÄÉùÃ÷Óï¾ä±»ÉùÃ÷Ϊ Private(˽ÓгÉÔ±£¬Ö»ÄÜÔÚÀàÄÚ²¿µ÷ÓÃ) »ò Public(¹«ÓгÉÔ±£¬¿ÉÒÔÔÚÀàÄÚÍⲿµ÷ÓÃ) ¡£
'±»ÉùÃ÷Ϊ Private µÄ½«Ö»ÔÚ Class ¿éÄÚÊǿɼûµÄ¡£±»ÉùÃ÷Ϊ Public ²»½öÔÚ Class ¿éµÄÄÚ²¿ÊǿɼûµÄ£¬¶Ô Class ¿éÖ®ÍâµÄ´úÂëÒ²Êǿɼûµ ......
Ò»¡¢ VB¶ÁдEXCEL±í£º
¡¡¡¡VB±¾ÉíÌá×Ô¶¯»¯¹¦ÄÜ¿ÉÒÔ¶ÁдEXCEL±í£¬Æä·½·¨ÈçÏ£º
¡¡¡¡1¡¢ÔÚ¹¤³ÌÖÐÒýÓÃMicrosoft ExcelÀàÐͿ⣺
¡¡¡¡´Ó"¹¤³Ì"²Ëµ¥ÖÐÑ¡Ôñ"ÒýÓÃ"À¸£»Ñ¡ÔñMicrosoft Excel 9.0 Object Library£¨EXCEL2000£©£¬È»ºóÑ¡Ôñ"È·¶¨"¡£±íʾÔÚ¹¤³ÌÖÐÒªÒýÓÃEXCELÀàÐͿ⡣
¡¡¡¡2¡¢ÔÚͨÓöÔÏó ......
½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
ΪÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......