自己动手制作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事件中编程，本程序略去。
如果你对MUD客户端程序或MUD感兴趣，请访问作者主页: http://fanzhang.yeah.net

自己动手制作MUD客户端服务程序相关推荐

市面上有没有靠谱的PM2.5检测仪？如何自己动手制作PM2.5检测仪
市面上能买到的11中常见的pm2.5检测仪网上大佬实测并不是很准,我这里没测过(全买下来有点贵,贫穷限制了我的想象力) 这些检测仪多数是复合式.多功能的空气质量检测仪.具体就不一一介绍了.这篇文章 ...
自己动手制作笔记本SP2系统安装光盘
自己动手制作笔记本SP2系统安装光盘作者:何晓龙微软发布官 ...
自己动手制作一门语言(1)波罗语
自己动手制作一门语言(1)波罗语波罗语:基于波斯(阿拉伯语)的繁衍,主要目的是二向加密语言.防止被保护的数据泄露和解密. 使用在计算机与书本中使用语言的发音主要以 ah .v .hv 颤音.哈音 ...
动手制作Dos、WinPE、Slax Linux|winpe+dos+Mini Linux U盘启动盘
动手制作Dos.WinPE.Slax Linux|winpe+dos+Mini Linux U盘启动盘一.概述 U盘的价格越来越便宜,容量也越来越大,携带也方便,在工作中可以把一些自己常用的工具整和 ...
android平台的一款mud工具,全平台 MUD 客户端 TinTin++ 之安卓篇
本帖最后由 xgg 于 2021-4-7 12:48 PM 编辑全平台 MUD 客户端 TinTin++ 之安卓篇 ============================= TinTin++(以下 ...
如何自制圆环_如何自己动手制作环形变压器？
环形变压器对大多数人来说并不是很陌生,但它手工绕制方法很多人都不知道,很少人会亲自绕制环形变压器的,下面小编就介绍下如何自己动手制作环形变压器. 家用功放机大都采用环形变压器供电.环形变压器有漏磁小. ...
虚幻4学习笔记（8）动手制作一个小游戏
动手制作一个小游戏新节点介绍前期准备搭建场景门蓝图灯蓝图创建关卡蓝图 B站UP谌嘉诚课程:https://www.bilibili.com/video/BV164411Y732 新节点介绍 ...
linux制作手机系统,自己动手制作个性化Linux操作系统手机刷机包
自己动手制作个性化Linux操作系统手机刷机包本程序用于编辑 Linux 操作系统手机刷机包,运行环境为 Windows XP/2003/Vista.使用该程序可以对 Linux 操作系统手机刷机包 ...
影集 php,window_如何使用Windows DVD Maker制作自己的动感影集，相信很多朋友自己动手制作过 - phpStudy...
相信很多朋友自己动手制作过影集或者视频短片之类的吧,那么大家有没有在制作这些短片的时候为选择用什么软件而烦恼呢?现在不用愁了,赶快试试Windows7自带的Windows DVD MAker吧. 也许 ...

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

自己动手制作MUD客户端服务程序相关推荐

最新文章

热门文章