找回密码
 加入
搜索
查看: 2223|回复: 2

[AU3基础] 已解决!怎样让SHE皮肤在关闭窗口时自动删除?

[复制链接]
发表于 2011-9-5 10:42:20 | 显示全部楼层 |阅读模式
本帖最后由 jsgh1983 于 2012-2-13 03:38 编辑

我以前没有任何编程基础,只是爱好想学习AU3,麻烦大家不要讽刺我,我研究好长时间实在搞不定了才求助的,最好回复时能打上标注讲解下,我在这里拜谢了!
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=xx.ico
#AutoIt3Wrapper_outfile=xxx.exe
#AutoIt3Wrapper_Res_LegalCopyright=bbs.sky123.org
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <waterctrl.dll.au3>
#Region ### START Koda GUI section ### Form=
FileInstall("hlong.she",@TempDir & "hlong.she",1) 
FileInstall("Skin.dll",@TempDir & "Skin.dll",1)
FileInstall("logo.bmp", @TempDir & "",1)
$Form = GUICreate("xxxx电脑库存管理", 900, 680, -1, -1)
_WaterCtrl_Startup(@TempDir & "\logo.bmp", $Form, '70,27')
_Autoblob()

$Form=@TempDir&"hlong.she"
$Dll = DllOpen(@TempDir&"Skin.dll") 
DllCall($Dll, "int", "SkinH_AttachEx", "str", $Form, "str", "mhgd") 
DllCall($Dll, "int", "SkinH_SetAero", "int", 1)
DirRemove(@TempDir & "\*.bmp")


$Button = GUICtrlCreateButton("退出软件", 600, 620, 210, 50)
GUICtrlSetFont($Button , 30,400, 1, "微软雅黑")
$Button1 = GUICtrlCreateLabel("软件网盘", 600, 120, 210, 50)
GUICtrlSetFont($Button1 ,15,400, 1, "微软雅黑")

GUISetState(@SW_SHOW)
GUICtrlCreateGroup("", 60, 128, 460, 550)
$run1 = GUICtrlCreateButton("电脑库存与入库", 80, 140, 360, 50)
GUICtrlSetFont($run1 , 30,400, 1, "微软雅黑")
$run2 = GUICtrlCreateButton("配件库存明细", 80, 220, 360, 50)
GUICtrlSetFont($run2 , 30,400, 1, "微软雅黑")
$run3 = GUICtrlCreateButton("配件进货明细", 80, 300, 360, 50)
GUICtrlSetFont($run3 , 30,400, 1, "微软雅黑")
$run4 = GUICtrlCreateButton("入联想商品管理", 80, 380, 360, 50)
GUICtrlSetFont($run4 , 30,400, 1, "微软雅黑")
$run5 = GUICtrlCreateButton("八道沟雷雨账目", 80,460, 360, 50)
GUICtrlSetFont($run5 , 30,400, 1, "微软雅黑")
$run6= GUICtrlCreateButton("戴尔自用明细", 80, 540, 360, 50)
GUICtrlSetFont($run6 , 30,400, 1, "微软雅黑")
$run7= GUICtrlCreateButton("购机合同明细", 80, 620, 360, 50)
GUICtrlSetFont($run7 , 30,400, 1, "微软雅黑")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $Button       
                        Exit
                Case $GUI_EVENT_CLOSE        
                        Exit
                Case $run1
                      run("运行xxxxx.exe")
                Case $run2
                                      run("运行xxxx.exe")
                Case $run3
                          run("运行xxxxx.exe")
                Case $run4
                      run("运行xxxx.exe")   
                                Case $run5
                      run("运行xxxxx.exe")                   
                                Case $run6
                      run("运行xxxxx.exe")
                                Case $run7
                      run("打开xxxxx.exe")
                 Case $Button1
                   ShellExecute("http://dl.dbank.com/c0acn0obgb")
        EndSwitch
        WEnd
发表于 2011-9-5 16:15:57 | 显示全部楼层
1.卸载皮肤(命令自己找,那DLL里有这种命令的)
2.删除文件
3.再Exit
发表于 2011-9-5 16:54:28 | 显示全部楼层
最好定义一个退出函数,删除DLL后EXIT
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-10-1 17:20 , Processed in 0.076926 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表