想请大师们帮忙加个皮肤代码感激不尽！！！[已解决]-已解决问题区-AUTOIT CN

pyj521 发表于 2012-10-7 22:31:40

想请大师们帮忙加个皮肤代码感激不尽！！！[已解决]

本帖最后由 pyj521 于 2012-10-8 16:39 编辑

我已经搞了一天了，刚学的菜菜菜鸟，依瓢画葫芦一族的！
想请大师们帮忙加个皮肤代码感激不尽！！！
谢谢各位大师们拜托了！
[#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 + 1]
For $i = 1 To $JiaNMC
$RunProAr[$i] = GUICtrlCreateMenuItem($JiaNMC[$i], $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 To $RunProAr[$JiaNMC]
_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
If $RunProAr[$i] = $nMsg Then
ShellExecute($JiaNMC[$i])
ExitLoop
EndIf
Next
EndFunc ;==>_RunPro

Func Move()
Dim $PosDiff, $MousePos, $WinPos
$MousePos = MouseGetPos()
$WinPos = WinGetPos($AForm1)
$PosDiff = $WinPos - $MousePos
$PosDiff = $WinPos - $MousePos
While _IsPressed("01", DllOpen("user32.dll"))
$MousePos = MouseGetPos()
WinMove($AForm1, "", $MousePos + $PosDiff, $MousePos + $PosDiff)
Sleep(10)
WEnd
EndFunc ;==>Move
Func _PRIMARYdown()
Move()
$pos = MouseGetPos()
$guiPos = WinGetPos($AForm1, '')
If ($pos >= $guiPos And $pos <= $guiPos + $guiPos) And _
($pos >= $guiPos And $pos <= $guiPos + $guiPos) 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]

Terence 发表于 2012-10-8 08:13:21

Azura.cn>> AuToIt>> AU3皮肤

里面有例子和皮肤所需的文件

pyj521 发表于 2012-10-8 08:52:23

皮肤我下了好几百个，就是插入代码时老是报错，不知错在哪里的，恳求朋友们帮我把随便一个皮肤的代码插入到上面的程序中就可以了，谢谢朋友们了！拜托了谢谢！

pyj521 发表于 2012-10-8 14:03:52

我是一只小小鸟想要飞却怎么也飞不高朋友们啊难道真的就没有一个大佬肯花点时间帮帮我吗！难道我真的只能恳求苍天了啊{:face (47):}

pyj521 发表于 2012-10-8 16:37:57

RE: 想请大师们帮忙加个皮肤代码感激不尽！！！[已解决]

求了半天的人。。。。。。。还不如自己多琢磨一会啊！o(︶︿︶)o 唉搞定了！

zc333 发表于 2012-10-8 22:22:35

好好学习。。。。。。。求人还不如求己

pyj521 发表于 2012-10-9 09:37:04

现在看来，确实如此啊...........人情冷暖世态炎凉哟...........

asdmie01 发表于 2012-10-9 15:06:34

软件好用就行，其实要不要皮肤都可以，又不是想把软件当做商品

ycy 发表于 2012-10-10 13:34:21

估计高手对简单问题不感冒..

jingygr 发表于 2012-10-14 09:46:59

我也正需要中，哈哈。

jingygr 发表于 2012-10-14 09:47:25

享楼主的福了

jingygr 发表于 2012-10-14 09:47:32

享楼主的福了

页: [1]

AUTOIT CN's Archiver

想请大师们帮忙加个皮肤代码 感激不尽！！！[已解决]

RE: 想请大师们帮忙加个皮肤代码 感激不尽！！！[已解决]

想请大师们帮忙加个皮肤代码感激不尽！！！[已解决]

RE: 想请大师们帮忙加个皮肤代码感激不尽！！！[已解决]