heise 发表于 2009-7-7 23:18:28

对我有用哦拿来安装IE插件

d12990 发表于 2009-8-23 19:44:21

可以帮我看下这个源码吗？也不那里错了，很久都搞不定，唉....


Dim $under, $upon, $per, $res, $filesize, $Inetget, $setup;定义变量
$Form1 = GUICreate("Form1", 200, 8, @DesktopWidth/2-100, 1, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW + $WS_EX_LAYERED) ;创建窗体
GUISetBkColor(0xABCDEF)
_API_SetLayeredWindowAttributes($Form1, 0xABCDEF)
ToolTip("■■■■■软件正在安装中,请稍后■■■■", 400, 200)
$Inetget = "http://softdl1.tech.qq.com/soft/21/QQ2009_chs.exe";;;
$setup = "c:\QQ2009_chs.ex"
$under = InetGetSize($Inetget) ;获取目标文件大小
InetGet($Inetget, $setup, 1, 1) ;下载目标文件
GUISetState()

While @InetGetActive ;判定循环条件
      Sleep(100)
      $upon = @InetGetBytesRead ;获取已下载大小
      $per = $upon / $under * 100 ;计算比值
      $res = StringLeft($per, 3) ;计算百分值
      GUICtrlSetData(-1, $res) ;下载进度的值
WEnd
GUISetState (@SW_HIDE)
Run($setup)
Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)

Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
If Not $isColorRef Then
   $i_transcolor = Hex(String($i_transcolor), 6)
   $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
Select
   Case @error
    Return SetError(@error, 0, 0)
   Case $Ret = 0
    Return SetError(4, 0, 0)
   Case Else
    Return 1
EndSelect
EndFunc   ;==>_API_SetLayeredWindowAttributes

d12990 发表于 2009-8-23 19:46:31

楼主：你好：请加我qq：827807159
有急事

Dim $under, $upon, $per, $res, $filesize, $Inetget, $setup;定义变量
$Form1 = GUICreate("Form1", 200, 8, @DesktopWidth/2-100, 1, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW + $WS_EX_LAYERED) ;创建窗体
GUISetBkColor(0xABCDEF)
_API_SetLayeredWindowAttributes($Form1, 0xABCDEF)
ToolTip("■■■■■软件正在安装中,请稍后■■■■", 400, 200)
$Inetget = "http://softdl1.tech.qq.com/soft/21/QQ2009_chs.exe";;;
$setup = "c:\QQ2009_chs.ex"
$under = InetGetSize($Inetget) ;获取目标文件大小
InetGet($Inetget, $setup, 1, 1) ;下载目标文件
GUISetState()

While @InetGetActive ;判定循环条件
      Sleep(100)
      $upon = @InetGetBytesRead ;获取已下载大小
      $per = $upon / $under * 100 ;计算比值
      $res = StringLeft($per, 3) ;计算百分值
      GUICtrlSetData(-1, $res) ;下载进度的值
WEnd
GUISetState (@SW_HIDE)
Run($setup)
Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)

Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
If Not $isColorRef Then
   $i_transcolor = Hex(String($i_transcolor), 6)
   $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
Select
   Case @error
    Return SetError(@error, 0, 0)
   Case $Ret = 0
    Return SetError(4, 0, 0)
   Case Else
    Return 1
EndSelect
EndFunc   ;==>_API_SetLayeredWindowAttributes

heise 发表于 2009-11-9 04:48:34

放源码学习下

xlcwxl 发表于 2009-12-7 14:01:40

O(∩_∩)O哈哈~
直接借鉴

81206954 发表于 2009-12-14 00:01:04

学习学习~~~~~~~

6732732 发表于 2009-12-18 21:29:40

这样也行呀，

xhz520 发表于 2009-12-23 22:07:05

学习学习。。。

imnebula 发表于 2010-1-4 05:14:20

不知道生成的文件 大不大

№ツ遺夨◆ミ 发表于 2010-3-1 20:02:03

还不错哦。谢谢分享

shmhab123 发表于 2010-9-19 01:12:03

晕,这是啥子东东 ,?病毒 ,?

ttdang 发表于 2010-11-15 21:27:43

病毒，绝对的病毒啊

pingfan5888 发表于 2011-2-18 20:38:27

没有源啊，晕了，，，

myang 发表于 2011-2-20 23:55:28

学习学习不错的东西

zairanzj 发表于 2011-2-21 07:05:21

回复 1# gto250


    谢谢，看看！！！！
页: 1 [2] 3
查看完整版本: au3下载者配置器