87.htm

一些简单的编程例子 都是网页的形式

<p>用VB编写小型的网络系统</p>
<p> </p>
<p></p>
<p>---- Visual Basic 以 下 简 称(VB) 十 一 个 功 能 强 大 的 编 程 语 言。 特 别 是4.0 以 后， 支 持 了OLE Automation 技 术， 给 编 程 带 来 了 更 大 的 方 便。 前 些 时， 我 试 着 编 写 一 个 支 持 网 络 的 数 据 库。 但 是 由 于 没 有 联 网， 所 以 没 法 测 试。 于 是， 我 想 到 了OLE Automation， 用 它 就 可 以 在 一 台 机 器 上 测 试 网 络 功 能。 经 过 改 动， 还 可 以 用 它 通 过Modem 来 进 行 联 机。 下 面， 我 介 绍 一 下 如 何 用Visual Basic 编 写 小 型 的 网 络 系 统。 </p>
<p></p>
<p>---- 首 先， 建 立 一 个 支 持 网 络OLE Automation </p>
<p></p>
<p>---- 启 动VB。 在 窗 体Form1 中 建 立 一 个 列 表 框List 1， 在 它 上 面 建 一 个Frame1， 设 置 它 的Caption 属 性 为 空。 在 它 中 间 建 立 一 个Label1， 同 样， 设 置 它 的Caption 也 为 空。 最 后， 在List1 上 建 立 一 个Caption 为UserList 的Label2。 最 后， 把 一 个 定 时 器Timer1 安 上， 把 它 的Interval 设 为3000，Enabled 设 为False 就 行 了。 至 此，NetWorkConnection 的 窗 体 部 分 就 完 成 了。</p>
<p></p>
<p>---- 随 后， 在VB 的Tools 菜 单 中 选Options， 按 照 填 好 各 项 内 容。 </p>
<p></p>
<p>---- 接 下 来， 在Insert 菜 单 中 选 取Module 建 立 一 个 新 的 模 块Module1。 在(General) 中 输 入 填 写 进 下 列 代 码。 </p>
<p></p>
<p>(UserInfo数据类型)</p>
<p>Type UserInfo</p>
<p>Username As String</p>
<p>Alias As Integer </p>
<p>End Type</p>
<p>(最大的用户数)</p>
<p>Public Const MaxUser = 10</p>
<p>(定义消息)</p>
<p>Public Const Msg_User_LogOn = 1</p>
<p>Public Const Msg_User_LogOff = 2</p>
<p>(设定数据类型)</p>
<p>Public Users (MaxUser) As UserInfo</p>
<p>Public Inbox (MaxUser) As String</p>
<p>Public UserSystemInbox As Integer</p>
<p>Public Online(MaxUser) As Boolean</p>
<p></p>
<p>Sub main()</p>
<p>Form1.Show</p>
<p>End Sub</p>
<p></p>
<p>---- UserInfo 数 据 类 型 记 录 了 已 经 登 录 的 用 户 的 用 户 名 和 别 名。 在 显 示 和 通 讯 时 只 使 用 别 名。 用 户 名 只 作 为 判 断 用 户 是 否 有 效 时 用。 出 于 安 全 考 虑， 以 上 数 据 用 户 不 能 随 意 访 问， 必 须 通 过 下 面 的 子 程 序 来 访 问。 </p>
<p></p>
<p>---- 在Insert 菜 单 中 选 取Class Module 建 立 一 个 新 的 类Class1。 更 名 为Common， 并 设 置 它 的 各 个 属 性。 </p>
<p></p>
<p>---- 填 写 进 下 列 代 码。 </p>
<p></p>
<p>---- ( 提 供 获 取 用 户ID 值 的 功 能， 用 户 可 以 通 过 此 功 能 使 用 别 名 来 返 回ID 值) </p>
<p></p>
<p>Public Function GetUserID(Alias As String) As Integer</p>
<p>For i = 1 To MaxUser</p>
<p>If Users(i).Alias = Alias Then GetUserID = i</p>
<p>Next i</p>
<p>End Function</p>
<p></p>
<p>---- ( 提 供 获 得 系 统 信 息 的 功 能。 用 户 可 以 通 过 它 了 解 用 户 是 否 有 改 动) </p>
<p></p>
<p>Public Function GetSystemMessage() As Integer</p>
<p>GetSystemMessage = UserSystemInbox</p>
<p>End Function</p>
<p></p>
<p>---- ( 提 供 获 得 用 户 信 息 的 功 能。 用 它 来 获 取 所 有 在 线 </p>
<p>用 户 的 别 名， 中 间 用"|" 分 开。) </p>
<p></p>
<p>Public Function GetUserInfo() As String</p>
<p>For i = 1 To MaxUser</p>
<p>If Users(i).Username < > "" Then</p>
<p>temp = temp + Users(i).Alias + "|"</p>
<p>End If</p>
<p>Next i</p>
<p>GetUserInfo = temp</p>
<p>End Function</p>
<p></p>
<p>---- ( 提 供 获 得 用 户 私 有 信 息 的 功 能。 用 来 接 受 别 的 用 </p>
<p>户 发 送 的 信 息。) </p>
<p></p>
<p>Public Function GetUserMessage(ID As Integer) As String</p>
<p>If ID < = 0 Or ID > MaxUser Then</p>
<p>Exit Function</p>
<p>End If</p>
<p>GetUserMessage = Inbox(ID)</p>
<p>End Function</p>
<p></p>
<p>---- ( 提 供 注 销 功 能。 用 来 退 出 网 络。) </p>
<p></p>
<p>Public Function LogOff(ID As Integer) As Boolean</p>
<p>If ID < = 0 Or ID > MaxUser Then</p>
<p>LogOff = False</p>
<p>Exit Function</p>
<p>End If</p>
<p>If Users(ID).Username < > "" Then</p>
<p>Users(ID).Username = ""</p>
<p>LogOff = True</p>
<p>Else</p>
<p>LogOff = False</p>
<p>End If</p>
<p>UserSystemInbox = Msg_User_LogOff</p>
<p>`-------------- Update Form1 ------------</p>
<p>For i = 0 To Form1.List1.ListCount - 1</p>
<p>If Form1.List1.List(i) = Users(ID).Alias Then </p>
<p>`查找List1中的用户别名并删除</p>
<p>Form1.List1.RemoveItem i</p>
<p>Exit For</p>
<p>End If</p>
<p>Next i</p>
<p>If Form1.List1.ListCount = 0 Then `如果没有用户登录</p>
<p>Form1.Label1.Caption = "DisConnected"</p>
<p>Form1.timer1.Enabled = False</p>
<p>End If</p>
<p>End Function</p>
<p></p>
<p>---- ( 提 供 登 录 功 能 来 上 网) </p>
<p></p>
<p>Public Function LogOn(Username As String,</p>
<p>Alias As String) As Integer</p>
<p>For i = 1 To MaxUser</p>
<p>If Users(i).Username = "" Then</p>
<p>Users(i).Username = Username</p>
<p>Users(i).Alias = Alias</p>
<p>LogOn = i</p>
<p>UserSystemInbox = Msg_User_LogOn `发送"用户登录"信息</p>
<p>`-------------- Update Form1 ------------</p>
<p>Form1.List1.AddItem Alias `有用户上网</p>
<p>Form1.Label1.Caption = "Connected"</p>
<p>Form1.timer1.Enabled = True</p>
<p>Exit Function</p>
<p>End If</p>
<p>Next i</p>
<p>LogOn = 0</p>
<p>End Function</p>
<p></p>
<p>---- ( 提 供 刷 新 用 户 是 否 在 线 标 志 的 功 能。 使 系 统 能 够 </p>
<p>判 断 你 是 否 在 线 上， 如 果 在6 秒 内 没 有 调 用 此 功 能， 系 </p>
<p>统 将 会 把 您 自 动 删 除。) </p>
<p></p>
<p>Public Sub Refresh(ID As Integer)</p>
<p>If ID < = 0 Or ID > MaxUser Then Exit Sub</p>
<p>Online(ID) = True</p>
<p>End Sub</p>
<p></p>
<p>---- ( 提 供 发 送 用 户 私 有 信 息 的 功 能。 用 来 和 其 它 用 户传 递 信 息。) </p>
<p></p>
<p>Public Function SendUserMessage(Message As </p>
<p>String, ToID As Integer) As Boolean</p>
<p>If ToID < = 0 Or ToID > MaxUser Then</p>
<p>SendUserMessage = False</p>
<p>Exit Function</p>
<p>End If</p>
<p>Inbox(ToID) = Message</p>
<p>SendUserMessage = True</p>
<p>End Function</p>
<p></p>
<p>---- 在Form1 的Code 中 输 入 剩 下 的 代 码。 </p>
<p></p>
<p>(初始化Form1)</p>
<p>Private Sub Form_Load()</p>
<p>Label1.Caption = "DisConnected"</p>
<p>Form1.Caption = "NetWork Connected Server"</p>
<p>Form1.Show</p>
<p>For i = 1 To MaxUser</p>
<p>Users(i).Username = ""</p>
<p>Next i</p>
<p>End Sub</p>
<p></p>
<p>---- ( 通 过 判 断Online 的 值 定 时 检 查 用 户 是 否 在 线) </p>
<p></p>
<p>Private Sub timer1_Timer()</p>
<p>For i = 1 To MaxUser</p>
<p>If Users(i).Username < > "" Then</p>
<p>If Online(i) = False Then</p>
<p>For s = 0 To List1.ListCount - 1</p>
<p>If List1.List(s) = Users(i).Alias Then</p>
<p>List1.RemoveItem s</p>
<p>Users(i).Username = ""</p>
<p>UserSystemInbox = Msg_User_LogOff</p>
<p>` 发 送" 用 户 注 销" 信 息</p>
<p>End If</p>
<p>Next s</p>
<p>End If</p>
<p>Online(i) = False</p>
<p>End If</p>
<p>Next i</p>
<p>If List1.ListCount = 0 Then</p>
<p>` 如 果 没 有 用 户</p>
<p>Label1.Caption = "DisConnected"</p>
<p>timer1.Enabled = False</p>
<p>End If</p>
<p>End Sub</p>
<p></p>
<p>---- 运 行 此 程 序。 在 启 动 另 一 个VB， 开 始 编 写 用 户 部 分。 </p>
<p>在 默 认 窗 体 中 按 下 图 排 好 这 些 控 件。 </p>
<p></p>
<p>---- 填 入 下 列 代 码 </p>
<p></p>
<p>Public ID As Integer</p>
<p>Public Connected As Object</p>
<p>Private Sub Command1_Click() `登录</p>
<p>Dim username As String</p>
<p>Dim alias As String</p>
<p>Set Connected = CreateObject</p>
<p>("NetWorkConnection.Common") 启 动NetWorkConnection</p>
<p>username = Text1.Text</p>
<p>alias = Text2.Text</p>
<p>ID = Connected.logon(username, alias) `登录并返回ID值</p>
<p>Timer1.Enabled = True</p>
<p>Command4_Click</p>
<p>End Sub</p>
<p></p>
<p></p>
<p>Private Sub Command2_Click() `注销</p>
<p>x = Connected.logoff(ID)</p>
<p>Timer1.Enabled = False</p>
<p>Set x = Nothing `释放对象</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command3_Click() `发送用户信息</p>
<p>Dim TempID As Integer</p>
<p>Dim TempString As String</p>
<p>Dim x As String</p>
<p>Dim y As Boolean</p>
<p>x = Combo1.Text</p>
<p>TempID = Connected.getuserid(x) `获得指定用户的ID值</p>
<p>TempString = Text3.Text</p>
<p>y = Connected.sendusermessage(TempString, TempID)</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command4_Click()</p>
<p>For i = 0 To Combo1.ListCount 1 `清空Combo1</p>
<p>Combo1.RemoveItem 0</p>
<p>Next i</p>
<p></p>
<p>x = Connected.GetUserInfo `接收用户信息</p>
<p>cd$ = x</p>
<p>lastst = 1</p>
<p>For i = 1 To Len(cd$)</p>
<p>If Mid$(cd$, i, 1) = "|" Then</p>
<p>Namef$ = Mid$(cd$, lastst, i - lastst)</p>
<p>Combo1.AddItem Namef$ `分离用户别名并加入Combo1</p>
<p>lastst = i + 1</p>
<p>End If</p>
<p>Next i</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>Timer1.Enabled = False</p>
<p>Timer1.Interval = 300</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Timer1_Timer()</p>
<p>Connected.Refresh (ID) `刷新用户标志</p>
<p>x = Connected.GetSystemMessage() `接收系统信息</p>
<p>y = Connected.GetUserMessage(ID) `接收用户信息</p>
<p>If y < > "" And y < > Label6.Caption Then Label6.Caption = y</p>
<p>If x < > Val(Label4.Caption) Then `刷新Combo1</p>
<p>Label4.Caption = x</p>
<p>Command4_Click</p>
<p>End If</p>
<p>End Sub</p>
<p></p>
<p>---- 开 始 运 行。 输 入 你 的Username 和Alias， 单 击LogOn， 查 看 一 下 先 前 的VB 范 例， 看 看 你 的 名 字 是 否 在 内。 如 果 是， 证 明 你 的" 集 线 器" 成 功 了。 这 时， 不 管 已 登 录 的 用 户 处 于 什 么 原 因 没 有 用 LogOff 就 中 断 联 系， 系 统 都 会 在6 秒 后 自 动 删 除 这 些 用 户。 确 保 其 它 用 户 不 受 影 响。 </p>
<p>---- 这 个 程 序 经 过 改 动， 可 以 给 它 支 持Modem 的 功 能。 而 用 户 部 分 的 程 序 可 以 原 封 不 动。 编 译 时 在Options 中 选 中Remote Support File 并 利 用 附 带 的 安 装 程 序 安 装 到 网 络 服 务 器 上 就 可 以 真 正 实 现" 联 网" 了。</p>