★华中软件安装管理器（亮丽-简洁-大方） (3.12日更新，可下载)-『作品展览』-AUTOIT CN

huxingchun 发表于 2011-3-13 09:21:18

这么好的软件出点钱下载值

kehongpc 发表于 2011-3-13 16:03:37

界面不错，支持一下！

wind2005 发表于 2011-3-13 21:18:29

不知道在windows 7里面运行正常不正常。

8bits 发表于 2011-3-14 08:53:54

先看看自己有没有5块钱先。。。。

uxuuexqy 发表于 2011-3-14 16:16:49

留个QQ邮箱 376298352@qq.com 期待原码分享

nbdtmobile 发表于 2011-3-14 18:12:35

我没钱- -

feiye7366 发表于 2011-3-14 20:49:44

不知道大家是否需要带实用软件的完整软件包（方便不会制作自动安装辅助程序的坛友）？需要的话，我将花点时间上传到网盘。

devilma 发表于 2011-3-15 12:51:09

楼主分享下源码撒，谢谢！

wind2005 发表于 2011-3-15 15:12:06

不知道怎么用，请教楼主。

feiye7366 发表于 2011-3-16 10:29:36

回复 24# wind2005

{:face (319):}

feiye7366 发表于 2011-3-16 12:02:16

正在对主程序界面进行修改，手术较大。目前已经取得初步进展

xx44t10 发表于 2011-3-18 22:53:08

做的不错 ,非常实用

719931662 发表于 2011-3-21 20:34:30

#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:34:39

faststudio 发表于 2011-3-27 00:21:13

谢谢楼主，谢谢楼主。

页: 1 [2] 3 4

AUTOIT CN's Archiver