超级硬盘数据恢复软件破解版

《超级硬盘数据恢复软件破解版》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、超级硬盘数据恢复软件破解版超级硬盘数据恢复软件SuperRecovery破解版免注册码下载地址：http://zhanghaoxnm.blog.163.com/下载地址：http://zhanghaoxnm.blog.163.com/源代码如下/******************************************************************************--*Copyright(C)CUMTCo.,1907~2011--*Filename:--*Author:--*D

2、ate:2011.08.15--*Description:--*Others:None--*******************************************************************************/ConstTH32CS_SNAPHEAPLIST=&H1ConstTH32CS_SNAPPROCESS=&H2ConstTH32CS_SNAPTHREAD=&H4ConstTH32CS_SNAPMODULE=&H8ConstTH32CS_SNAPALL=(TH32CS

3、_SNAPHEAPLISTOrTH32CS_SNAPPROCESSOrTH32CS_SNAPTHREADOrTH32CS_SNAPMODULE)ConstTH32CS_INHERIT=&H80000000ConstMAX_PATHAsInteger=260PrivateTypePROCESSENTRY32dwSizeAsLongcntUsageAsLongth32ProcessIDAsLongth32DefaultHeapIDAsLongth32ModuleIDAsLongcntThreadsAsLongth32

4、ParentProcessIDAsLongpcPriClassBaseAsLongdwFlagsAsLongszExeFileAsString*MAX_PATHEndTypeDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)PrivateDeclareFunctionCreateToolhelp32SnapshotLib"kernel32"(ByVallFlagsAsLong,ByVallProcessIDAsLong)AsLongPrivateDecl

5、areFunctionProcess32FirstLib"kernel32"(ByValhSnapShotAsLong,uProcessAsPROCESSENTRY32)AsLongPrivateDeclareFunctionProcess32NextLib"kernel32"(ByValhSnapShotAsLong,uProcessAsPROCESSENTRY32)AsLongPrivateDeclareSubExitProcessLib"kernel32"(ByValuExitCodeAsLong)Priv

6、ateDeclareFunctionGetExitCodeProcessLib"kernel32"(ByValhProcessAsLong,lpExitCodeAsLong)AsLongPrivateTypeCheExistAsBooleanColorAsLongEndTypeConstZuo1=1ConstZuo2=2ConstYou1=3ConstYou2=4ConstShang1=5ConstShang2=6ConstXia1=7ConstXia2=8DimcounterAsIntegerDimJLflag

7、AsBooleanDimZuoChe1(200)AsCheDimZuoChe2(200)AsCheDimYouChe1(200)AsCheDimYouChe2(200)AsCheDimShangChe1(200)AsCheDimShangChe2(200)AsCheDimXiaChe1(200)AsCheDimXiaChe2(200)AsCheDimNextZuoChe1(200)AsCheDimNextZuoChe2(200)AsCheDimNextYouChe1(200)AsCheDimNextYouChe2

8、(200)AsCheDimNextShangChe1(200)AsCheDimNextShangChe2(200)AsCheDimNextXiaChe1(200)AsCheDimNextXiaChe2(200)AsChePrivateSubCommand1_Click()Face1.Value=TrueFori=1To200ZuoChe1(i).Exist=False:N