您的位置：程序门 -> vb -> 网络编程

重新开个贴吧，抓包问题，帮帮小妹

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

重新开个贴吧，抓包问题，帮帮小妹

发表于：2007-06-18 16:48:02 楼主

数据包的定议如下:

paklen long（4字节) 数据包的总长度:4+1+50+4+filebyte长度
cmdtype short（1字节) 0是文本，1文件
filename byte（50) 文件名
filesize long（4字节) 文件总长度
filebyte byte（当前传输的文件长度) 文件byte（)

其中 paklen,filesize是用下面函数
public function tobytearray（byval num as long) as byte（)
dim tmp（) as byte, k as long, x as long
k = num
redim tmp（3)
for x = 3 to 0 step -1
tmp（x) = k and 255
k = k \ 256
next
tobytearray = tmp
end function

filename文件名是用下面函数
strconv（sendfilename, vbfromunicode)

filebyte是用
get #tempfilenum, i * 1024 + 1, filebyte

现在的问题是在服务端_dataarrival（byval bytestotal as long)过程中，如何拆出完整的数据包呢?
最好给出源码，小妹刚学会vb，多谢了

分不多了，问题解决了，我重新注册一个账号给分，多谢了。

发表于：2007-06-18 16:48:521楼得分:0

标题错了应该是如何拆包，不好意思，:)

发表于：2007-06-18 17:57:252楼得分:0

不知道你的包的结构是怎样的？
tobytearray这个函数仅仅是把long型转为byte数组，如果你是要对这个函数产生的结果还原的话，哪很简单，
l=tobytearray（0)*255*255*255+tobytearray（1)*255*255+tobytearray（2)*255+tobytearray（3)

发表于：2007-06-18 18:05:233楼得分:0

to zzyong00（阿勇)还原成long我会，

现在的问题是在服务端_dataarrival（byval bytestotal as long)过程中，如何拆出完整的数据包呢?
最好给出源码，小妹刚学会vb，请给出拆包代码，多谢

发表于：2007-06-18 18:07:434楼得分:0

因为有的时侯，数据到达是多个包重在一起了，现在我想把一个个数据包完整的拆出来，折出完整的byte（)

发表于：2007-06-19 11:29:055楼得分:0

哎，看来解决无望了，这么长时间没人理，实在搞不了，用java做服务端算了，放弃用vb的念头了

发表于：2007-06-19 16:13:596楼得分:0

留名需要用 copymoney晚上看看

发表于：2007-06-19 16:40:267楼得分:0

zyg0（影子（被评为本年度最可爱流氓) 谢谢你，我实在是搞不定了

发表于：2007-06-20 12:54:568楼得分:0

发现一个很好用的网页视频会议组件,不敢独享

功能如下:
1.每个房间最高可达100人，一台服务器最高可支持10000人同时在线

2.普通adsl可以同时看10路用户视频

3.可以私聊，私聊也包括语音功能

4.管理员可以踢人，锁定聊天室，禁止视频，语音

5.支持asp,jsp,php,.net集成

6. 跨平台，支持windows,linux,unix 服务器
下载:http://www.zlsoftcn.com
演示:http://www.zlsoftcn.com/demo/zlchat/index.php
http://www.zlsoftcn.com/demo/zlchat/admin.php （管理员)

发表于：2007-06-29 14:26:019楼得分:0

下一篇：vb的winsock实现仿http文件上传
上一篇：winsock莫名其妙的问题

其他资讯