[已解决]在线更新自身程序-已解决问题区-AUTOIT CN

jycel 发表于 2009-3-13 18:51:34

[已解决]在线更新自身程序

在论坛上看到有一个COPY程序，于是想运用到程序的在线更新中去，我这是网吧环境，出现这样一个问题，我运行的本程序，在本程序上面执行"在线更新"，按照顾上面的源地址和目标地址来的话，就会出错，因为本身存在，而且在运行，在其它位置运行OK，要表达的也就是怎样在远程更新时，覆盖自身！或其它什么解决方法！在线更新源代码如下:
Global Const $PROGRESS_CONTINUE = 0
Global Const $PROGRESS_CANCEL = 1
Global Const $PROGRESS_STOP = 2
Global Const $PROGRESS_QUIET = 3

_FileCopyEx("\\192.168.0.136\update$\影视程序.exe", "e:\通用工具\影视工具\影视程序.exe")

Func _FileCopyEx($Source, $Dest)
If Not FileExists($Source) Then Return SetError(1, 0, 0);检查文件是否存在

ProgressOn("在线更新程序", "正在更新, 请稍候...") ;开启进度条，此处可以换成其他控件

$pCopyProgressRoutine = DllCallbackRegister("_CopyProgressRoutine", "int", "uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr");注册callback函数

DllCall("kernel32.dll", "int", "CopyFileEx", _
   "str", $Source, _
   "str", $Dest, _
   "ptr", DllCallbackGetPtr($pCopyProgressRoutine), _
   "ptr", 0, _
   "int", 0, _
   "int", 0);调用API,第三个参数是callback函数的指针,文件每复制一段时间就调用这个callback函数

DllCallbackFree($pCopyProgressRoutine);释放

EndFunc

Func _CopyProgressRoutine($TotalFileSize, $TotalBytesTransferred, $StreamSize, $StreamBytesTransferred, $dwStreamNumber, $dwCallbackReason, $hSourceFile, $hDestinationFile, $lpData)

;TotalFileSize:文件大小
;TotalBytesTransferred:已传输文件大小

$Percent = $TotalBytesTransferred / $TotalFileSize * 100

ProgressSet($Percent, "已完成: " & Round($Percent, 1) & "%") ;设置进度

Return $PROGRESS_CONTINUE ;通过返回这个值来告诉系统继续复制,返回返回 PROGRESS_CANCEL终止

EndFunc ;==>_CopyProgressRoutine

影视程序全源码如下：客户机位置在e:\通用工具\影视工具\影视工具.exe
服务器放在共享中，用FTP好像不行样！
#NoTrayIcon
#include <GUIConstants.au3>
#include <process.au3>
#include <ButtonConstants.au3>
#include <GuiStatusBar.au3>
#include <IE.au3>
#Include <Date.au3>
#include <EditConstants.au3>

$g_szVersion = "fxwlc"
If WinExists($g_szVersion) Then
MsgBox(32, "温馨提示", "注意已经运行了",1)
Exit ; 此脚本已经运行了
EndIf
AutoItWinSetTitle($g_szVersion)
Opt("GUIOneventMode",1);应用OnEvent函数于系统托盘图标
Opt("guicloseonesc", 0) ;此处为程序运行时按下ESC不发送消息，否则按下ESC键后，退出程序
Opt("onexitfunc", "quit") ;设置脚本退出时调用的函数
Dim $Button,$lr,$CD,$an,$name,$pwd,$Button1

FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
FileInstall("vista.skf", @TempDir & "\vista.skf", 1)
FileInstall("top.jpg", @TempDir & "\top.jpg ", 1)
$Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll")
;=====================在线更新==========================
Global Const $PROGRESS_CONTINUE = 0
Global Const $PROGRESS_CANCEL = 1
Global Const $PROGRESS_STOP = 2
Global Const $PROGRESS_QUIET = 3
;=====================在线更新==========================

