高手请进!winsock控件远程通信求教?? 做服务器的那台机必须安装RAS服务,并在其中设定Server和Client的ip,其他的在vb中搞定 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TCP 连接初步如果应用程序要使用 TCP 协议,那么首先必须决定应用程序是服务器还是客户端。如果要创建一个服务器端,那么应用程序需要“监听”指定的端口。当客户端提出连接请求时,服务器端能够接受请求并建立连接。在连接建立之后,客户端与服务器端可以自由地互相通讯。下列步骤创建一个非常简单的服务器:要创建一个 TCP 服务器,请按照以下步骤执行: 创建新的 Standard EXE 工程。将缺省窗体的名称改为 frmServer。将窗体的标题改为“TCP 服务器”。在窗体中放入一个 Winsock 控件,并将它的名字改为 tcpServer。在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData,第二个为 txtOutput。为窗体添加如下的代码。 Private Sub Form_Load()'将 LocalPort 属性设置为一个整数。'然后调用 Listen 方法。tcpServer.LocalPort = 1001tcpServer.Listen frmClient.Show '显示客户端的窗体。End SubPrivate Sub tcpServer_ConnectionRequest _(ByVal requestID As Long)'检查控件的 State 属性是否为关闭的。'如果不是,'在接受新的连接之前先关闭此连接。If tcpServer.State <> sckClosed Then _tcpServer.Close'接受具有 requestID 参数的'连接。tcpServer.Accept requestIDEnd SubPrivate Sub txtSendData_Change()'名为 txtSendData 的 TextBox 控件中'包含了要发送的数据。当用户往文本框中'键入数据时,使用 SendData 方法'发送输入的字符串。tcpServer.SendData txtSendData.TextEnd SubPrivate Sub tcpServer_DataArrival _(ByVal bytesTotal As Long)'为进入的数据声明一个变量。'调用 GetData 方法,并将数据赋予名为 txtOutput '的 TextBox 的 Text 属性。Dim strData As StringtcpServer.GetData strDatatxtOutput.Text = strDataEnd 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 = 1001End SubPrivate Sub cmdConnect_Click() '调用 Connect 方法,初始化连接。 tcpClient.ConnectEnd SubPrivate Sub txtSendData_Change() tcpClient.SendData txtSend.TextEnd SubPrivate Sub tcpClient_DataArrival _(ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strDataEnd Sub上面的代码创建了一个简单的客户/服务器模式的应用程序。我们可以将两者都运行起来:运行工程,然后单击“连接”。在两个窗体之一的 txtSendData 文本框中键入文本,可以看到同样的文字将出现在另一个窗体的 txtOutput 文本框中。接受多个连接请求上面设计的基本服务器只能接受一个连接请求。通过创建控件数组,使用一个控件也可以同时接受多个连接请求。利用这种方法,不需要关闭连接,而只需创建新的控件实例(通过设置其索引属性),然后在新的实例上调用 Accept 方法。下面的代码假定名为 sckServer 的窗体上有一个 Winsock 控件,它的 Index 属性被设置为 0;因此控件是控件数组的一部分。在声明部分,声明了一个模块级的变量 intMax。在窗体的 Load 事件中,intMax 被设置为 0,数组中第一个控件的 LocalPort 属性被设置为 1001。然后调用控件的 Listen 方法,使之成为“监听”控件。在连接请求到达时,代码将检测 Index 是否为 0(“监听”控件的值)。如果为 0,监听控件将增加 intMax 的值,并使用该号码来创建新的控件实例。然后,使用新的控件实例接受连接请求。Private intMax As LongPrivate Sub Form_Load() intMax = 0 sckServer(0).LocalPort = 1001 sckServer(0).ListenEnd SubPrivate Sub sckServer_ConnectionRequest _(Index As Integer, ByVal requestID As Long) If Index = 0 Then intMax = intMax + 1 Load sckServer(intMax) sckServer(intMax).LocalPort = 0 sckServer(intMax).Accept requestID Load txtData(intMax) End IfEnd Sub 我在窗体里用了自定义的2个控件,一个dll,还有几个纪录集 请教:北京、上海、广州人气很旺的跳蚤市场? 我用VB提供的打包工具, vb中如何获得系统信息? 如何利用VB进行屏幕录制功能 一个漂亮mm跟我要vb课件啊,大家快点帮帮忙,要用flash或者autoware做的 VB 6.0中的RichTextBox控件 Err.Raise 32767是什么意思,后面的数字写多少是怎么规定的 为什么每每挑起事端的帖子访问量才高呢? 怎样判断先前的程序已经运行? SOS:快来抢分!!! 在vb中如何用windows sockets编程
如果应用程序要使用 TCP 协议,那么首先必须决定应用程序是服务器还是客户端。如果要创建一个服务器端,那么应用程序需要“监听”指定的端口。当客户端提出连接请求时,服务器端能够接受请求并建立连接。在连接建立之后,客户端与服务器端可以自由地互相通讯。下列步骤创建一个非常简单的服务器:要创建一个 TCP 服务器,请按照以下步骤执行: 创建新的 Standard EXE 工程。
将缺省窗体的名称改为 frmServer。
将窗体的标题改为“TCP 服务器”。
在窗体中放入一个 Winsock 控件,并将它的名字改为 tcpServer。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData,第二个为 txtOutput。
为窗体添加如下的代码。
Private Sub Form_Load()
'将 LocalPort 属性设置为一个整数。
'然后调用 Listen 方法。
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show '显示客户端的窗体。
End SubPrivate Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
'检查控件的 State 属性是否为关闭的。
'如果不是,
'在接受新的连接之前先关闭此连接。
If tcpServer.State <> sckClosed Then _
tcpServer.Close
'接受具有 requestID 参数的
'连接。
tcpServer.Accept requestID
End SubPrivate Sub txtSendData_Change()
'名为 txtSendData 的 TextBox 控件中
'包含了要发送的数据。当用户往文本框中
'键入数据时,使用 SendData 方法
'发送输入的字符串。
tcpServer.SendData txtSendData.Text
End SubPrivate 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 SubPrivate Sub cmdConnect_Click()
'调用 Connect 方法,初始化连接。
tcpClient.Connect
End SubPrivate Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End SubPrivate Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub上面的代码创建了一个简单的客户/服务器模式的应用程序。我们可以将两者都运行起来:运行工程,然后单击“连接”。在两个窗体之一的 txtSendData 文本框中键入文本,可以看到同样的文字将出现在另一个窗体的 txtOutput 文本框中。接受多个连接请求
上面设计的基本服务器只能接受一个连接请求。通过创建控件数组,使用一个控件也可以同时接受多个连接请求。利用这种方法,不需要关闭连接,而只需创建新的控件实例(通过设置其索引属性),然后在新的实例上调用 Accept 方法。下面的代码假定名为 sckServer 的窗体上有一个 Winsock 控件,它的 Index 属性被设置为 0;因此控件是控件数组的一部分。在声明部分,声明了一个模块级的变量 intMax。在窗体的 Load 事件中,intMax 被设置为 0,数组中第一个控件的 LocalPort 属性被设置为 1001。然后调用控件的 Listen 方法,使之成为“监听”控件。在连接请求到达时,代码将检测 Index 是否为 0(“监听”控件的值)。如果为 0,监听控件将增加 intMax 的值,并使用该号码来创建新的控件实例。然后,使用新的控件实例接受连接请求。Private intMax As LongPrivate Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 1001
sckServer(0).Listen
End SubPrivate Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub