VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 303|回复: 3

[求助] winsock控件的问题

[复制链接]
发表于 2018-10-8 10:25:04 | 显示全部楼层 |阅读模式
我买了《VB网络与远传控制编程实例教程》,在25页有个例子,UDP客户端/服务器。
客户端两个文本框,一个按钮,一个winsock控件。
代码如下:
Private Sub CmdSend_Click()
    '发送数据
    sckclient.SendData TxtSend.Text
End Sub

Private Sub Form_Load()
    With sckclient
    '要连接到计算机的IP或名称
    .RemoteHost = "127.0.0.1"
    '要连接到计算机的端口
    .RemotePort = 1002
    '本地计算机使用的端口
    .LocalPort = 1001
    '将sckclient绑定到本地计算机1002端口
    .Bind 1001
End With
End Sub

Private Sub sckclient_DataArrival(ByVal bytesTotal As Long)
    Dim MyStr As String
    '得到数据
    sckclient.GetData MyStr
    TxtGet.Text = TxtGet.Text & Chr(10) & Chr(13) & MyStr
End Sub
服务器端两个文本框,一个按钮,一个winsock控件。
代码如下:
Private Sub CmdSend_Click()
'发送数据
SckServer.SendData TxtSend.Text
End Sub

Private Sub Form_Load()
With SckServer
'要连接到计算机的IP或名称
.RemoteHost = "127.0.0.1"
'要连接到计算机的端口
.RemotePort = 1001
'本地计算机使用的端口
.LocalPort = 1002
'将sckclient绑定到本地计算机1001端口
.Bind 1002
End With
End Sub
Private Sub SckServer_DataArrival(ByVal bytesTotal As Long)
Dim MyStr As String
'得到数据
SckServer.GetData MyStr
TxtGet.Text = TxtGet.Text & Chr(10) & Chr(13) & MyStr
End Sub
运行两个程序,在客户端TxtSend文本框中输入123,点击按钮发送,出现错误
1.jpg
请问高手,哪里错了?如何解决?谢谢!


 楼主| 发表于 2018-10-8 10:27:16 | 显示全部楼层
2.jpg

这一行出错
回复 支持 反对

使用道具 举报

发表于 2018-10-15 16:32:25 | 显示全部楼层
留下联系方式吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-10-22 14:05:34 | 显示全部楼层
xss 发表于 2018-10-15 16:32
留下联系方式吧

QQ:413132614
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-12-18 21:56

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表