找回密码
 加入
搜索
查看: 1296|回复: 1

求助AU3 QQ菜单

[复制链接]
发表于 2009-4-26 03:00:28 | 显示全部楼层 |阅读模式
按钮给图片遮住了 如何可以点动按钮。

我附上了图片。源代码。。。
希望高手能帮我解决这个问题。
我是AU3新手,谢谢,谢谢

如果有高手愿意带下我的话,谢谢

QQ 78475440

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2009-4-26 08:15:43 | 显示全部楼层
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <ButtonConstants.au3>

Global $wmp = ObjCreate("WMPlayer.OCX")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 417, 600, 193, 115, $WS_POPUP, $WS_EX_LAYERED)  ;$WS_EX_LAYERED界面背景透明效果
$bt1 = GUICtrlCreateButton ("忧伤情歌",85,65,100,30)
$bt2 = GUICtrlCreateButton ("DJ130",85,115,100,30)
$bt3 = GUICtrlCreateButton ("悲伤情歌",85,165,100,30)
$bt4 = GUICtrlCreateButton ("低音质",85,215,100,30)
$bt5 = GUICtrlCreateButton ("DJ王国",85,265,100,30)
$Button1 = GUICtrlCreateButton ("退出",85,315,100,30)
$Pic1 = GUICtrlCreatePic("4.bmp", 0, 0, 417, 600, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

 While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
Case $GUI_EVENT_CLOSE,$Button1
        Exit
Case $bt1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe -new " & "http://www.sx.5212.cn" )
exit
Case $bt2
 Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe -new " & "http://www.dj130.com/" )
exit
Case $bt3
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe -new " & "http://www.yy521.com" )
exit
Case $bt4
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe -new " & "http://www.ssjj.com/" )
exit
Case $bt5
 Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe -new " & "http://www.djkk.com/" )
exit
Case $GUI_EVENT_PRIMARYDOWN
            mouseCHK()
EndSwitch
WEnd

Func mouseCHK()
    $MS = GUIGetCursorInfo($Form1)
    If $MS[4] = $Pic1 Then move()
EndFunc   ;==>mouseCHK

Func move()
    Local $PosDiff[2], $MousePos, $WinPos
    $MousePos = MouseGetPos()
    $WinPos = WinGetPos($Form1, "")
    $PosDiff[0] = $WinPos[0] - $MousePos[0]
    $PosDiff[1] = $WinPos[1] - $MousePos[1]
    While _IsPressed("01", DllOpen("user32.dll"))
        $MousePos = MouseGetPos()
        WinMove($Form1, "", $MousePos[0] + $PosDiff[0], $MousePos[1] + $PosDiff[1])
        Sleep(10)
    WEnd
EndFunc   ;==>move
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 04:00 , Processed in 0.090585 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表