《面向对象程序设计实验》指导书(3)

End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)

Dim a As String

W.GetData a

T1 = T1 & a & Chr(13) & Chr(10)

End Sub

9 存盘，将两个工程分别在两台机器上运行调试

10创建一个工程，工程名字为UDPA

11 添加一个窗体，窗体名称自拟。

12 添加一个Winsock控件“W”，Protocol属性设置为1即sckUDPProtocol,添加两个TextBox控件“T1”“T2”。

13 添加代码

Private Sub Form_Load()

W.Bind 1201

W.RemoteHost = "192.168.0.3"

《面向对象程序设计实验》指导书

W.RemotePort = 1200

End Sub

Private Sub T2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

W.SendData T2

T2 = ""

End If

End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)

Dim a As String

W.GetData a

T1 = T1 & a & Chr(13) & Chr(10)

End Sub

14 创建一个工程，工程名字为UDPA

15 添加一个窗体，窗体名称自拟。

16 添加一个Winsock控件“W“，Protocol属性设置为1即sckUDPProtocol,添加两个TextBox控件“T1”“T2”。

17 添加代码：

Private Sub Form_Load()

W.Bind 1200

W.RemoteHost = "192.168.0.2"

W.RemotePort = 1201

End Sub

Private Sub T2_KeyDown(KeyCode As Integer, Shift As Integer)

《面向对象程序设计实验》指导书

If KeyCode = 13 Then

W.SendData T2

T2 = ""

End If

End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)

Dim a As String

W.GetData a

T1 = T1 & a & Chr(13) & Chr(10)

End Sub

18 存盘，将两个工程分别在两台机器上运行调试

19 修改这两组程序，添加部分控制功能，定义用户高层通信协议。

20 创建一个工程，工程名字为Client

21 添加一个窗体，窗体名称自拟。

22 添加一个Winsock控件“W“，Protocol属性设置为1即sckUDPProtocol,添加两个TextBox控件“T1”“T2”。添加一个ListBox控件“L”

23 添加代码

Dim sx As Boolean

Private Sub Command1_Click()

Dim a As String

sx = Not sx

If sx Then

Command1.Caption = "下线"

a = "dl" & Chr(10) & W.LocalIP

W.SendData "dl" & Chr(10) & W.LocalIP

Else

《面向对象程序设计实验》指导书

Command1.Caption = " 上线"

W.SendData "xx" & Chr(10) & W.LocalIP

End If

End Sub

Private Sub Command2_Click()

T1 = ""

End Sub

Private Sub Form_Load()

W.Bind 1000

W.RemotePort = 1001

W.RemoteHost = "192.168.0.41"

End Sub

Private Sub T2_KeyDown(KeyCode As Integer, Shift As Integer)

Dim a As String

If KeyCode = 13 Then

If L.Text = "" Then

MsgBox "请选择聊天对象"

Exit Sub

End If

If L.Text = W.LocalIP Then

MsgBox "公共场合，请勿自言自语"

Exit Sub

End If

a = "fy" & Chr(10) & W.LocalIP & Chr(10) & L.Text & Chr(10) & T2

W.SendData a

T1 = T1 & Chr(13) & Chr(10) & "你对" & L.Text & "说:" & T2

T2 = ""

End If

End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)

《面向对象程序设计实验》指导书

Dim a As String

Dim Pr As String

Dim B, C, D As String

Dim i As Integer

W.GetData a

If a = "" Then

Exit Sub

End If

Pr = Left(a, 2)

Select Case Pr

Case "OT"

End

Case "fd"

L.Clear

B = Right(a, Len(a) - 3)

i = InStr(B, Chr(10))

Do While i <> 0

C = Left(B, i - 1)

L.AddItem C

B = Right(B, Len(B) - i)

i = InStr(B, Chr(10))

Loop

Case "sj"

i = InStr(a, Chr(10))

B = Right(a, Len(a) - i) '除去数据报协议报头

i = InStr(B, Chr(10))

C = Left(B, i - 1) '读取发送方IP地址

B = Right(B, Len(B) - i)

T1 = T1 & Chr(13) & Chr(10) & C & "对你说:" & B

End Select

End Sub