vb编写的web服务器，怎样用来下载mp3等文件

Question

各位大侠，我编写了一个vb下载工具，可以下载网上的东西，我想编写一个web服务器，但是不能用来下载mp3等文件，代码如下：Private Sub Form_Load()

Winsock1.LocalPort = 1024
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
wnsock1.Accept requestID
Dim filename As String
Dim sum As Long
Dim i As Long
Dim lng As Long
filename = "1.mp3"
lng = FileLen(App.Path & "\" & filename) \ 135600
For i = 0 To lng
ReDim sum(135599) As Byte
Open App.Path & "\" & filename For Binary As #1
Get #1, i * 135600 + 1, sum
Close #1
Winsock1.SendData sum
DoEvents
Next i

Winsock1.Close

End If

End Sub

Private Sub Winsock1_SendComplete()
Winsock1.Close
End Sub
请大侠指点一下，最好能详细一点，给出代码，我是菜鸟，刚学习VB不久，谢谢大家了
我的意思是，我想用我编写的下载工具，去下载我电脑中指定的文件（也就是可以实现局域网中文件的下载），下载东西时要通过web服务器下载地址栏里指定地址的文件

Answer 1

下载东西时要通过web服务器下载地址栏里指定地址的文件

你需要先研究一下http协议的相关内容

这里有篇简单的内容供你参考...
http://hi.baidu.com/sdfiyon/blog/item/25ba0ec7e0e53ad8d0006036.html

如果你想自己写个程序相互传文件比较简单,如果你想让你的程序支持浏览器的下载,就比较复杂了,呵呵

Answer 2

这是什么Web Server ？ 搞不明白你想怎么下

Answer 3

winsock不是这样用的，你的下载程序能够下载网上的文件，说明使用的是http或ftp 协议，你的winsock根本就没有定义任何协议和包头，肯定不能通讯的
建议你去研究下 tcp/ip 再来玩 winsock