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

VBÊý¾ÝÊÕ·¢

ÇóÒ»¸ö¿ÉÒÔÓÃVB½øÐÐÊý¾Ý°üÊÕ·¢µÄ³ÌÐò,ÒªÇóÔÚÖ¸¶¨µÄIPÖ®¼ä½øÐÐ

°ï¶¥

UP

ÎÒÔÚÍøÉÏ¿´µ½Ò»¸öÁÄÌìµÄ¼òµ¥³ÌÐò,Ö´ÐкóûÓз´Ó¦,Winsock1_DataArrivalʼþûÓз¢Éú,²»ÖªµÀÊÇʲôÎÊÌâ,´ó¼Ò°ïæ¿´¿´°É:

Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol 'ÉèÖÃΪUDPЭÒå
Winsock1.LocalPort = 10 'ÉèÖüÆËã»úµÄ¶Ë¿Ú£¬Ëæ±ãÉèÖ㬲»¹ýÁ½¸öÒªÒ»Ñù
Winsock1.RemotePort = 10
my = Winsock1.LocalIP 'È¡µÃ×Ô¼ºµÄIPµØÖ·£¬ÊDz»ÒªµÄ
Winsock1.RemoteHost = my 'ÕâÀïÓ¦¸ÃÊÇÉèÖÃΪ±ðÈ˼ÆËã»úµÄIPµØÖ·£¬ÓÉÓÚ×Ô¼ºÊǵ¥»ú£¬ËùÒÔ¾ÍÉèÖóÉ×Ô¼ºµÄ£¬×Ô¼º¸ø×Ô¼º·¢ÐÅÏ¢
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'È¡µÃÊý¾Ýʱ·¢Éú
Dim Tmp As String
Winsock1.GetData Tmp, vbString 'È¡µÃÊý¾Ý
Tmp = "¶Ô·½Î»Ö·:" + Winsock1.RemoteHostIP + "·¢ÑÔÄÚÈÝΪ-->" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub

Private Sub Command1_Click() '·¢ËÍÐÅÏ¢
Winsock1.SendData txtSend.Text
End Sub


ÎÒÊÔÁËÏ£¬ Õâ¸öʼþÊÇÓз¢ÉúµÄ £¬²»ÖªµÀÄãÓÐûÓÐÌí¼ÓWinsock1¿Ø¼þÉÏÈ¥


.BIND Winsock1.LocalPort



Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

VBתC#

ÎÒÊÇÒ»¸öÐÂÊÖ£¬ÇëÎÊÔõôÑù½«Ò»¸öVBµÄÍøÒ³¸Ä³ÉC#µÄ£¿ÍøÕ¾µÄ½çÃæ£¬¹¦Äܶ¼²»ÐèÒª¸Ä±ä£¬Ö»ÐèÒª°Ñºǫ́´úÂë»»³ÉC#µÄ£¬µ«ÊÇÎÒÖ»ÓÐÒѱàÒëºÃµÄ½çÃæ´úÂ롣ʱ¼ä±È½Ï½ô£¬ÔõôÑùÓñȽϼòµ¥µÄ·½·¨ÊµÏÖ£¿Ð»Ð»£¡
vs2008²»ÊÇ×Ô´øÒ»¸ö ......

ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ

ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ
Ö±½ÓÔÚvbÖе÷ÓÃÊý¾Ý¿âµÄµ¼È빦ÄܽøÐе¼Èë¡£

×Ô¼º°Ù¶ÈÒ»ÏÂ,´úÂ뺣ÁËÈ¥ÁË,·½·¨Óкöà


²Î¿¼
http://blog.sina.com.cn/s/blog_4a384544010004zk.html

'ÅÐ¶Ï ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