图片进度条+鼠标键盘事件【已解决】

cxm23

http://www.autoitx.com/forum.php ... =%BD%F8%B6%C8%CC%F5
我修改了afan的图片进度条程序，想实现当鼠标移动或按任意键时进度条就消失的效果，自己写了下，效果不理想，其中鼠标要在窗口上移动才产生事件，键盘则全无反应，不知问题出在哪？请各位帮忙看下
还有一个问题，就是要使一开始鼠标就在GUI窗口里，就算没移动，也产生了事件？

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Dim $s = 5
$Form1 = GUICreate("Form1", 472,289,0,0)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\背景.jpg", 1, 279, 470, 10)
$Picjd0 = GUICtrlCreatePic(@ScriptDir & "\进度0.jpg", 5, 280, 4, 6)
$Picjd1 = GUICtrlCreatePic(@ScriptDir & "\进度1.jpg", 2 + 4, 280, 1, 6)
$Picjd2 = GUICtrlCreatePic(@ScriptDir & "\进度2.jpg", 2 + 3, 280, 4, 6)
GUISetState(@SW_SHOW)

;~ Sleep(500)
AdlibRegister("myadlib", 20)

GUIRegisterMsg ($WM_KEYDOWN, "WM_KEYDOWN" )
GUIRegisterMsg ($WM_MOUSEMOVE, "WM_MOUSEMOVE" ) 

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
        EndSwitch
WEnd

 Func myadlib()
        ControlMove("", "", $Picjd1, Default, Default, 1 + $s, 6)
        ControlMove("", "", $Picjd2, 2 + 3 + $s, 280)
        $s += 1
        If $s >= 458 Then
                AdlibUnRegister()
                GUICtrlDelete($Pic1)
                GUICtrlDelete($Picjd0)
                GUICtrlDelete($Picjd1)
                GUICtrlDelete($Picjd2)
        EndIf
EndFunc   ;==>myadlib

Func WM_MOUSEMOVE()
;~         MsgBox(1,"dd","dd")
        AdlibUnRegister()
                GUICtrlDelete($Pic1)
                GUICtrlDelete($Picjd0)
                GUICtrlDelete($Picjd1)
                GUICtrlDelete($Picjd2)
EndFunc
        
Func WM_KEYDOWN()
        AdlibUnRegister()
                GUICtrlDelete($Pic1)
                GUICtrlDelete($Picjd0)
                GUICtrlDelete($Picjd1)
                GUICtrlDelete($Picjd2)
EndFunc

cxm23

问题还是没解决，打包后的程序：

cxm23

解决了，原来pcbar前辈早有例子，没用对搜索关键词，结果没找到
http://www.autoitx.com/forum.php?mod=viewthread&tid=1826&highlight=%B5%B9%BC%C6%CA%B1%B4%B0%BF%DA

三个附件是一样的，不知怎么传了3个

liu_611611

学习中。。。。

ppp092

这个做的还可以~

lomo1316

看完午休了

m765555

不错，学习到一点东西了呵呵，顺便回复一下得点积分。