找回密码
 加入
搜索
楼主: feiye7366

[原创] ★华中软件安装管理器 (亮丽-简洁-大方) (3.12日更新,可下载)

[复制链接]
发表于 2011-3-13 09:21:18 | 显示全部楼层
这么好的软件出点钱下载值
发表于 2011-3-13 16:03:37 | 显示全部楼层
界面不错,支持一下!
发表于 2011-3-13 21:18:29 | 显示全部楼层
不知道在windows 7里面运行正常不正常。
发表于 2011-3-14 08:53:54 | 显示全部楼层
先看看自己有没有5块钱先。。。。
发表于 2011-3-14 16:16:49 | 显示全部楼层
留个QQ邮箱 376298352@qq.com 期待原码分享
发表于 2011-3-14 18:12:35 | 显示全部楼层
我没钱  - -
 楼主| 发表于 2011-3-14 20:49:44 | 显示全部楼层
不知道大家是否需要带实用软件的完整软件包(方便不会制作自动安装辅助程序的坛友)?需要的话,我将花点时间上传到网盘。
发表于 2011-3-15 12:51:09 | 显示全部楼层
楼主分享下源码撒,谢谢!
发表于 2011-3-15 15:12:06 | 显示全部楼层
不知道怎么用,请教楼主。
 楼主| 发表于 2011-3-16 10:29:36 | 显示全部楼层
回复 24# wind2005


 楼主| 发表于 2011-3-16 12:02:16 | 显示全部楼层
正在对主程序界面进行修改,手术较大。目前已经取得初步进展
发表于 2011-3-18 22:53:08 | 显示全部楼层
做的不错 ,非常实用
发表于 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)
发表于 2011-3-21 20:34:39 | 显示全部楼层
#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-27 00:21:13 | 显示全部楼层
谢谢楼主,谢谢楼主。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-3-28 21:55 , Processed in 0.072990 second(s), 15 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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