Au3实现动画鼠标指针的源代码（2015.10.11 fix）

298311657 · 发表于 2010-5-8 00:23:09

本帖最后由 298311657 于 2015-10-11 19:28 编辑

2015.10.11 更新了一下代码，使光标在控件上也不变回系统光标。（附件未更新）

#AutoIt3Wrapper_UseX64=n
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
$GUI = GUICreate("动画鼠标指针展示", 560, 385)
GUICtrlCreateLabel("动画鼠标指针展示", 60, 80, 140, 20)
GUICtrlSetBkColor(-1, 0x9c9c9c)
$button = GUICtrlCreateButton("动画鼠标指针展示", 60, 120, 125, 25)
GUISetState(@SW_SHOW, $GUI)


$mhAniCursor = _WinAPI_LoadCursorFromFile("cursor.ani")
If $mhAniCursor Then GUIRegisterMsg(32, "WM_SETCURSOR")
GUIRegisterMsg($WM_NCHITTEST, 'WM_NCHITTEST')

While 1
        Switch GUIGetMsg()
                Case -3
                        Exit
                Case $button
                        MsgBox(0,"","动画鼠标指针展示",0,$GUI)
        EndSwitch
WEnd

Func _WinAPI_LoadCursorFromFile($sFile)
        Local $Ret = DllCall('user32.dll', 'ptr', 'LoadCursorFromFileW', 'wstr', $sFile)
        If (@error) Or ($Ret[0] = 0) Then
                Return SetError(1, 0, 0)
        EndIf
        Return $Ret[0]
EndFunc   ;==>_WinAPI_LoadCursorFromFile

Func WM_SETCURSOR($HWND, $IMSG, $IWPARAM, $ILPARAM)
        If $HWND Then
                DllCall("user32.dll", "int", "SetCursor", "int", $mhAniCursor)
                Return 1
        EndIf
EndFunc   ;==>WM_SETCURSOR

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
        If _WinAPI_DefWindowProc($hWnd, $iMsg, $iwParam, $ilParam) = $HTCLIENT Then
                Return $HTCAPTION
        EndIf
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NCHITTEST

xiaochuan · 发表于 2010-5-8 12:06:32

很好。搜藏了。。。

lin0308 · 发表于 2010-5-8 12:28:24

看看好不好看

lin0308 · 发表于 2010-5-8 13:48:06

只要鼠标停留在按钮，或者输入框，标签等都变成了系统原来的光标

itljl · 发表于 2010-5-8 14:04:36

回贴是对共享精神的尊重，不是受你威胁的。哈哈

风行者 · 发表于 2010-5-9 20:23:37

看一看

卫和谐 · 发表于 2010-5-10 13:09:42

楼主有没有啊？

WIN7下无效果！

menfan · 发表于 2010-5-10 14:29:59

不错，收藏一下。。

guowenfu · 发表于 2010-5-19 14:08:30

不错，收藏了，O(∩_∩)O~

king8462 · 发表于 2010-5-19 21:07:17

好帖，帮顶一下！

lanfengc · 发表于 2010-5-19 21:55:30

API动画鼠标留脚印专用以备以后查阅

kamo · 发表于 2010-6-17 09:33:31

好东西收藏 PS：LZ太狠了

asionwu · 发表于 2010-6-17 10:06:43

哇好毒的话

zcx880517 · 发表于 2010-7-29 15:38:25

效果挺不错的，支持个

today2004 · 发表于 2010-7-29 22:04:24

好东西留个脚印备用

		自动登录	找回密码
密码			加入

[原创] Au3实现动画鼠标指针的源代码（2015.10.11 fix）

本帖子中包含更多资源

评分