如何用Visual Basic编写小型的网络系统

(ID) ''刷新用户标志

x = Connected.GetSystemMessage() ''接收系统信息

y = Connected.GetUserMessage(ID) ''接收用户信息

If y < > "" And y < > Label6.Caption Then Label6.Caption = y

If x < > Val(Label4.Caption) Then ''刷新Combo1

Label4.Caption = x

Command4_Click

End If

End Sub


开始运行。输入你的Username 和Alias，单击Log On，查看一下先前的VB 范例，看看你的名字是否在内。如果是，证明你的" 集线器" 成功了。这时，不管已登录的用户处于什么原因没有用LogOff 就中断联系，系统都会在6 秒后自动删除这些用户。确保其它用户不受影响。

这个程序经过改动，可以给它支持Modem 的功能。而用户部分的程序可以原封不动。编译时在Options 中选中Remote Support File 并利用附带的安装程序安装到网络服务器上就可以真正实现" 联网" 了。