求助AU3 QQ菜单
按钮给图片遮住了 如何可以点动按钮。我附上了图片。源代码。。。
希望高手能帮我解决这个问题。
我是AU3新手，谢谢，谢谢
如果有高手愿意带下我的话，谢谢
QQ 78475440 #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 = $Pic1 Then move()
EndFunc ;==>mouseCHK
Func move()
Local $PosDiff, $MousePos, $WinPos
$MousePos = MouseGetPos()
$WinPos = WinGetPos($Form1, "")
$PosDiff = $WinPos - $MousePos
$PosDiff = $WinPos - $MousePos
While _IsPressed("01", DllOpen("user32.dll"))
$MousePos = MouseGetPos()
WinMove($Form1, "", $MousePos + $PosDiff, $MousePos + $PosDiff)
Sleep(10)
WEnd
EndFunc ;==>move
页:
[1]