vb winsock问题

aokjin 2005-04-03 02:29:53
我现在要做一个系统,我从linux系统接收数据,我自己是win2003,然后当收到信息时返回到linux系统!另外,我还要把接收到的数据发给另外的客户端!我永远都是处于被动状态!而且这些传输都是实时的!我现在一头雾水,不知道该怎么做,也不知道自己说清楚了没有,请大虾们给我指点,最好能够贴出代码,我将高分相送
...全文
275 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
poron9 2005-04-04
  • 打赏
  • 举报
回复
我没在VB下写过Socket应用,因为VB的多线程处理功能不理想
不过转贴一份坛子上一位兄弟的UDP应用代码,类似你要的吧。

Private Sub Command1_Click()
With Me.Winsock1
.Protocol = sckUDPProtocol
.Bind 8000, "127.0.0.1"
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim x
Me.Winsock1.GetData x
MsgBox x
End Sub

运行后,用如下xx.vbs文件测试
Set sock = CreateObject("MSWINSOCK.Winsock")
sock.Protocol = 1
sock.RemoteHost = "127.0.0.1"
sock.RemotePort = 8000
sock.SendData "123"
aokjin 2005-04-04
  • 打赏
  • 举报
回复
本机调试成功,就看明天服务器上了!谢谢各位,明天结贴
aokjin 2005-04-03
  • 打赏
  • 举报
回复
楼上的朋友,基本上就是你说的这种格式,能不能有这样的代码给小弟看看啊
poron9 2005-04-03
  • 打赏
  • 举报
回复
首先重要的要确定你的数据包是传送什么数据格式,比如如下格式:
11 123 12345
这个数据包里有三项数据,数据与数据之间使用Tab做分隔符,数据包以回车做为分行符

至于怎么样传送倒不是问题,关键是多线程工作的问题,不建议用VB,建议用VC
fcuandy 2005-04-03
  • 打赏
  • 举报
回复
那这就是简单的关于winsock的使用了.
或许真如2楼所言
aokjin 2005-04-03
  • 打赏
  • 举报
回复
这些我都做好了,但是剩下的我就不太清楚了啊!收到的数据应该是一个id对应一个值,而我还要把这两个值再传送给其他的客户端
fcuandy 2005-04-03
  • 打赏
  • 举报
回复
很简单,不考滤linux

从linux发数据到win2003的某个端口时, 你的WINSOCK只需侦听此端口数据
而你发送数据到linux时,也只管往linux的接收端口发就行了.

至于linux上如何处理就不用管了.就是对winsock几个属性和方法的操作.

.RemotePort
.RemoteHost
.LocalIP
.LocalPort
.Connect
.SendData
.GetData
aokjin 2005-04-03
  • 打赏
  • 举报
回复
这还要钱?分不行的啊!这并不复杂啊,只是我对这个不熟而已啊!代码总长不会超过100行的吧!
mymyal123 2005-04-03
  • 打赏
  • 举报
回复
我晕。

给出代码,

先谈谈价钱

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