服务启动的时候有没有出错？看看IIS有没有启动了8888端口的网站？
messagebox.show("OK1")放到第一行能不能出来？"c:\web\lib\test.txt"这个文件是否存在
messagebox.show("OK1")
Dim fl As String = "c:\web\" & e.path
If filesys.FileExists(fl)
……
另外如果使用了HttpServer.WebPath就没有必要再使用事件头了，会导致所有访问都判断2次，影响性能
扩展名可以这样
HttpServer.Close
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Prefixes.Add("http://*:8888/")
HttpServer.WebPath = "c:\web\"
HttpServer.Extensions.add(".apk")
HttpServer.Extensions.add(".mp4")
……
HttpServer.Start()
[此贴子已经被作者于2021/8/1 19:54:07编辑过]
加好友 
发短信
Post By：2021/8/1 19:52:00 [只看该作者]
