软件自动安装管理器

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

重发了？

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)

		自动登录	找回密码
密码			加入

[原创] 软件自动安装管理器