设为首页收藏本站

开启辅助访问切换到窄版

第一问答网»论坛 › 中问网 › 问答 › 会VB的进，我想请教下winsock的一个小问题？谢谢· ...

会VB的进，我想请教下winsock的一个小问题？谢谢·

11 |

2 | 2010-7-14 18:40:51 | 显示全部楼层 |阅读模式

1.winsock一定要用两台以上的计算机，才可以进行程序编写测试吗？比如：我想写一个小程序，我用form1.文本发送的内容，让它等于form2，文本里的内容，就像我用一台电脑上两个QQ号，相互发送文字一样;winsock的编写用一台计算机可以完成吗？
2.帮我写一个简单winsck小程序？
要求：在form1里，新建一个文本框(text1)，一个命令按扭（command1）

在form2里，也新建一个文本框(text1)，和一个命令按扭（command1）；

结果：用form1里的text1写好文字后，让form2里的text1=form1里的text1发送的文字？
谢谢，我没财富值了，不好意思送不好分了！！谢谢了···

回复

使用道具举报

千问 | 2010-7-14 18:40:51 | 显示全部楼层

可以，用IP：137.0.0.1这个IP是回送地址，指本地机，一般是用来程序测试使用form1里添加以下控件：winsock控件，text,command,同样form2里也添加这些控件，form1作为服务端，form2作为客户端(用的是TCP协议):我只是简单的写了这些代码，想要完善的话，还是自己改一下！！form1的代码如下：Private Sub Command1_Click()'发送数据
Winsock1.SendData Text1.TextEnd SubPrivate Sub Form_Load()通信‘设置端口
Winsock1.LocalPort = 1001
W

回复

使用道具举报

千问 | 2010-7-14 18:40:51 | 显示全部楼层

'发送端：添加一个按钮一个文本框一个winsock控件，所有名称默认不变，粘贴代码：Option ExplicitPrivate Sub Command1_Click()
Dim s As String
s = Text1.Text
Winsock1.SendData sEnd SubPrivate

回复

使用道具举报

返回列表发新帖

主题	0 回帖	4882万积分

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行