lvjianglong163的专栏

http://www.soaspx.com/dotnet/vb.net/vb.net_20091010_846.html

Imports System.IOPublic Class pos    Const GENERIC_READ = &H80000000    Const GENERIC_WRITE = &H40000000    Const OPEN_EXISTING = 3 Private yhflag = 0    Public Declare Function CreateFile Li...