📄 8285.html
字号:
<html>
<head>
<title>Re: 关于 winsock UDP 这样写也错吗？</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 关于 winsock UDP 这样写也错吗？</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:huy@mail.com">Roger</a> on December 14, 1998 at 15:55:56:<p>
In Reply to: <a href="8283.html">关于 winsock UDP 这样写也错吗？</a> posted by trytsai on December 14, 1998 at 15:38:17:<p>
<br>B程式要加个一小段<p>set Udp as new Winsock1<br>Udp.Protocol = sckUDPProtocol<br>Udp.LocalPort = 1234<br>Udp.RemoteHost = "127.0.0.1"<br>Udp.RemotePort = "0"<br>Udp.SendData vbNull<br>^^^^^^^^^^^^^^^^^^^^<br>接收端要先丢个null出去才会收资料.<br>不知道为什么.<p><br>: B 程式:<br>: Private Sub Form_Load()<br>: Me.Winsock1.Protocol = sckUDPProtocol<br>: Me.Winsock1.LocalPort = 1234<br>: End Sub<p>: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)<br>: Dim strData As String<br>: Winsock1.GetData strData, vbString<br>: Me.Label1.Caption = Me.Label1.Caption & strData<br>: <br>: If (Me.Winsock1.State = sckConnected) Then<br>: Me.Label2.Caption = Time() & ":Received[" & Me.Label1.Caption & "]"<br>: Debug.Print Me.Winsock1.RemoteHost<br>: Debug.Print Me.Winsock1.RemotePort<br>: Call Me.Winsock1.SendData(Me.Label2.Caption)<br>: End If<br>: End Sub<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8285-->
<!--top: 8289--><li><a href="8289.html">Re: 关于 winsock UDP 这样写也错吗？</a> <b>trytsai</b> <i>16:31:52 12/14/98</i>
(<!--responses: 8289-->2)
<ul><!--insert: 8289-->
<!--top: 8426--><li><a href="8426.html">错!!!!!!!!!!!!!!!!!!!!!!!!!!!!</a> <b>windows NT user</b> <i>18:35:00 12/18/98</i>
(<!--responses: 8426-->1)
<ul><!--insert: 8426-->
<!--top: 8656--><li><a href="8656.html">Re: 错!!!!!!!!!!!!!!!!!!!!!!!!!!!!</a> <b>trytsai</b> <i>17:04:12 12/28/98</i>
(<!--responses: 8656-->0)
<ul><!--insert: 8656-->
</ul><!--end: 8656-->
</ul><!--end: 8426-->
</ul><!--end: 8289-->
</ul><!--end: 8285-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -