论坛 › 『 作品展览 』 › 软件自动安装管理器

YoDe 发表于 2011-1-20 04:00:25

好东西 相信物超所值

YoDe 发表于 2011-1-20 04:03:11

没有源码？白下载了。。。

bhyy2012 发表于 2011-1-27 21:01:02

有源码么？。。。。支持。。。界面不错。。。

不要叫我帅哥 发表于 2011-1-28 16:03:06

还是不知道这个皮肤怎么加进去

不要叫我帅哥 发表于 2011-1-28 16:16:29

好像少那些文字的，全选，反选，安装的没有

twfusoul 发表于 2011-1-28 16:21:43

没有源码吗？想找源码研究一下

№ツ遺夨◆ミ 发表于 2011-2-1 05:03:02

谢谢楼主经典大作。

sanborn 发表于 2011-2-9 10:07:30

添加删除软件是通过ini配置文件吗

165235590 发表于 2011-2-11 22:04:31

我真的想下载啊先谢谢了啊

BlackJacKi 发表于 2011-2-12 20:18:10

不错的脚本...可惜我没钱。。。残念...

guang19831217 发表于 2011-2-17 11:41:52

支持下，挺不错的。

cheng8457 发表于 2011-2-17 12:21:16

越做越是人性化介面了.....
越來越高級了

shihai 发表于 2011-2-18 10:01:04

真的不错想学习

a677520 发表于 2011-3-17 06:52:05

重发了？ {:face (394):}

719931662 发表于 2011-3-21 20:36:14

#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)

查看完整版本: 软件自动安装管理器