feicuiboy 发表于 2011-4-17 22:43:12

API的运行出错（已解决）

本帖最后由 feicuiboy 于 2011-4-17 23:44 编辑

如下，出现
_API_SetLayeredWindowAttributes出错

这个API函数在有的电脑上可运行，有的不行，我的AU3版本是AUTOIT_3.3.6.1-2#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
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)
GUICtrlCreateProgress(0, 0, 200, 8, $PBS_SMOOTH) ;创建下载进度条

$Inetget = "http://dl_dir.qq.com/qqfile/qq/QQ2010/QQ2010.exe";;;
$setup = "QQ2010.exe"
$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,$Form1)
发现了，需
#Include <WinAPI.au3>

之前是_API_SetLayeredWindowAttributes
现在新的是_winAPI_SetLayeredWindowAttributes
谢谢

xzxnovice 发表于 2011-4-17 22:46:58

这个吧？_WinAPI_SetLayeredWindowAttributes

feicuiboy 发表于 2011-4-17 23:37:53

本帖最后由 feicuiboy 于 2011-4-17 23:44 编辑

回复 2# xzxnovice

发现了，需
#Include <WinAPI.au3>

之前是_API_SetLayeredWindowAttributes
现在新的是_winAPI_SetLayeredWindowAttributes
谢谢
页: [1]
查看完整版本: API的运行出错（已解决）