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

Question

请问自已写的程序怎么样在局域网上联机运行？？？？？？
或者在网上怎样联机运行？？？？？？？？？？？？

Answer 1

1、将程序安装在“服务器”，使程序文件夹共享；
2、制作客户端安装程序（实际就是在客户端安装VB运行时需要的一些dll,ocx文件），制作方法是再次发布程序，发布是添加的文件仅仅是dll,ocx文件，不包括exe,mdb等文件），不需要安装程序文件夹、程序目录、启动程序等等；
3、在客户端安装客户端安装程序；
4、在“服务器”进行下列设置：【开始】-【设置】-【控制面板】-【管理工具】-【计算机管理】点击“本地用户和组”，在点击“用户”，在用户界面右击Guest,在属性对话框去掉“用户不能更改密码”、“帐户已停用”的勾选，然后确定；
5、在客户端双击桌面的网上邻居，a、如果是Windows XP系统，点击查看工作组计算机，如果网络连接没有问题，“服务器”就会出现在列表中，双击“服务器”文件夹，共享文件夹就会出现，右击共享文件夹中的VB程序（*.exe），发送到-桌面快捷方式。b、如果是Windows 2000系统，双击临近计算机，其他和a相同。

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

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

Answer 2

可以用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本回答被提问者采纳