自己动手制作MUD客户端服务程序

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　cmdSend的Click事件：
　　Dim s As String
　　Dim i As Integer
　　s = MudIn.Text + Chr(13) & Chr(10) '给命令行加上回车换行
　　fMud.MudSock.SendData s
　　For i = 1 To MudIn.ListCount
　　If MudIn.List(i) = MudIn.Text Then
　　MudIn.RemoveItem (i) '删去重复的历史命令
　　End If
　　Next i
　　If MudIn.ListCount > 30 Then '缓冲30条历史命令
　　MudIn.RemoveItem 0
　　End If
　　MudIn.AddItem MudIn.Text '将本条命令加到历史记录最后
　　MudIn.SelStart = 0
　　MudIn.SelLength = Len(MudIn.Text) '本条命令文本被选择，以便下
　　'输入一条命令时，不用擦除便可直接键入
　　fConnect窗口：
　　tAddress和fPort的Change事件：
　　If (tAddress.Text <> "") And (tPort.Text <> "") Then
　　CmdConnect.Enabled = True
　　Else
　　CmdConnect.Enabled = False
　　End If
　　Connect按钮的Click事件：
　　fMud.MudSock.RemoteHost = tAddress.Text
　　fMud.MudSock.RemotePort = CInt(tPort.Text)
　　fConnect.Hide
　　好了，一个MUD客户端服务程序就做好了，你现在已经可以用它连接到MUD了。不过限于篇幅，现在本程序的功能只有输出信息回卷，分开输入输出和重用历史命令，它已比telnet玩MUD好用了。另外，要支持强调显示功能，只需从MUD主机传来的信息串中识别出escape'['控制串，并用RichTextBox的SelColor方法就可以设置文本颜色，这也是我们一开始为什么用RichTextBox而不用一般的TextBox的原因。最后指出，WinSock的Connect连接是否正确应在MudSock的onError事件中编程，本程序略去。

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。