Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$MainGUI = GUICreate("Skinner Tool ", 500, 603, -1, -1)
$Tools = GUICtrlCreateButton("Tools", 430, 30, 60, 30, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -166, 0)
GUISetState()
;Gui Tools
$ToolsGUI = GUICreate("", 82, 102, 410, 60,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_CLIPSIBLINGS),bitor($WS_EX_MDICHILD,$WS_EX_CLIENTEDGE),$MainGUI)
$Calc = GUICtrlCreateButton("Calc", 2, 1, 80, 25, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & '\calc.exe', 1, 0)
$CharMap = GUICtrlCreateButton("KeyMap", 2, 25, 80, 25, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & '\charmap.exe', 1, 0)
$MouseXY = GUICtrlCreateButton("Mouse XY", 2, 49, 80, 25, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & '\setupapi.dll', 2, 0)
$Paint = GUICtrlCreateButton("Paint", 2, 73, 80, 25, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & '\mspaint.exe', 1, 0)
GUISetState(@SW_HIDE,$ToolsGUI)
$ToolsGUIStatus = False
;Gui MousePos
$MousePosGUI = GUICreate("",100,70,505,-25,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_CLIPSIBLINGS,$WS_MINIMIZEBOX),bitor($WS_EX_MDICHILD,$WS_EX_CLIENTEDGE),$MainGUI)
$Xpos = GUICtrlCreateLabel("Xpos :",5,5,100,30)
$Ypos = GUICtrlCreateLabel("Ypos :",5,25,100,30)
GUISetState(@SW_HIDE,$MousePosGUI )
$MousePosGUIStatus = False
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Tools
GUISwitch($ToolsGUI)
if $ToolsGUIStatus = true Then
GUISetState(@SW_HIDE,$ToolsGUI)
$ToolsGUIStatus = False
Else
GUISetState(@SW_SHOW,$ToolsGUI)
$ToolsGUIStatus = True
EndIf
[color=#FF0000] Case $Calc
Run("calc.exe ")
WinMove("[CLASS:SciCalc]","",500,500)
Case $CharMap
Run("charmap.exe")
WinMove("[CLASS:MyDlgClass]","",500,500)[/color]
Case $MouseXY
GUISwitch($MousePosGUI)
if $MousePosGUIStatus = true Then
GUISetState(@SW_HIDE,$MousePosGUI)
$MousePosGUIStatus = False
Else
GUISetState(@SW_SHOW,$MousePosGUI)
[color=#0000FF] $pos = MouseGetPos()
GuiCtrlSetData($Xpos , "Xpos : "&$pos[0])
GuiCtrlSetData($Ypos , "Ypos : "&$pos[1])
sleep(100)[/color]
$MousePosGUIStatus = True
EndIf
Case $Paint
Run("mspaint.exe")
EndSwitch
Wend
)
