求助关于那篇VB截获WIN98系列下的IP数据包的文章

Question

hVxD = CreateFile("Vpacket.vxd", _
                      GENERIC_READ Or GENERIC_WRITE, _
                      0, _
                      0, _
                      OPEN_EXISTING, _
                      FILE_ATTRIBUTE_NORMAL Or _
                      FILE_FLAG_OVERLAPPED Or _
                      FILE_FLAG_DELETE_ON_CLOSE, _
                      0)
 我运行这段加载Vpacket.vxd返回的hVxD的值怎么都是-1啊。Vpacket.vxd的路径在当前目录下。我给它加上了具体的路径也不行