Ну, я должен спросить на форуме как настоящую нормию об этом еще раз после долгого времени ..
Это код для подготовки ответа ..
mycontext = myserver.GetContext()
mycontext.Response.ContentType = "video/mp4"
mycontext.Response.Headers.Add("Content-Disposition", "inline; filename=fileboi.mp4")
mycontext.Response.SendChunked = True
inputstream.Position = 0
Dim lngBytesProcessed As Long
lngBytesProcessed=0
While lngBytesProcessed < inputstream.Length
intBytesInCurrentBlock = inputstream.Read(bytBuffer, 0, Math.Min(blocksize, lngFileLength - lngBytesProcessed))
mycontext.Response.OutputStream.Write(bytBuffer, 0, intBytesInCurrentBlock)
mycontext.Response.OutputStream.Flush()
lngBytesProcessed = lngBytesProcessed + CLng(intBytesInCurrentBlock)
RefreshEv(lngBytesProcessed, lngFileLength)
End While
Кроме того, при воспроизведении потока в vlc он просто загружает весь файл и даже не воспроизводит его.