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

当前位置:

首页 > 编程开发 > vb >

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

随着Internet的发展，越来越多的人加入到这个充满无限生机的网络世界中来，作为一个网络信息时代的专业电脑玩家，掌握网络编程就显得格外重要。本文通过一个MUD客户端服务程序向您介绍了Internet网络编程及MUD的一些知识。
MUD，全称Multiple User Dungeon，意为多用户"地牢"游戏，现在网虫们一般都把它叫做泥巴。如果你已经上了网的话，当你得知了一个MUD的地址和端口后你便可以加入此MUD了，在Windows95操作系统下，你可以用 "telnet地址端口" 这条命令来登录到MUD，但是Windows95的telnet程序由于不是专门用来玩MUD的，因此使用起来非常不方便，这主要是由于telnet不能处理文字的回绕，并且因为输入输出在同一窗口，造成输入输出信息混杂在一起，使用户辨认困难。历史输入的不能重用，大大增加了用户的输入量。而且在MUD中服务器传给你的信息中有很多控制信息用来使输出文字改变颜色或突出显示，这些信息被telnet简单的忽略掉了，鉴于这些不便，有一些程序员开发了MUD客户端服务程序，这些程序一般都具有这些功能:
* 连接到MUD --- 这是基本功能
* 命令行历史 --- 可重用以前的命令
* 宏命令        --- 以宏代替较长的命令
* 输入输出窗口分开--- 避免输入输出信息混乱
* 输出信息回卷 --- 允许查看以前的输出信息
* 强调显示 --- 能处理MUD系统传来的控制序列
有一些还有更高级的功能:
* 自动登录        --- 根据用户历史记录，自动登录到MUD
* 多重连接 --- 允许同时连接到多个MUD上，或同时在一个MUD上登录多人
* 触发装置        --- 在某种情况下，自动发出某命令
* 自动导航系统    --- 通过记录east，west，south，north，up，down等命令，生成逻辑地图，并可自动导航用户去某地
* 提供编程接口    --- 用户可编程，制作机器人，代替用户辛辛苦苦的在MUD上练功
Dos/Windows下的MUD客户端服务程序主要有MUDCaller，BSXMUD等，其中以Zugg Software公司的ZMud较普及，也好用，下面我们用VB来做一个我们自己的MUD Client。
首先介绍一下Winsock控件。在VB中，利用 WinSock 控件可以与远程计算机建立连接，并通过用户TCP或UDP协议进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。在创建MUD客户端时，我们使用TCP协议。在给该控件的RemoteHost及RemotePort赋值后，调用其connect方法就可以连接到MUD主机上。然后用GetData和SendData就可以与MUD主机对话了。而从MUD主机传来的数据是夹有escape控制字符串的ASCII文本，说到escape控制字符串，需要解释一下，所谓escape控制字符串是ANSI中用于键盘控制和显示控制的以escape(ASCII 27/0x1B)和'['开头的一串字符，在MUD中一般只涉及到设置输出属性，在escape和'['后跟a1;a2;...'m'，该串以字符m结束，a1，a2等是数字，意义如下:
0:恢复黑白显示;
1:高亮度显示
2:正常显示
30...37:黑，红，绿，黄，蓝，洋红，青，白
如:chr(27)[1;31m表示从这里起用亮红显示，而chr(27)[2;37;0m表示恢复黑白显示方式并用普通白色显示。
现在我们打开VB，新建一个标准工程，选工程|部件菜单，加入Microsoft Winsock Control 5.0及Microsoft Rich TextBox Control 5.0这两个控件到工具栏中。
将Form1改名为fMud，从工具栏拖一个CommandButton到fMud上，改名叫cmdSend，设置其default属性为True。拖一个Rich TextBox到fMud上，改名叫MudOut，设置其Text属性为空，ScrollBars为rtfBoth。再拖一个ComboBox到fMud上，改名叫MudIn，设置Text属性为空。最后拖一个Winsock控件到fMud上，改名叫MudSock。.下一步是用菜单编辑器给fMud做一个菜单，其中有一个子菜单起名叫Connect，主窗口就做好了。
下面向工程里添加一个新Form，改名叫fConnect，用于接收用户要联往的MUD主机地址及端口。首先在上面放两个Label，分别把Caption设为"MUD地址：" 和 "端口："，再放两个TextBox分别起名叫tAddress和tPort,摆好位置，使两个Label分别指向两个TextBox,最后放一个CommandButton，使其Name=CmdConnect，Caption="&Connect"，Default=True，Enabled=False。好了，下面开始编程：
fMud窗口：
fMud的定义部分：
    Dim bConnected as Boolean
Connect菜单：
If Not bConnected Then
fConnect.Show 1
MudSock.Connect                     '连接到MUD主机上
bConnected = True
MudIn.SetFocus
    End If
fMud的Load事件：
    bConnected = False
fMud的Resize事件：
MudOut.Top = 0                         '调整控件的位置就大小
MudOut.Left = 0
MudOut.Width = fMud.Width - 120
MudOut.Height = fMud.Height - 700
MudIn.Top = MudOut.Height+20
MudIn.Left = 0
MudOut.Width = fMud.Width - 120
MudSock的DataArrival事件：
Dim strData As String
If Connected Then
MudSock.GetData strData             '从MudSock的缓冲区中取数据
MudOut.Text = MudOut.Text+strData
MudOut.SelStart = len (MudOut.Text)
If len(MudOut.Text) > 2000 Then        '缓冲2000字的文本
    MudOut.Text = Right (MudOut.Text,2000)
End If
Ene If
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事件中编程，本程序略去。

栏目列表