问题描述
求教大牛，谢谢先下面小程序在32位，64位的XP,WIN7,WIN8下读500G硬盘OK，但在WIN10下，失败，只能读4G以内，如何解决PublicClassForm1PublichDiskAsIntegerPublicDeclareFunctionCreateFileALib"kernel32"Alias"CreateFileA"(ByVallpFileNameAsString,ByValdwDesiredAccessAsInteger,ByValdwShareModeAsInteger,ByVallpSecurityAttributesAsIntPtr,ByValdwCreationDispositionAsInteger,ByValdwFlagsAndAttributesAsInteger,ByValhTemplateFileAsIntPtr)AsIntegerPublicDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsInteger)AsIntegerPublicDeclareFunctionSetFilePointerLib"kernel32"(ByValhFileAsInteger,ByVallDistanceToMoveAsInteger,ByReflpDistanceToMoveHighAsInteger,ByValdwMoveMethodAsInteger)AsIntegerPublicDeclareFunctionReadFileLib"kernel32"(ByValhFileAsInteger,ByVallpBuffer()AsByte,ByValnNumberOfBytesToReadAsInteger,ByReflpNumberOfBytesReadAsInteger,ByVallpOverLappedAsInteger)AsIntegerPublicEnumDesiredAccessRead=&H80000000Write=&H40000000Execute=&H20000000All=&H10000000EndEnumPublicEnumShareModeDelete=&H4Write=&H2Read=&H1None=0EndEnumPublicEnumCreateModeCreateNew=1CreateAlways=2OpenExisting=3OpenAlways=4TruncateExisting=5EndEnumPublicEnumOpResultERROR_SUCCESS=0INVALID_HANDLE_VALUE=-1EndEnumPublicEnumFileSeekFILE_BEGIN=0FILE_CURRENT=1FILE_END=2EndEnumPublicFunctionOpenDisk(ByValfileNameAsString)AsBooleanTryhDisk=CreateFileA(fileName,DesiredAccess.ReadOrDesiredAccess.Write,ShareMode.ReadOrShareMode.Write,IntPtr.Zero,CreateMode.OpenExisting,0,IntPtr.Zero)OpenDisk=Not(hDisk=OpResult.INVALID_HANDLE_VALUE)CatchexAsExceptionhDisk=FalseEndTryReturnhDiskEndFunctionPublicFunctionCloseDisk()AsBooleanTryCloseDisk=CType(CloseHandle(hDisk),Boolean)CatchexAsExceptionCloseDisk=FalseEndTryReturnCloseDiskEndFunctionPublicFunctionFxSetFilePointer(ByValhFileAsInteger,ByVallDistanceToMoveAsLong,ByValdwMoveMethodAsInteger)AsBooleanTryDimPosLAsIntegerDimPosHAsIntegerDimretAsIntegerSize2Long(lDistanceToMove,PosL,PosH)ret=SetFilePointer(hFile,PosL,PosH,dwMoveMethod)Ifret=PosLThenFxSetFilePointer=TrueElseFxSetFilePointer=FalseEndIfCatchexAsExceptionFxSetFilePointer=FalseEndTryReturnFxSetFilePointerEndFunctionPrivateSubSize2Long(ByValFileSizeAsLong,ByRefIntLowAsInteger,ByRefIntHighAsInteger)Try'&HFFFFFFFFunsigned=4294967295DimCutoffAsLongCutoff=2147483647Cutoff=Cutoff+2147483647Cutoff=Cutoff+1'nowweholdthevalueof4294967295andnot-1IntHigh=0DoUntilFileSize<CutoffIntHigh=IntHigh+1FileSize=FileSize-CutoffLoopIfFileSize>2147483647ThenIntLow=CType(-Cutoff+(FileSize-1),Integer)ElseIntLow=CType(FileSize,Integer)EndIfCatchexAsExceptionThrowexEndTryEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDima(512-1)AsByteIfOpenDisk("\.PhysicalDrive0")=FalseThenMessageBox.Show("Cannotaccessdisk","Warnning",MessageBoxButtons.OK,MessageBoxIcon.Stop)EndEndIfIfFxSetFilePointer(hDisk,0L*512,FileSeek.FILE_BEGIN)=FalseThenExitSubEndIfIfReadFile(hDisk,a,512,0,0)=0ThenExitSubEndIfIfFxSetFilePointer(hDisk,8388607L*512,FileSeek.FILE_BEGIN)=FalseThenExitSubEndIfIfReadFile(hDisk,a,512,0,0)=0ThenExitSubEndIf'将扇区设置为大于8388608后，就无法读了，如何解决IfFxSetFilePointer(hDisk,8388608L*512,FileSeek.FILE_BEGIN)=FalseThenExitSubEndIfIfReadFile(hDisk,a,512,0,0)=0ThenExitSubEndIfIfCloseDisk()=FalseThenMessageBox.Show("Someerrorshavebeenoccured","Warnning",MessageBoxButtons.OK,MessageBoxIcon.Stop)EndEndIfEndSubEndClass
解决方案
解决方案二：
是readfile出错，错误码是87，参数出错的意思，但在XP,WIN7,WIN8下是可以的，不明白win10下为啥在超出4G后会出错
解决方案三：
在vs2010下编译的，在线等大牛解答
解决方案四：
Win64位系统？
解决方案五：
上面小程序在32位，64位的XP,WIN7,WIN8下读500G硬盘OK，但在WIN10下，失败，只能读4G以内。
解决方案六：
是同一台电脑吗？