AU3自动下载并自动安装的代码

风一样的男孩

1. t#include <ButtonConstants.au3>
2. #include <EditConstants.au3>
3. #include <GUIConstantsEx.au3>
4. #include <WindowsConstants.au3>
5. #include <GUIConstantsEx.au3>
6. #include <ProgressConstants.au3>
7. #include <WindowsConstants.au3>
8. Dim $under, $upon, $per, $res, $filesize, $Inetget, $setup;定义变量
9. $Form1 = GUICreate("Form1", 200, 8, @DesktopWidth/2-100, 1, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW + $WS_EX_LAYERED) ;创建窗体
10. GUISetBkColor(0xABCDEF)
11. _API_SetLayeredWindowAttributes($Form1, 0xABCDEF)
12. ToolTip("■■■■■软件正在安装中,请稍后■■■■", 400, 200)
13. $Inetget = "http://192.168.0.244/download/speak/yy.exe";;;
14. $setup = "d:\yy.exe"
15. $under = InetGetSize($Inetget) ;获取目标文件大小
16. InetGet($Inetget, $setup, 1, 1) ;下载目标文件
17. GUISetState()
19. While @InetGetActive ;判定循环条件
20.         Sleep(100)
21.         $upon = @InetGetBytesRead ;获取已下载大小
22.         $per = $upon / $under * 100 ;计算比值
23.         $res = StringLeft($per, 3) ;计算百分值
24.         GUICtrlSetData(-1, $res) ;下载进度的值
25. WEnd
26. GUISetState (@SW_HIDE,$Form1)
27. Run($setup)
28. Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
30. Local Const $AC_SRC_ALPHA = 1
31. Local Const $ULW_ALPHA = 2
32. Local Const $LWA_ALPHA = 0x2
33. Local Const $LWA_COLORKEY = 0x1
34. If Not $isColorRef Then
35.    $i_transcolor = Hex(String($i_transcolor), 6)
36.    $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
37. EndIf
38. Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
39. Select
40.    Case @error
41.     Return SetError(@error, 0, 0)
42.    Case $Ret[0] = 0
43.     Return SetError(4, 0, 0)
44.    Case Else
45.     Return 1
46. EndSelect
47. EndFunc   ;==>_API_SetLayeredWindowAttributes

复制代码

feitian

自动下载什么东西呢？

z1363499

这是什么 ？？？？

killzhaojun

下什么？

时代电脑

很想学编情，但资质有限

a55901

这是什么 ？？？？