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
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÎÒÊÇÒ»¸öÐÂÊÖ£¬ÇëÎÊÔõôÑù½«Ò»¸öVBµÄÍøÒ³¸Ä³ÉC#µÄ£¿ÍøÕ¾µÄ½çÃæ£¬¹¦Äܶ¼²»ÐèÒª¸Ä±ä£¬Ö»ÐèÒª°Ñºǫ́´úÂë»»³ÉC#µÄ£¬µ«ÊÇÎÒÖ»ÓÐÒѱàÒëºÃµÄ½çÃæ´úÂ롣ʱ¼ä±È½Ï½ô£¬ÔõôÑùÓñȽϼòµ¥µÄ·½·¨ÊµÏÖ£¿Ð»Ð»£¡
vs2008²»ÊÇ×Ô´øÒ»¸ö ......
ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ
Ö±½ÓÔÚvbÖе÷ÓÃÊý¾Ý¿âµÄµ¼È빦ÄܽøÐе¼Èë¡£
×Ô¼º°Ù¶ÈÒ»ÏÂ,´úÂ뺣ÁËÈ¥ÁË,·½·¨Óкöà
²Î¿¼
http://blog.sina.com.cn/s/blog_4a384544010004zk.html
'ÅÐ¶Ï ......