#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