怎么用Winsock发送Fash资源文件用IE/WMP读出？

如何用Winsock发送Fash资源文件用IE/WMP读出？？
Private Sub cmdClose_Click()
 sckListener.CloseSck
 cmdListen.Enabled = False
 End Sub
 
Private Sub cmdListen_Click()
 sckListener.CloseSck
 sckListener.LocalPort = 88
 sckListener.Listen
 cmdListen.Enabled = False
 End Sub
 
Private Sub Form_Load()
 cmdListen_Click
 End Sub
 
Private Sub sckListener_ConnectionRequest(ByVal requestID As Long)
 If sckListener.State <> sckConnected Then
  sckListener.CloseSck
  sckListener.Accept requestID
 End If
 End Sub
 
Private Sub sckListener_DataArrival(ByVal bytesTotal As Long)
 Dim cMessage As String
 sckListener.GetData cMessage
 txtMessage.Text = cMessage
 sckListener.SendData LoadResData("FLASH", 23) '从资源里读取flash.swf文件
 End Sub
 
Private Sub sckListener_SendComplete()
 sckListener.CloseSck
 cmdListen.Enabled = True
 sckListener.Listen
 End Sub
 
这样子怎么发不出去啊？程序会假死，死在那里
 
是想把一个flash文件通过端口发出去，让IE或WMP能打开,比如网址或WMP里输入127.0.0.1:88就能打开flash文件。还望老大帮帮忙了


[解决办法]
那你要做一个HTTP服务器,响应HTTP请求,并发回相应的文件.

搜索"VB HTTP服务器",会有源代码.