8283.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 40 行

HTML
40 行
字号 
<html>
  <head>
    <title>关于 winsock UDP 这样写也错吗？</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>关于 winsock UDP 这样写也错吗？</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:trytsai@ms6.url.com.tw">trytsai</a> on December 14, 1998 at 15:38:17:<p>
<center><img src="http://www.mis.ccu.edu.tw/~trytsai/Graphics/welcomM.gif"></center><p>
我曾用 winsock 写过 TCP/IP 的程式，也都没什么问题<br>不过对于现在用 winsock 改写 UDP/IP 的程式却有问题！<br>能否请高手帮忙看看..<p>程式目的:<br>由 A 程式送出一段讯息给 B 程式然后 B 程式再回讯息给 A 程式.<p>假设 B 程式与 A 程式都在同一部 PC 上，所以 IP 都是 127.0.0.1<br>B 程式的 LocalPort 定为 1234<p>A 程式:<br>先在 text1 内输入要送出的讯息，再点一下 Command1 就会送到 B 程式<br>Private Sub Command1_Click()<br>Dim strSendMsg As String<br>    strSendMsg = Time() & ":[" & Me.Text1.Text & "]"<br>    Call Me.Winsock1.SendData(strSendMsg)<br>End Sub<p>Private Sub Form_Load()<br>    Me.Winsock1.Protocol = sckUDPProtocol<br>    Me.Winsock1.RemoteHost = "127.0.0.1"<br>    Me.Winsock1.RemotePort = 1234<br>    Me.Label1.Caption = "RemoteIP:" & Me.Winsock1.RemoteHost & " (" & Me.Winsock1.RemotePort & ")"<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>End Sub<p>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>
<ul><li><a href="http://netcity.hinet.net/trytsai">Jonathan's Web</a></ul>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8283-->
<!--top: 8285--><li><a href="8285.html">Re: 关于 winsock UDP 这样写也错吗？</a> <b>Roger</b> <i>15:55:56 12/14/98</i>
(<!--responses: 8285-->3)
<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-->
</ul><!--end: 8283-->
<br><hr size=7 width=75%><p>

</body></html>

8283.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 8283.html 源码文件，采用 HTML 编程语言编写，共 40 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?