//
/¼òÌåÖÐÎÄ/
/¼òÌåÖÐÎÄ/
/¼òÌåÖÐÎÄ/
/Ó¢ÎÄ/
/¼òÌåÖÐÎÄ/
//
//
/¼òÌåÖÐÎÄ/
/¼òÌåÖÐÎÄ/
³öÏÖUDPÁ¬½Óʧ°ÜµÄÎÊÌâÓкܶ࣬ÍøÂçûÓÐÕýÈ·Á¬½ÓÉÏÊÇ×î³£¼ûµÄ£¬×î¼òµ¥µÄ½â¾ö·½·¨¾ÍÊÇʹÓÃUDPÁ¬½Ó»ñÈ¡Æ÷£¬»¶ÓÏÂÔØÌåÑé¡£
UDPÁ¬½Ó»ñÈ¡Æ÷£¬±¾µØÁ¬½Ó£¬±¾µØ¶Ë¿Ú»ñÈ¡Æ÷
Òª·ÃÎÊÕą̂µçÄÔ£¬¶øÕą̂µçÄÔÊÇÁ¬Â·ÓÉÆ÷µÄ£¬Òª·ÃÎÊÕą̂µçÄÔ£¬ÊÇʹÓ÷ÓÉÆ÷µÄµØÖ·£¿»¹ÊÇ£¿ÒòΪÄÚÍøIPÖ»ºÍ¹«ÍøÊDz»Ò»ÑùµÄ£¿ÔÚÔ¶¶ËÔõôͨ¹ýIPÀ´·ÃÎÊÕą̂µçÄÔ£¬ÓÃÄǸöIP¡£
½â¾ö£º¿ÉÒÔÉèÖÃһϷÓÉÆ÷£¬ÔÚ·ÓÉÆ÷ÉÏÖ¸¶¨¶Ë¿Ú¶ÔÓ¦µÄÖ÷»ú£¬¾Í¿ÉÒÔͨ¹ý¹«ÍøIPºÍ¸Ã¶Ë¿Ú·ÃÎʵ½¸ÃÖ÷»úÁË
ÒÔVBΪÀý£¬ÔÚudpWinSock_DataArrivalʼþÖУ¬ÊäÈëÏÂÃæµÄ´úÂ룬¼´¿É»ñÈ¡¿Í»§¶ËIP,·¢ËÍÏûÏ¢¸ø¿Í·þ¶Ë¡££¬Èç¹ûÊÇ¿Í»§¶Ë£¬ÐèÒª°Ñ¸ÃIPµØַת·¢¸ø·þÎñÆ÷¡£
Private Sub udpWinSock_DataArrival(ByVal bytesTotal As Long)
¡¡ Dim strData As String
¡¡ Dim Strs As String
¡¡ udpWinSock.GetData strData, vbString '½ÓÊÕµ½¿Í»§¶ËÐÅÏ¢
¡¡ udpWinSock.RemoteHost = udpWinSock.RemoteHostIP '»ñÈ¡¿Í·þ¶ËµÄIP£¬²¢½«Òª¶Ô»°µÄ¿Í·þ¶ËipÉèÖÃΪ´ËIP
¡¡¡¡¡¡ 'Á¢¼´·¢ËÍÎı¾¸ø¿Í»§¶Ë
¡¡Strs = ¡°ÒѽÓÊճɹ¦ÄúµÄÐÅÏ¢£º" & strData
¡¡¡¡udpWinSock.SendData¡¡Strs '·¢Ëͻظ´ÐÅÏ¢¸øµ±Ç°¿Í»§¶Ë¡¡
End Sub
¹ØÓÚÌÚÅ£ | ÁªÏµ·½Ê½ | ·¢Õ¹Àú³Ì | °æȨÉùÃ÷ | ÏÂÔØ°ïÖú(£¿) | ¹ã¸æÁªÏµ | ÍøÕ¾µØͼ | ÓÑÇéÁ´½Ó
Copyright 2005-2022 QQTN.com ¡¾ÌÚÅ£Íø¡¿ °æȨËùÓÐ ¶õICP±¸2022005668ºÅ-1 | ¶õ¹«Íø°²±¸ 42011102000260ºÅ
ÉùÃ÷£º±¾Õ¾·ÇÌÚѶQQ¹Ù·½ÍøÕ¾ ËùÓÐÈí¼þºÍÎÄÕÂÀ´×Ô»¥ÁªÍø ÈçÓÐÒìÒé ÇëÓë±¾Õ¾ÁªÏµ ±¾Õ¾Îª·ÇÓ®ÀûÐÔÍøÕ¾ ²»½ÓÊÜÈκÎÔÞÖúºÍ¹ã¸æ