#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=setup1.ico
#AutoIt3Wrapper_Res_Description=软件安装器 v1.0
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_Field=主页|http://wjq0886.spaces.live.com
#AutoIt3Wrapper_Res_Field=源码|wjq0886
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
脚本作者: wjq0886
主页: http://wjq0886.spaces.live.com/
QQ/TM:
脚本版本: 1.0.0.0
脚本功能: 软件安装器
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GuiListView.au3>
#include <Misc.au3>
_Singleton("test")
$g_szVersion = "test"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
If FileExists(@ScriptDir & "" & "SoftIns.ini") <> 1 Then
MsgBox(64, "", "出错了，在当前目录下没有找到配置文件SoftIns.ini。")
Exit
EndIf
$rdmu = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "rd", "")
$biaoti = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "name", "")
$Form1 = GUICreate($biaoti, 400, 330, -1, -1)
$picname = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "pic", "")
$pic = GUICtrlCreatePic($picname, 0, 0, 400, 70)
$button1 = GUICtrlCreateButton("安装(&E)", 335, 300, 55, 25)
$button2 = GUICtrlCreateButton("全选(&Q)", 280, 300, 55, 25)
$button3 = GUICtrlCreateButton("不选(&B)", 225, 300, 55, 25)
$nListView = GUICtrlCreateListView("软件名称|大小(M)|版本|推荐等级", 0, 70, 400, 225, $LVS_ICON, BitOR($LVS_EX_CHECKBOXES, $LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
_GUICtrlListView_SetColumnWidth($nListView, 0, 150) ;设置ListView标题宽度
FileInstall("_setup.ico", @TempDir & "\_setup.ico", 1)
GUICtrlSetImage($nListView, "_setup.ico")
FileDelete(@TempDir & "\_setup.ico")
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
$set = IniReadSectionNames(@ScriptDir & "\SoftIns.ini")
$r = 0
Local $Listem[$set[0] + 1]
Local $name[$set[0] + 1]
Local $canshu[$set[0] + 1], $xg
If @error Then
MsgBox(4096, "", "配置文件SoftIns.ini错误，请检查。")
Exit
Else
For $i = 1 To $set[0]
If $set[$i] = "Main" Then
Else
$setup = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "setup", "")
If @error Then
Else
$xg = StringInStr($setup, " /")
If $xg = 0 Then
$name[$i] = @ScriptDir & "" & $setup
Else
$name[$i] = @ScriptDir & "" & StringLeft($setup, $xg - 1)
$canshu[$i] = StringTrimLeft($setup, $xg - 1)
EndIf
If FileExists($name[$i]) = 1 Then
$dx = Round(FileGetSize($name[$i]) / 1024 / 1024, 2)
Else
$dx = "文件不存在"
EndIf
EndIf
$Version = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "Version", "")
If @error Then
Else
If $Version = "" Then
$bb = FileGetVersion($name[$i])
Else
$bb = $Version
EndIf
EndIf
$section = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "section", "")
If @error Then
Else
If $section = 1 Or $section = 2 Or $section = 3 Then
If $section = 1 Then
$dj = "必备软件"
EndIf
If $section = 2 Then
$dj = "常用软件"
EndIf
If $section = 3 Then
$dj = "可选软件"
EndIf
Else
$dj = ""
EndIf
EndIf
$Listem[$i] = GUICtrlCreateListViewItem($set[$i] & "|" & $dx & "|" & $bb & "|" & $dj, $nListView)
$state = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "state", "")
If @error Then
Else
If $state = 1 Then
GUICtrlSetState($Listem[$i], $GUI_CHECKED)
EndIf
EndIf
$ico = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "ico", "")
If @error Then
Else
GUICtrlSetImage($Listem[$i], @ScriptDir & "" & $ico)
EndIf
EndIf
Next
EndIf
$shijian = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "time", "")
If @error Then
$shijian = 15
Else
If $shijian = "" Then
$shijian = 15
EndIf
EndIf
$Label1 = GUICtrlCreateLabel(" " & $shijian, 0, 303, 30, 25)
GUICtrlSetColor($Label1, 0xFF0000)
GUICtrlSetFont($Label1, 12, 800)
$Label2 = GUICtrlCreateLabel("秒后自动安装所选中的软件", 30, 305, 150, 25)
GUICtrlSetColor($Label2, 0x0000FF)
GUISetState(@SW_SHOW, $Form1)
$time = $shijian - 1
AdlibRegister("djs", 100 * $time)
$wait = 0
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & $rdmu & '"', $rdmu, @SW_HIDE)
Exit
Case $nMsg = $button2
For $i = 0 To $set[0]-1
GUICtrlSetState($Listem[$i], $GUI_CHECKED)
_GUICtrlListView_SetItemSelected($nListView, $i,True) ;设置项目选中
Next
Case $nMsg = $button3
For $i = 1 To $set[0]
GUICtrlSetState($Listem[$i], $GUI_UNCHECKED)
Next
Case $nMsg = $GUI_EVENT_PRIMARYDOWN
AdlibUnRegister()
GUICtrlSetState($Label1, $GUI_HIDE)
$xx = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "label", "")
If @error Or $xx = "" Then
$xx = "-- wjq0886 作品 --"
EndIf
GUICtrlSetData($Label2, $xx)
GUICtrlSetState($Label2, $GUI_DISABLE)
Case $nMsg = $button1
yunxing()
EndSelect
WEnd
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
Local $Item_Index, $SubItem_Index, $Run_Install
$hWndListView = $nListView
If Not IsHWnd($nListView) Then $hWndListView = GUICtrlGetHandle($nListView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam); 创建 C/C++ 数据结构供 DllCall 使用
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_CLICK ; 发送 鼠标左键单击项目 消息
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam); 创建 C/C++ 数据结构
$Item_Index = DllStructGetData($tInfo, "Index") ;获取 被点击主项目的索引
If _GUICtrlListView_GetItemChecked ($nListView, $Item_Index) = False Then ;检测项目选择状态
_GUICtrlListView_SetItemSelected($nListView, $Item_Index, True) ;选中
Else
_GUICtrlListView_SetItemSelected($nListView, $Item_Index, False);非选中
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func djs()
GUICtrlSetData($Label1, " " & $time)
$time = $time - 1
If $time = -1 Then
yunxing()
EndIf
EndFunc ;==>djs
Func yunxing()
$A = _GUICtrlListView_GetSelectedCount(GUICtrlGetHandle($nListView));确定被选项的数量
MsgBox(0,0,GUICtrlGetHandle($nListView))
GUISetState(@SW_HIDE, $Form1)
For $i = 1 To $set[0]
If GUICtrlRead($Listem[$i], 1) <> 1 Then
$r = $r + 1
EndIf
Next
If $r = $set[0] Then
MsgBox(64, "", "您没有选择安装任何软件。")
GUISetState(@SW_SHOW, $Form1)
Else
ProgressOn("", "", "", -1, @DesktopHeight - 135, 1)
$pro = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "pro", "")
For $i = 1 To $A
ProgressSet(($i - 2) * 100 / ($set[0] - 2), $i & "/" & $A & " 正在安装" & $set[$i] & "..." & @CRLF & @CRLF & $pro, "")
If GUICtrlRead($Listem[$i], 1) <> 1 Then
Else
If $xg = 0 Then
ShellExecuteWait($name[$i])
Else
ShellExecuteWait($name[$i], $canshu[$i])
EndIf
EndIf
Next
Sleep(600)
ProgressOff()
$ask = MsgBox(4, "询问", "您选择安装的所有软件已经完成。" & @CRLF & "您要删除所有的软件吗？(删除程序及所在目录的所有文件)")
If $ask = 6 Then
Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & $rdmu & '"', $rdmu, @SW_HIDE)
Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & @ScriptDir & '"', @ScriptDir, @SW_HIDE)
Exit
Else
Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & $rdmu & '"', $rdmu, @SW_HIDE)
Exit
EndIf
EndIf
EndFunc ;==>yunxing
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
AutoIt 版本: 3.2.13.6 (第一版)
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本结束＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2010-2-19 20:54:35
发表于 2010-2-20 21:16:24