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

如何用VB实现远程桌面并运行指定程序~

请使用winsock 建立连接，然后远程发送字符串 "your_path\your_exe_filename.exe", 另一端用 shell "your_path\your_exe_filename.exe" 即可执行。这个方法你要写两个软件，一个在主机运行，另一个在服务器端运行。以下是MSDN的内容

要创建一个 TCP 服务器，请按照以下步骤执行：

创建新的 Standard EXE 工程。


将缺省窗体的名称改为 frmServer。


将窗体的标题改为“TCP 服务器”。


在窗体中放入一个 Winsock 控件，并将它的名字改为 tcpServer。


在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData，第二个为 txtOutput。


为窗体添加如下的代码。
Private Sub Form_Load()
'将 LocalPort 属性设置为一个整数。
'然后调用 Listen 方法。
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show '显示客户端的窗体。
End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
'检查控件的 State 属性是否为关闭的。
'如果不是，
'在接受新的连接之前先关闭此连接。
If tcpServer.State sckClosed Then _
tcpServer.Close
'接受具有 requestID 参数的
'连接。
tcpServer.Accept requestID
End Sub

Private Sub txtSendData_Change()
'名为 txtSendData 的 TextBox 控件中
'包含了要发送的数据。当用户往文本框中
'键入数据时，使用 SendData 方法
'发送输入的字符串。
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
'为进入的数据声明一个变量。
'调用 GetData 方法，并将数据赋予名为 txtOutput
'的 TextBox 的 Text 属性。
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub

上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。

要创建 TCP 客户端，请按照以下步骤执行：

在工程中添加一个新的窗体，将其命名为 frmClient。


将窗体的标题改为“TCP Client”。


在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient。


在 frmClient 中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个为 txtOutput。


在窗体上放一个 CommandButton 控件，并将其命名为 cmdConnect。


将 CommandButton 控件的标题改为 Connect。


在窗体中添加如下的代码。
重点 必须将 RemoteHost 属性值修改为您的计算机的名字。

Private Sub Form_Load()
'Winsock 控件的名字为 tcpClient。
'注意：要指定远程主机，可以使用
' IP 地址（例如："121.111.1.1"），也可以使用
'计算机的“好听的名字”如下所示。
tcpClient.RemoteHost = "RemoteComputerName"
tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
'调用 Connect 方法，初始化连接。
tcpClient.Connect
End Sub

Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub

给你个简单点的思路，用winsock控件，把远程主机IP和本地的都设成127.0.0.1就行了，然后用winsock控件进行通信

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

---

贞丰县15917486920： VB程序怎样实现联机运行??? - ？
潭曼黄藤： 可以用WINSOCK控件实现联机,设一个Command,两个Winsock,下面要设置IP,写入以下代码看发生什么. Private Sub Form_Load() Winsock1.RemoteHost = ＂写你电脑的IP＂ Winsock1.RemotePort = 5555 Winsock2.LocalPort = 5555 ...

贞丰县15917486920： vb中怎样实现两个程序的共同运行 - ？
潭曼黄藤： 启动a程序是找b程序的是否在运行(比如用findWindow函数,找b程序的handle),如未运行,运行之;反正亦然; 关闭程序也一样,关闭a程序时,同时关闭b程序(给b程序发送关闭消息SendMessage);反正亦然;

贞丰县15917486920： VB怎么做联机游戏?谢谢了,大神帮忙啊 - ？
潭曼黄藤： 可以用WINSOCK控件实现联机, 设一个Command,两个Winsock,下面要设置IP,写入以下代码看发生什么. Private Sub Form_Load() Winsock1.RemoteHost = ＂写你电脑的IP＂ Winsock1.RemotePort = 5555 Winsock2.LocalPort = 5555 ...

贞丰县15917486920： 如何用VB实现远程桌面并运行指定程序 - ？
潭曼黄藤： 请使用winsock 建立连接,然后远程发送字符串 ＂your_path\your_exe_filename.exe＂, 另一端用 shell ＂your_path\your_exe_filename.exe＂ 即可执行.这个方法你要写两个软件,一个在主机运行,另一个在服务器端运行.以下是MSDN的内容...

贞丰县15917486920： 在VB中如何让两台电脑联机并可以相互收发信息?(类似QQ聊天) - ？
潭曼黄藤： 用Winsock 实现聊天的程序 一个简单的聊天程序 程序所需控件:Winsock控件,CommandButton控件(默认name),TextBox控件(一个名称为txtMess,另一个名称为txtSend) 程序代码如下: Private Sub Form_Load() Dim my As String ...

贞丰县15917486920： vb编写的程序如何能在其他电脑上运行 - ？
潭曼黄藤： 任何一款软件的运行都是要有其开发所用的运行库,这个是因为你写的程序调用了某些DLL文件或者使用了其他的OCX控件造成的!所以说你发布程序的时候必须要带上这些文件!当然了对方机器上还需要有VB运行 解决方法就是把VB运行库和控件文件直接加到你的安装程序里面.别人安装你的程序后运行库和控件就拷到他的系统目录下了

贞丰县15917486920： 请问用VB编写的程序,怎么才能在别人的电脑上正常运行 - ？
潭曼黄藤： 只是级一个EXE文件是不行的,因为VB还有运行库 具体操作.点击VisualBase 中文版工具,选择package 向导, 用打包向导打包成SETUP.EXE发给朋友

贞丰县15917486920： VB winsock控件如何实现多台远程计算机远程相互连接,要有具体实例 - ？
潭曼黄藤： 程控制功能是基于客户机/服务器这一模型来实现的,所以程序的编制也应分两部分进行:一部分是服务器端--也就是被控制的一方,另一部分是客户端--控制方.服务器程序要守侯在一个固定或不固定的网址(IP)上等待客户程序的请求;客户...

贞丰县15917486920： vb编写的程序如何能在其他电脑上运行？
潭曼黄藤： 打包就可以了,用VB自带的打包工具(具体怎么用,网上有教程的,很简单),或者用专门的软件打包,不过用VB自带的打包程序有时候好像不太好用,建议你用Setup Factory 7.0,功能强大,而且很简单,不过记住不要把源码也打进去哟,具体怎么用网上查下就可以了,简单,但是不好说,你用一边就知道了!

贞丰县15917486920： 自己编的vb程序要怎么样才能在别的电脑上运行???? - ？
潭曼黄藤： VB菜单中,文件菜单——生成.exe文件 最好使用 [安装工厂 因为有的程序是需要注册dll和ocx之类的 那么用安装工厂就更方便了