Step 4：测试TCP Chat程序
分别执行Server及Client程序，这时在Client的屏幕上显示In及Out TextBox及一个Connect Button；在Server屏幕上显示In及Out TextBox。
我们按Client程序Connect button建立连接，连接建立成功后，我们可尝试在Client的Outbox 中输入一些字符串：Hello nice to meet you！我们将在Server端的Inbox看到这些字串。 接着我们在Server的Outbox也输入一些字符串：Nice to meet you, too！ 我们将在Client 端的Inbox看到这些字符串。结果证明我们成功了！
用UDP设计Chat程序
Step 1：设计第一个UDP(UDP1)程序
在File选项中选择New Project建立一个新的工程，屏幕上会看到许多选项，如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control 等，这时选Standard.EXE。接着在Project下选择Property属性选项，在General选项下将Project Name改为UDP1，将protocol property设置成0-udptcp protocol，并将Form名称及Caption更改为UDP1。
在屏幕的Form上加入一个WinSock control，取名为UDP1；加入两个TextBox control ( Outtext、Intext)，并于两个TextBox前加入两个Label control，分别将Caption改为 Outtext、 Intext。
(TextBox)
Name
-----------------------------------------------------
Outtext(输出文件)
Intext(输入文件)
(Label)
Caption
-------------------------------------------------------
Outtext(输出文件)
Intext(输入文件)
在Form_Load()中加入以下程序代码，这个动作是设置好我们要连接的远端输入端口为 1001，并将输入端口设为1002。
UDP1.RemoteHost = "DAVID"
UDP1.RemotePort = 1001
UDP1.Bind 1002
双击Outtext到Outtext_change()，加入以下程序代码，当Outtext 内容改变，文件会自动送出：
UDP1.SendData Outtext.text
在UDP1_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox 中。
Dim S As String
UDP1.GetData S
InText.Text = S
这样我们就完成了UDP1的设计。
Step 2：设计第二个UDP(UDP2)程序
在File选项中选New Project建立一个新的工程，屏幕上会看到许多选项，如ActiveX Document.EXE、 ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等，这时要选Standard.EXE。接着在 Project下，选择Property属性选项，在 General选项下，将Project Name改为UDP2，将protocol property设置成0-udptcp protocol，并将Form名称及Caption更改为UDP2 。
在屏幕的Form上加入一个WinSock control取名为UDP2 ，加入两个TextBox control ( Outtext、Intext)，并在两个TextBox control前加入两个Label control，分别将Caption改为Outtext、Intext。
(TextBox)
Name
-----------------------------------------------------
Outtext(输出文件)
Intext(输入文件)
(Label)
Caption
--------------------------------------------------------
Outtext(输出文件)
Intext(输入文件)
在Form_Load()中加入以下程序代码，这个动作是设置好我们要连接的远端输入端口，设置为1002，并将输入端口设置为1001。
UDP2.RemoteHost = "MARY"
UDP2.RemotePort = 1002
UDP2.Bind 1001
双击Outtext到Outtext_change()加入以下程序代码，当Outtext内容改变，文件就会自动送出：
UDP2.SendData Outtext.text
在UDP2_DataArrival(ByVal bytesTotal As Long) 中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox 中。
Dim S As StrIng
UDP2.GetData S
InText.Text = S
这样我们就完成了UDP2的设计。
Step 3：测试UDP Chat程序
分别执行UDP1及UDP2程序。这时UDP1的屏幕上显示In及Out
TextBox；UDP2屏幕也显示In及Out两个TextBox。我们在UDP1的Outbox中输入一些字符串 I want talk to Mary，我们将在UDP2端的Inbox看到这些字符串。接着我们在UDP2的Outbox也输入一些字符串This is Mary speaking!，我们将在UDP1端的Inbox看到这些字串。结果证明我们成功了！
2/2 首页 上一页 1 2 |
