VB 我需要用vb写个简单web服务器器现在可以实现浏览htm文件，但是jpg等图像文件浏览不了 rar文件不可以下载 如何解决

Question

VB 我需要用vb写个简单web服务器器现在可以实现浏览htm文件，但是jpg等图像文件浏览不了 rar文件不可以下载 如何解决zip文件可下载 但是会出现下载文件打不开 并且大小与原文件大小不同最关键 是需要解决 图像显示问题谁有什么高招吗？

Answer 1

数据发送 代码 
Dim mybyte() As Byte '发送方数组
Dim mybytesize As Long
Dim Filelen As Single
Dim Maxlen As Single
Open requestfilename For Binary As #1
Maxlen = 4000
mybytesize = Maxlen
Filelen = LOF(1)
Winsock1.SendData head(Filelen, cont)
Debug.Print "总大小：" + Str(Filelen)
Do
If Filelen - Loc(1) < Maxlen Then mybytesize = (Filelen - Loc(1))
ReDim mybyte(0 To mybytesize - 1) As Byte
Get #1, , mybyte
Winsock1.SendData mybyte
Debug.Print "位置:" + Str(Loc(1)) + "+++" + Str(UBound(mybyte))
Loop While Loc(1) < Filelen

Answer 2

问题已解决
加上 DoEvents 就搞定了If Filelen - Loc(1)  < Maxlen Then mybytesize = (Filelen - Loc(1)) 
ReDim mybyte(0 To mybytesize - 1) As Byte 
Get #1, , mybyte 
DoEvents
Winsock1.SendData mybyte 
DoEvents
Debug.Print "位置:" + Str(Loc(1)) + "+++" + Str(UBound(mybyte)) 
Loop While Loc(1)  < Filelen晚上 回家的时候 看了 下别人 写的关于 winsock 的  里面提了句 winsock 单次能传 4K 或者8K 大小数据后来经过 测试我的 发现我的 可见数据正好都是 它的倍数猜想 是不是 没受到数据呢 我就给关闭了。哈哈  感谢 上面两位的关注现在我的web server 可以浏览 txt htm jpg gif 了  已经完成目标功能了。
等以后有时间 好好琢磨 琢磨 让他 能对其他格式文件进行支持。如：swf、mp3、rar、zip等