$WinMain= GUICreate("【飛翔網絡】欢迎您！", 440, 280)          ;创建主窗口
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinMain, "int", 500, "long", 0x00040010);explode
_SkinGUI(@TempDir & "\SkinCrafterDll.dll", @TempDir & "\vista.skf", $WinMain)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")          ;注册窗口关闭事件到函数_Exit
;GUICtrlCreateButton ( "文本", 左侧, 上方 [, 宽度 [, 高度 [, 样式 [, 扩展样式]]]] )
;GUISetBkColor(0xf66ccc)
$an= GUICtrlCreateGroup("快速通道",0,5,67,255)
$Button= GUICtrlCreateButton("专线影院", 3, 20, 60, 32);显示子窗口 4 3, 122, 60, 32
$Button= GUICtrlCreateButton("网吧影院", 3, 54, 60, 32);显示子窗口 1 3, 20, 60, 32
$Button= GUICtrlCreateButton("留言中心", 3, 88, 60, 32);显示子窗口 3 3, 88, 60, 32
$Button= GUICtrlCreateButton("下载中心", 3, 122, 60, 32);显示子窗口 2 3, 54, 60, 32
$Button= GUICtrlCreateButton("网络测试", 3, 156, 60, 32);显示子窗口 5
$Button = GUICtrlCreateButton("QQ留言", 3, 190, 60, 32);3, 224, 60, 32
$Button= GUICtrlCreateButton("退出程序", 3, 224, 60, 32);显示子窗口 8
$Button = GUICtrlCreateButton("全部", 83, 50, 45, 20)
$Button = GUICtrlCreateButton("网页", 143, 50, 45, 20)
$Button = GUICtrlCreateButton("影视", 203, 50, 45, 20)
$Button = GUICtrlCreateButton("在线", 263, 50, 45, 20)
$Button = GUICtrlCreateButton("音乐", 323, 50, 45, 20)
$Button = GUICtrlCreateButton("歌词", 383, 50, 45, 20)
$Button = GUICtrlCreateButton("图片", 83, 72, 45, 20)
$Button = GUICtrlCreateButton("书籍", 143, 72, 45, 20)
$Button = GUICtrlCreateButton("软件", 203, 72, 45, 20)
$Button = GUICtrlCreateButton("游戏", 263, 72, 45, 20)
$Button = GUICtrlCreateButton("全集", 323, 72, 45, 20)
$Button = GUICtrlCreateButton("知道", 383, 72, 45, 20)
$Button = GUICtrlCreateButton("新闻", 323, 23, 45, 20)
$Button = GUICtrlCreateButton("贴吧", 383, 23, 45, 20)
;===============================电视直播=======================================
$Button = GUICtrlCreateButton("BTV北京 ", 73, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV1套", 125, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV3套", 177, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV5套", 229, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV6套", 281, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV10套", 333, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV12套", 385, 115, 50, 25)
$Button = GUICtrlCreateButton("成都1套", 73, 143, 50, 25)
$Button = GUICtrlCreateButton("成都3套", 125, 143, 50, 25)
$Button = GUICtrlCreateButton("成都4套", 177, 143, 50, 25)
$Button = GUICtrlCreateButton("四川3套", 229, 143, 50, 25)
$Button = GUICtrlCreateButton("四川4套", 281, 143, 50, 25)
$Button = GUICtrlCreateButton("四川5套", 333, 143, 50, 25)
$Button = GUICtrlCreateButton("四川6套", 385, 143, 50, 25)
$Button = GUICtrlCreateButton("科教频道", 73,171, 50, 25)
$Button = GUICtrlCreateButton("重庆卫视", 125, 171, 50, 25)
$Button = GUICtrlCreateButton("陕西卫视", 177, 171, 50, 25)
$Button = GUICtrlCreateButton("峨嵋电影", 229, 171, 50, 25)
$Button = GUICtrlCreateButton("湖南卫视", 281, 171, 50, 25)
$Button = GUICtrlCreateButton("中国教育", 333, 171, 50, 25)
$Button = GUICtrlCreateButton("上海卫视", 385, 171, 50, 25)
$Button = GUICtrlCreateButton("江西电视", 73, 199, 50, 25)
$Button = GUICtrlCreateButton("江苏卫视", 125, 199, 50, 25)
$Button = GUICtrlCreateButton("深圳电视", 177, 199, 50, 25)
$Button = GUICtrlCreateButton("浙江电视 ", 229, 199, 50, 25)
$Button = GUICtrlCreateButton("山东卫视", 281, 199, 50, 25)
$Button = GUICtrlCreateButton("安徽电视", 333, 199, 50, 25)
$Button = GUICtrlCreateButton("广东卫视", 385, 199, 50, 25)
$Button1 = GUICtrlCreateButton ("在线更新",385, 235, 50, 25)
;GuiCtrlCreatePic("\\192.168.0.136\update$\au3\logo.jpg",68,100, 370,153)
$an= GUICtrlCreateGroup("搜索工具",70,5,370,95)
$an= GUICtrlCreateInput("在此输入查找内容……", 80, 20, 230, 25)
$an = GUICtrlCreateGroup("在线电视", 68,100, 370,133)

