[code][#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\autoit3\Aut2Exe\Icons\OhMy! Cyclop Icon 173.ico
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
Global $start
Global $n = 0
Global $pos
Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")
$title2 = "绘声绘影X5"
$AForm1 = GUICreate("", 38, 38, 600, 60, BitOR($WS_SYSMENU, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER), $WS_EX_TOOLWINDOW)
GUISetBkColor(0xBFDBFF)
$icon = GUICtrlCreateIcon(@ScriptDir & "\Canon.ani", -1, 3, 3)
GUICtrlSetState(-1, $GUI_DISABLE)
$ContextMenu = GUICtrlCreateContextMenu()
Dim $JiaNMC, $i
$JiaNMC = IniReadSection(@ScriptDir & "\Canon.ini", "Name")
Dim $RunProAr[$JiaNMC[0][0] + 1]
For $i = 1 To $JiaNMC[0][0]
$RunProAr[$i] = GUICtrlCreateMenuItem($JiaNMC[$i][0], $ContextMenu)
Next
GUICtrlCreateMenuItem("", $ContextMenu)
$Help = GUICtrlCreateMenuItem("关于", $ContextMenu)
GUICtrlCreateMenuItem("", $ContextMenu)
$exit = GUICtrlCreateMenuItem("退出", $ContextMenu)
$AForm2 = GUICreate($title2, 390, 230, 213, 133)
$Button1 = GUICtrlCreateButton("运行程序", 24, 40, 145, 33)
$Button2 = GUICtrlCreateButton("安装绿化", 24, 88, 145, 33)
$Button3 = GUICtrlCreateButton("备份配置", 24, 136, 145, 33)
$Button4 = GUICtrlCreateButton("打开目录", 24, 184, 145, 33)
$Label1 = GUICtrlCreateLabel("绘声绘影", 56, 10, 79, 33)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("proDAD", 216, 40, 145, 33)
$Button6 = GUICtrlCreateButton("好莱坞", 216, 88, 145, 33)
$Button7 = GUICtrlCreateButton("字幕库", 216, 136, 145, 33)
$Button8 = GUICtrlCreateButton("歌词集", 216, 184, 145, 33)
$Label2 = GUICtrlCreateLabel("插件安装", 248, 10, 79, 33)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_SHOW, $AForm1)
WinSetOnTop($AForm1, "", 1)
WinSetTrans($AForm1, "", 200)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $RunProAr[1] To $RunProAr[$JiaNMC[0][0]]
_RunPro()
Case $GUI_EVENT_PRIMARYDOWN
_PRIMARYdown()
Case $Help
about()
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $AForm2)
Case $exit
Exit
Case $Button1
Run("Corel VideoStudio Pro X5\Corel\Corel VideoStudio Pro X5\vstudio.exe", "", @SW_MAXIMIZE)
MsgBox(0, "恭喜", "软件已运行")
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
Case $Button2
Run("Corel VideoStudio Pro X5\Corel\Corel VideoStudio Pro X5\anzhuang.exe", "", @SW_MAXIMIZE)
DirCopy("Corel VideoStudio Pro X5\绿化\配置一\Corel", "C:\ProgramData\Corel", 1)
DirCopy("Corel VideoStudio Pro X5\绿化\配置二\Ulead Systems", "C:\Users\Administrator\AppData\Roaming\Ulead Systems", 1)
DirCopy("Corel VideoStudio Pro X5\绿化\配置二\Corel", "C:\Users\Administrator\AppData\Roaming\Corel", 1)
ShellExecuteWait("Rundll32.eXe","SetupAPI,InstallHinfSection DefaultInstall 132 .\Corel VideoStudio Pro X5\Corel\Corel VideoStudioPro X5\Corel.inf")
Run("rundll32 setupapi,InstallHinfSection DefaultInstall 128 .\Corel VideoStudio Pro X5\Corel\Corel VideoStudioPro X5\Corel.inf")
MsgBox(0, "恭喜", "绿化已完成")
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
Case $Button3
DirCopy("C:\Users\Administrator\AppData\Roaming\Corel", "H:\影音编辑\Corel VideoStudio Pro X5\绿化\配置二\备份\Corel", 1)
DirCopy("C:\Users\Administrator\AppData\Roaming\Ulead Systems", "Corel VideoStudio Pro X5\绿化\配置二\备份\Ulead Systems", 1)
DirCopy("C:\ProgramData\Corel", "Corel VideoStudio Pro X5\绿化\配置一\备份\Corel", 1)
MsgBox(0, "恭喜", "备份已成功")
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
Case $Button4
ShellExecute("C:\Users\Administrator\AppData\Roaming", "", @SW_MAXIMIZE)
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
;打开窗口完成
Case $Button5
DirCopy("proDAD\绿化\proDAD", "C:\Users\Administrator\AppData\Roaming\proDAD", 1)
DirCopy("proDAD\绿化\效果\proDAD", "C:\ProgramData\proDAD", 1)
;Run("proDAD\绿化\adb2.exe", "", @SW_MAXIMIZE)
ShellExecuteWait("Rundll32.eXe","SetupAPI,InstallHinfSection DefaultInstall 132 .\proDAD\安装.inf")
MsgBox(0, "恭喜", "安装已完成")
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
Case $Button6
FileCopy("好莱坞\sys\*.*", "C:\Windows\SysWOW64")
ShellExecuteWait("Rundll32.eXe","SetupAPI,InstallHinfSection DefaultInstall 132 .\好莱坞\安装.inf")
MsgBox(0, "恭喜", "已完成卸载")
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
Case $Button7
MsgBox(0, "恭喜", "已完成卸载")
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
Case $Button8
MsgBox(0, "恭喜", "已完成卸载")
WinActivate('绘声绘影X5') ;激活窗口
Send('!{space}n')
EndSwitch
WEnd
Func about()
MsgBox(262144, "关于：", "绘声绘影绿化程序。" & @CRLF & @CRLF _
& " By Pcbar 2012.09.21" & @CRLF & " Modify By 天诚于峻 2012.09.22")
EndFunc ;==>about
Func _RunPro()
For $i = 1 To $JiaNMC[0][0]
If $RunProAr[$i] = $nMsg Then
ShellExecute($JiaNMC[$i][1])
ExitLoop
EndIf
Next
EndFunc ;==>_RunPro
Func Move()
Dim $PosDiff[2], $MousePos, $WinPos
$MousePos = MouseGetPos()
$WinPos = WinGetPos($AForm1)
$PosDiff[0] = $WinPos[0] - $MousePos[0]
$PosDiff[1] = $WinPos[1] - $MousePos[1]
While _IsPressed("01", DllOpen("user32.dll"))
$MousePos = MouseGetPos()
WinMove($AForm1, "", $MousePos[0] + $PosDiff[0], $MousePos[1] + $PosDiff[1])
Sleep(10)
WEnd
EndFunc ;==>Move
Func _PRIMARYdown()
Move()
$pos = MouseGetPos()
$guiPos = WinGetPos($AForm1, '')
If ($pos[0] >= $guiPos[0] And $pos[0] <= $guiPos[0] + $guiPos[2]) And _
($pos[1] >= $guiPos[1] And $pos[1] <= $guiPos[1] + $guiPos[3]) Then
$n += 1
If $n = 2 And (TimerDiff($start) < $clickspeed) Then
$n = 0
ShowHidemain()
Else
$start = TimerInit()
$n = 1
EndIf
EndIf
EndFunc ;==>_PRIMARYdown
Func ShowHidemain()
If _WinIsVisible($AForm2) Then
If BitAND(WinGetState($title2, ""), 16) Then WinSetState($title2, "", @SW_RESTORE)
WinActivate($AForm2)
Return
Else
GUISetState(@SW_SHOW, $AForm2)
EndIf
EndFunc ;==>ShowHidemain
Func _WinIsVisible($hWnd, $Text = "")
Return BitAND(WinGetState($hWnd, $Text), 2)
EndFunc ;==>_WinIsVisible
/code]
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2012-10-7 22:31:40
.gif)