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

" Then

Namef$ = Mid$(cd$, lastst, i - lastst)

Combo1.AddItem Namef$ '分离用户别名并加入Combo1

lastst = i + 1

End If

Next i

End Sub


Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 300

End Sub


Private Sub Timer1_Timer()

Connected.Refresh (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 并利用附带的安装程序安装到网络服务器上就可以真正实现" 联网" 了。

……