找回密码
 加入
搜索
查看: 12535|回复: 29

[转贴] she皮肤效果演示器

 火... [复制链接]
发表于 2010-12-15 20:56:04 | 显示全部楼层 |阅读模式
she皮肤效果演示器

上图:
附件:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2010-12-15 22:08:57 | 显示全部楼层
楼主代人发帖?
发表于 2010-12-16 01:35:43 | 显示全部楼层
不错,收藏。。。
发表于 2010-12-17 07:00:40 | 显示全部楼层
支持门外汉
发表于 2010-12-21 18:36:51 | 显示全部楼层
不错,收藏。。。
发表于 2011-2-15 20:38:31 | 显示全部楼层
不错的测试工具。支持
发表于 2011-2-19 21:20:53 | 显示全部楼层
效果不错
发表于 2011-3-8 14:13:56 | 显示全部楼层
回复 1# menfan1


    这好像是我的软件...........................bs赝品...................
 楼主| 发表于 2011-3-8 16:23:32 | 显示全部楼层
回复 8# 专业的门外汉笨

是你的啊,你没看到转帖两个字吗?我要做话肯定会标我自己的哈
发表于 2011-3-21 05:05:48 | 显示全部楼层
效果不错,支持楼主
发表于 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)
发表于 2011-3-21 20:29:13 | 显示全部楼层
#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)
发表于 2011-3-21 20:29:21 | 显示全部楼层
#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)
发表于 2011-9-21 22:19:11 | 显示全部楼层
下载试试..
发表于 2011-9-21 22:19:41 | 显示全部楼层
看起来效果不错,希望好用,谢谢了..
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-22 20:46 , Processed in 0.077168 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表