;=================添加时间=============================
GuiCtrlCreateDate("", 113, 238, 110, 20)
$Label1= GUICtrlCreateLabel("Label1", 68, 242, 45, 18)
$Label2= GUICtrlCreateLabel("Label2", 225, 242, 105, 20)
$Button1 = GUICtrlCreateButton("关于", 333, 235, 50, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($WinMain)
Dim $StatusBar1_PartsWidth =
Dim $S0 = " 欢迎光临 ", $S1 = "飛翔網絡 By Jycel", $S2=" QQ:472891322 E-mail:jycel@qq.com"
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, $S2, 2)
_GUICtrlStatusBar_SetText($StatusBar1, $S1, 1)
_GUICtrlStatusBar_SetText($StatusBar1, $S0, 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 15)

;===========================创建子窗口=============================
$WinSub1= GUICreate("在线影院", 220, 60)             ;创建子窗口1
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")       ;注册窗口关闭事件到函数GUICtrlMsg
$Button1 = GUICtrlCreateButton("电信专线影院", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1 = GUICtrlCreateButton("电信专线主页", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二

$WinSub2= GUICreate("下载中心", 220, 60)             ;创建子窗口2
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")       ;注册窗口关闭事件到函数GUICtrlMsg
$Button1= GUICtrlCreateButton("FTP地址1", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1= GUICtrlCreateButton("FTP地址2", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二

$WinSub3= GUICreate("网络测试", 220, 60)             ;创建子窗口2
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")       ;注册窗口关闭事件到函数GUICtrlMsg
$Button1 = GUICtrlCreateButton("内网测试", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1 = GUICtrlCreateButton("外网测试", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二

$WinSub4= GUICreate("关于程序", 220, 200)
$Button1=GUICtrlCreateLabel("          程序说明"&@crlf&@crlf&" 本程序包含在线电影、电视直播、网络检测、狗狗搜索等!"&@crlf&@crlf&" 如果你对本程序有任何见意请点击程序上面的QQ留言!"&@crlf&@crlf&"程序作者:飞翔浪子"&@crlf&@crlf&"联系QQ:472891322"&@crlf&@crlf&"E-mail:jycel@qq.com", 0, 0, 220, 180);
$Button1 = GUICtrlCreateButton("返回", 70, 175, 65, 25);创建子窗口中按钮二

$WinSub5= GUICreate("网吧影院", 220, 60)             ;创建子窗口1
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")       ;注册窗口关闭事件到函数GUICtrlMsg
$Button1 = GUICtrlCreateButton("网吧影院[绵阳]", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1= GUICtrlCreateButton("网吧影院[本地]", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
For $I = 65 to 0 Step -1
   GUICtrlSetOnEvent($Button[$I],"GUICtrlMsg") ;注册总共的六个按钮点击事件到函数 GUICtrlMsg
                                                ;请区分 GUISetOnEvent 和 GUICtrlSetOnEvent的区别
Next

For $j = 12 to 0 Step -1
   GUICtrlSetOnEvent($Button1[$j],"GUICtrlMsg") ;注册总共的六个按钮点击事件到函数 GUICtrlMsg
                                                ;请区分 GUISetOnEvent 和 GUICtrlSetOnEvent的区别
Next

GUISwitch($WinMain)                         ;切换当前窗口到主窗口
GUISetState(@SW_SHOW)                      ;显示当前窗口

While 1
GUICtrlSetData($Label1,"今天是:")
GUICtrlSetData($Label2,"当前时间:"&@HOUR&':'&@MIN&':'&@SEC)
Sleep(1000)

WEnd

Func GUICtrlMsg()

         Switch @GUI_CtrlId;选择事件 ID 或控件 ID
            Case $GUI_EVENT_CLOSE;如果点下的是$GUI_EVENT_CLOSE(关闭)
                     GUISetState(@SW_HIDE,@GUI_WinHandle);隐藏产生事件的窗口
Case $Button
                  GUISetState(@SW_SHOW,$WinSub1);隐藏子窗口 1
Case $Button
GUISetState(@SW_SHOW,$WinSub5);隐藏子窗口 1

;=========================留言中心=====================
            Case $Button

Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://192.168.0.136/ly/")
;=========================专网电影=====================
            Case $Button
   GUISetState(@SW_SHOW,$WinSub2);隐藏子窗口 1
Case $Button
                  GUISetState(@SW_SHOW,$WinSub3);隐藏子窗口 1
;=================QQ留言==============================
Case $Button

               Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe tencent://Message/?Uin=472891322")
;=========================退出程序=====================
Case $Button
                     _Exit()
;=========================在线影院=====================
            Case $Button1

   Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://20.20.2.102/webmedia/html/index.shtml")
   GUISetState(@SW_HIDE,$WinSub1);隐藏子窗口 1
Case $Button1

               Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.fxwlc2624067.51hdwm.com")
GUISetState(@SW_HIDE,$WinSub1);隐藏子窗口 1
;=========================网络检测=====================
            Case $Button1
                  Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe ftp://192.168.0.136")

GUISetState(@SW_HIDE,$WinSub2);隐藏子窗口 2
Case $Button1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe ftp://192.168.0.254")

                     GUISetState(@SW_HIDE,$WinSub2);隐藏子窗口 2
;=========================网络检测=====================
            Case $Button1
MsgBox(0,"网络测试","             请注意"&@CRLF&@CRLF&"如果一直出现说明网络未连接"&@CRLF&"确定开始测试"&@CRLF&@CRLF&"请不要动鼠标，等待程序自动退出")
_Rundos("start cmd")
Sleep(100)
                     send("ping 192.168.0.1 -t -n 5")
   sleep(200)
send("{ENTER}")
Sleep(5300)
Send("exit")
Sleep(100)
send("{ENTER}")
GUISetState(@SW_HIDE,$WinSub3);隐藏子窗口 2
Case $Button1
MsgBox(0,"网络测试","             请注意"&@CRLF&@CRLF&"如果一直出现说明网络未连接"&@CRLF&"确定开始测试"&@CRLF&@CRLF&"请不要动鼠标，等待程序自动退出")
_Rundos("start cmd")
Sleep(100)
                     send("ping 202.98.96.68 -t -n 5")
   sleep(200)
send("{ENTER}")
Sleep(5300)
Send("exit")
Sleep(100)
send("{ENTER}")
                     GUISetState(@SW_HIDE,$WinSub3);隐藏子窗口 2
Case $Button1
                  GUISetState(@SW_SHOW,$WinSub4);隐藏子窗口 1
Case $Button1
GUISetState(@SW_HIDE,$WinSub4);隐藏子窗口 2
Case $Button1
               Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://hack793.host.vhost100.cn")
GUISetState(@SW_HIDE,$WinSub5);隐藏子窗口 2
Case $Button1
               Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://192.168.0.136")
GUISetState(@SW_HIDE,$WinSub5);隐藏子窗口 2
case $Button1
                     MsgBox(0,"更新提示","程序更新完毕后会自动退出"&@CRLF&"请重新启动程序")
         _FileCopyEx("\\192.168.0.136\update$\Download\影视工具.exe", "e:\通用工具\影视工具\影视工具.exe")

            ;========================================gougou===================================
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.gougou.com/search?search=" & $CD)

Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://web.gougou.com/search?search=" & $CD)
;ShellExecute("http://web.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://movie.gougou.com/search?search=" & $CD)
                  ;ShellExecute("http://movie.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://video.gougou.com/search?s=" & $CD)
;ShellExecute("http://video.gougou.com/search?s=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://mp3.gougou.com/search?search=" & $CD)
                     ;ShellExecute("http://mp3.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://mp3.gougou.com/lrc?search=" & $CD)
;ShellExecute("http://mp3.gougou.com/lrc?search=" & $CD, "", "", "", 1)

Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://pic.gougou.com/search?search=" & $CD)
;ShellExecute("http://pic.gougou.com/search?search=" & $CD, "", "", "", 1)

Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://book.gougou.com/search?search=" & $CD)
;ShellExecute("http://book.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://soft.gougou.com/search?search=" & $CD)
                     ;ShellExecute("http://soft.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://game.gougou.com/search?search=" & $CD)
;ShellExecute("http://game.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://blog.gougou.com/search?search=" & $CD)
;ShellExecute("http://blog.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://zhidao.baidu.com/?t=50&q=" & $CD)
;ShellExecute("http://zhidao.baidu.com/?t=50&q=" & $CD, "", "", "", 1)
Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://news.baidu.com/ns?word=" & $CD)
         ;ShellExecute("http://news.baidu.com/ns?word=" & $CD, "", "", "", 1)
            Case $Button
$CD= GUICtrlRead($an)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://tieba.baidu.com/f?kw="& $CD)
;ShellExecute("http://tieba.baidu.com/f?kw=" & $CD, "", "", "", 1)
;==========================电视直播==================================
            Case $Button
ShellExecute("mms://20.20.2.100/111", "", "", "", 1)
;_Rundos("start mms://20.20.2.100/111")
Case $Button
_Rundos("start mms://20.20.2.100/114")
Case $Button
_Rundos("start mms://20.20.2.100/105")
Case $Button
_Rundos("start mms://20.20.2.100/125")
Case $Button
_Rundos("start mms://20.20.2.100/108")
Case $Button
_Rundos("start mms://20.20.2.100/123")
Case $Button
_Rundos("start mms://20.20.2.100/110")
Case $Button
_Rundos("start mms://20.20.2.100/103")
            Case $Button
_Rundos("start mms://20.20.2.100/131")
Case $Button
_Rundos("start mms://20.20.2.100/115")
Case $Button
_Rundos("start mms://20.20.2.100/106")
Case $Button
_Rundos("start mms://20.20.2.100/109")
Case $Button
_Rundos("start mms://20.20.2.100/107")
Case $Button
_Rundos("start mms://20.20.2.100/102")
Case $Button
_Rundos("start mms://20.20.2.100/122")
Case $Button
   _Rundos("start mms://20.20.2.100/121")
Case $Button
_Rundos("start mms://20.20.2.100/101")
Case $Button
_Rundos("start mms://20.20.2.100/124")
Case $Button
_Rundos("start mms://20.20.2.100/128")
Case $Button
_Rundos("start mms://20.20.2.100/104")
Case $Button
_Rundos("start mms://20.20.2.100/113")
Case $Button
_Rundos("start mms://20.20.2.100/117")
Case $Button
_Rundos("start mms://20.20.2.100/118")
Case $Button
_Rundos("start mms://20.20.2.100/119")
            Case $Button
_Rundos("start mms://20.20.2.100/112")
Case $Button
_Rundos("start mms://20.20.2.100/126")
Case $Button
_Rundos("start mms://20.20.2.100/116")
Case $Button
_Rundos("start mms://20.20.2.100/120")
   EndSwitch
EndFunc
;添加浏览安装目录
;Func open()
; AdlibDisable()
; $InstallPath = FileSelectFolder("选择安装目录", "") ;显示一个文件夹选择对话框
; If Not @error Then
; If StringRight($InstallPath, 1) = "\" Then ;StringRight为返回字符串中从右开始指定数量的字符
; GUICtrlSetData($input1, $InstallPath & "") ;GUICtrlSetData为修改指定控件的相关数据
; Else
GUICtrlSetData($input1, $InstallPath & "\")
; EndIf
; MsgBox(4096, "测试", $InstallPath)
; EndIf
;EndFunc ;==>open

;定义皮肤函数
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
$Dll = DllOpen($SkincrafterDll)
DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc ;==>_SkinGUI

Func Quit()
GUISetState(@SW_HIDE)
DllCall($Dll, "int:cdecl", "DeInitDecoration")
DllCall($Dll, "int:cdecl", "RemoveSkin")
DllClose($Dll)
FileDelete(@TempDir & "\SkinCrafterDll.dll")
FileDelete(@TempDir & "\vista.skf")
FileDelete(@TempDir & "\top.jpg")
Exit
EndFunc ;==>Quit

Func _FileCopyEx($Source, $Dest)
If Not FileExists($Source) Then Return SetError(1, 0, 0);检查文件是否存在

ProgressOn("在线更新程序", "正在更新, 请稍候...") ;开启进度条，此处可以换成其他控件

$pCopyProgressRoutine = DllCallbackRegister("_CopyProgressRoutine", "int", "uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr");注册callback函数

DllCall("kernel32.dll", "int", "CopyFileEx", _
   "str", $Source, _
   "str", $Dest, _
   "ptr", DllCallbackGetPtr($pCopyProgressRoutine), _
   "ptr", 0, _
   "int", 0, _
   "int", 0);调用API,第三个参数是callback函数的指针,文件每复制一段时间就调用这个callback函数

DllCallbackFree($pCopyProgressRoutine);释放
_Exit()
EndFunc

Func _CopyProgressRoutine($TotalFileSize, $TotalBytesTransferred, $StreamSize, $StreamBytesTransferred, $dwStreamNumber, $dwCallbackReason, $hSourceFile, $hDestinationFile, $lpData)

;TotalFileSize:文件大小
;TotalBytesTransferred:已传输文件大小

$Percent = $TotalBytesTransferred / $TotalFileSize * 100

ProgressSet($Percent, "已完成: " & Round($Percent, 1) & "%") ;设置进度

Return $PROGRESS_CONTINUE ;通过返回这个值来告诉系统继续复制,返回返回 PROGRESS_CANCEL终止

EndFunc ;==>_CopyProgressRoutine

Func _Exit()

dllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinMain, "int", 1000, "long", 0x00050010);向中间隐小

Exit

EndFunc

[ 本帖最后由 jycel 于 2009-3-18 15:50 编辑 ]

jycel 发表于 2009-3-13 20:04:28

高手些给点指示

ceoguang 发表于 2009-3-13 20:23:14

1. 将在线更新写成一个单独的程序.
2. 将文件下载到临时目录,下载完退出并调用CMD来执行文件操作.

jycel 发表于 2009-3-13 20:40:26

那就只有把更新程序写到另一个程序中！在启动前自动关闭当前程序！以便覆盖！

adasir 发表于 2010-5-9 04:03:27

学习了。。。

menfan 发表于 2010-5-10 15:31:41

呵呵，学习一下。。

35598253 发表于 2010-12-8 13:36:16

回复 3# ceoguang

能不能考虑直接调用覆盖？？CMD太笨了吧~~~

872777825 发表于 2011-2-7 23:28:50

不错不过不是我想要的效果

supermyth 发表于 2012-4-27 14:14:44

不错，支持下

页: [1]

AUTOIT CN's Archiver

[已解决]在线更新自身程序