VB程序怎样实现联机运行？？？

1、将程序安装在“服务器”，使程序文件夹共享；

2、制作客户端安装程序（实际就是在客户端安装VB运行时塌卖需要的一些dll,ocx文件），制作方法是再次发布程序，发布是添加的文件仅仅是dll,ocx文件，不包括exe,mdb等文件），不需要安装程序文件夹、程序目录、启动程序等等；

3、在客户端安装客户端安纯衫枝装程序；

4、在“服务器”进行下列设置：【开始】-【设置】-【控制面板】-【管理工具】-【计算机管理】点击“本地用户和组”，在点击“做敏用户”，在用户界面右击Guest,在属性对话框去掉“用户不能更改密码”、“帐户已停用”的勾选，然后确定；

5、在客户端双击桌面的网上邻居，a、如果是Windows XP系统，点击查看工作组计算机，如果网络连接没有问题，“服务器”就会出现在列表中，双击“服务器”文件夹，共享文件夹就会出现，右击共享文件夹中的VB程序（*.exe），发送到-桌面快捷方式。b、如果是Windows 2000系统，双击临近计算机，其他和a相同。

好了，现在就可以调用“服务器”中你的VB程序了。

如果你要发布到公网，在发布打包你的程序时，不要选择打包，而选择展开，其他的问题你应该知道的，我就不罗嗦了。

可以用WINSOCK控件实现联机, 设一个漏圆烂Command,两个Winsock,下面要设置IP,写入以腔袜下代码看发生什么. Private Sub Form_Load() Winsock1.RemoteHost = "写你电脑的IP" Winsock1.RemotePort = 5555 Winsock2.LocalPort = 5555 Winsock2.Listen End Sub Private Sub Winsock1_Connect() Winsock1.SendData "收到返漏吗?" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim S As String Winsock1.GetData S, vbString If S = "收到了." Then Winsock1.SendData "那就好." Print S End Sub Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long) Winsock2.Close Winsock2.Accept requestID End Sub Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) Dim S As String Winsock2.GetData S, vbString If S = "收到吗?" Then Winsock2.SendData "收到了." Print S End Sub

---