我用Winsock控件编了一个小的通信程序,在VB开发环境下能运行,但为什么生成.EXE文件就不能运行呢? 建议你用visual studio 6.0 tools中的package &development wizard看看,你的工程都需要哪些dll或者是ocx.发行的时候,把这些dll和ocx,一块发行就可以了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我编程的步骤如下:创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为 frmPeerA。将窗体的标题修改为“Peer A”。在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。为窗体增加如下的代码。 Private Sub Form_Load()'控件的名字为 udpPeerAWith udpPeerA'必须将 RemoteHost 的值'修改为计算机的IP地址。.RemoteHost= "PeerB" .RemotePort = 1001 '连接的端口号。.Bind 1002 '绑定到本地的端口。End WithfrmPeerB.Show '显示第二个窗体。End SubPrivate Sub txtSend_Change()'在键入文本时,立即将其发送出去。udpPeerA.SendData txtSend.TextEnd SubPrivate Sub udpPeerA_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerA.GetData strDatatxtOutput.Text = strDataEnd Sub创建第二个 UDP 伙伴在工程中添加一个标准窗体。将窗体的名字修改为 frmPeerB。将窗体的标题修改为“Peer B”。在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。在窗体中添加如下的代码。 Private Sub Form_Load()'控件的名字为 udpPeerB。With udpPeerB'必须将 RemoteHost 的值改为'计算机的IP地址。.RemoteHost= "PeerA".RemotePort = 1002 '要连接的端口。.Bind 1001 '绑定到本地的端口上。End WithEnd SubPrivate Sub txtSend_Change()'在键入后立即发送文本。udpPeerB.SendData txtSend.TextEnd SubPrivate Sub udpPeerB_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerB.GetData strDatatxtOutput.Text = strDataEnd Sub就是这个程序,在生成.EXE后出错. .Bind 1002====>.Bind 1002,udpPeerA.localIP.Bind 1001====>.Bind 1001,udpPeerB.localIP 请问如何将定长字符串前后多余的空格去掉? VB打包问题----------急啊 求助 一段难弄的代码,高分!!! MSFlexGrid控件中能不能多加一个属性,实现每个格子的tooltiptext. 如何把WebBrower里面的image图片加到VB的Picture里面去? 关于VB中的RecordSet 高分寻VB.NET的名著,名家,名网? 大家帮个忙看看,这是什么问题? 还是屏保问题. 如何获得文件的创建时间!!!!!! 简单的问题
创建一个新的 Standard EXE 工程。
将缺省的窗体的名称修改为 frmPeerA。
将窗体的标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。
在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。
在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
为窗体增加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerA
With udpPeerA
'必须将 RemoteHost 的值
'修改为计算机的IP地址。
.RemoteHost= "PeerB"
.RemotePort = 1001 '连接的端口号。
.Bind 1002 '绑定到本地的端口。
End With
frmPeerB.Show '显示第二个窗体。
End SubPrivate Sub txtSend_Change()
'在键入文本时,立即将其发送出去。
udpPeerA.SendData txtSend.Text
End SubPrivate Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub创建第二个 UDP 伙伴
在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。
将窗体的标题修改为“Peer B”。
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。
在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
在窗体中添加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB
'必须将 RemoteHost 的值改为
'计算机的IP地址。
.RemoteHost= "PeerA"
.RemotePort = 1002 '要连接的端口。
.Bind 1001 '绑定到本地的端口上。
End With
End Sub
Private Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End Sub
Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
就是这个程序,在生成.EXE后出错.