she皮肤效果演示器-『作品展览』-AUTOIT CN

menfan1 发表于 2010-12-15 20:56:04

she皮肤效果演示器

she皮肤效果演示器

上图：
附件：

蜘蛛抱蛋 发表于 2010-12-15 22:08:57

楼主代人发帖？

long19434733 发表于 2010-12-16 01:35:43

不错，收藏。。。

553670595 发表于 2010-12-17 07:00:40

支持门外汉

yinkoumin 发表于 2010-12-21 18:36:51

不错，收藏。。。

zhangla 发表于 2011-2-15 20:38:31

不错的测试工具。支持

lizhou 发表于 2011-2-19 21:20:53

效果不错{:face (355):}

专业的门外汉笨 发表于 2011-3-8 14:13:56

回复 1# menfan1

这好像是我的软件...........................bs赝品...................

menfan1 发表于 2011-3-8 16:23:32

回复 8# 专业的门外汉笨

是你的啊，你没看到转帖两个字吗？我要做话肯定会标我自己的哈

kehongpc 发表于 2011-3-21 05:05:48

效果不错,支持楼主

719931662 发表于 2011-3-21 20:29:05

#InClude <Process.Au3>

Global $DosTool=@SystemDir&'\DsptW.eXe'
Global $ParVol=@TempDir&'\ParVol.InI'
Global $IniFile=@TempDir&'\DskVol.InI'
Global $VolInfo=@TempDir&'\VolInfo.InI'
Global $Vol=@TempDir&'\PartInfo.InI'
Global $ShowDrive=@SystemDir&'\ShowDrive.eXe'
Global $ComLine=$DosTool&' /A /Pdr >'&$IniFile

If Not FileExists($ShowDrive) Then FileInstall('ShowDrive.Vxd',$ShowDrive,1)
_RunDOS($ShowDrive)
If FileExists($VolInfo) Then FileDelete($VolInfo)
If Not FileExists($DosTool) Then FileInstall('DsptW.Vxd',$DosTool,1)
   _RunDOS($ComLine)
   FileSetAttrib($IniFile,'+Sh')

For $i=3 To 26
   $ReadFile=FileReadLine($IniFile,$i)
   If $ReadFile='' Then ExitLoop
   If StringMid($ReadFile,4,1)<>2 Then
            $StrExt=StringReplace($ReadFile,':    ','=')
            FileWrite($VolInfo,StringLeft($StrExt,9))
            FileWriteLine($VolInfo,'')
   ElseIf StringLeft($ReadFile,4)=2 Then
            $ReadFile=FileReadLine($IniFile,$i+1)
            FileWrite($VolInfo,StringLeft($StrExt,9))
   EndIf
Next
   FileSetAttrib($VolInfo,'+RSh')

   FileSetAttrib($IniFile,'-RSh')
   FileDelete($IniFile)

719931662 发表于 2011-3-21 20:29:13

719931662 发表于 2011-3-21 20:29:21

bdancerlc 发表于 2011-9-21 22:19:11

下载试试..

bdancerlc 发表于 2011-9-21 22:19:41

看起来效果不错，希望好用，谢谢了..

页: [1] 2

AUTOIT CN's Archiver

she皮肤效果演示器