PHP Code:
;===========================================================================================
;
;
;
;
; >>Macrobot<<
;
;
;
;==========================================#include Start===================================
#include <files\APIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <files\wmp.au3>
#include <guiavi.au3>
#NoTrayIcon
#AutoIt3Wrapper_UseX64 = n
;==========================================Hotkeyset========================================
Hotkeyset("{F3}","_Hide")
Hotkeyset("{F4}","_Show")
;==========================================GUI==============================================
TraySetState(2)
$hWnd = GUICreate("League of Legends - Macrobot", 474, 386, 285, 176,$WS_DLGFRAME)
GUISetBkColor(0x000000)
$oWMP = ObjCreate("WMPlayer.OCX")
$hEmbedd = GUICtrlCreateObj($oWMP, 0, 0, 640, 360)
$oWMP.URL = (".\Files\Movie.mp4")
$Start = GUICtrlCreateButton("Start ", 112, 296, 129, 33)
GUICtrlSetFont(-1, 11, 800, 2, "Arial Black")
$About = GUICtrlCreateButton("About", 24, 296, 73, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Calibri")
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox", 24, 328, 17, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Exit = GUICtrlCreateButton("Exit", 112, 328, 65, 25)
GUICtrlSetFont(-1, 8, 800, 2, "Arial Black")
$Stop = GUICtrlCreateButton("Stop", 176, 328, 65, 25)
GUICtrlSetFont(-1, 8, 800, 2, "Arial Black")
$Sound = GUICtrlCreateLabel(" Sound muted", 40, 328, 68, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Calibri")
GUICtrlSetColor(-1, 0xFFFFFF)
$Hotkeys = GUICtrlCreateLabel("Hotkeys F3 / F4 (Hide / Show)", 248, 304, 161, 19)
GUICtrlSetFont(-1, 10, 400, 2, "Calibri")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("© by Stoani [2011]", 372, 279, 90, 17)
GUICtrlSetFont(-1, 8, 400, 2, "Calibri")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState()
;==========================================Avi-Settings=====================================
With $oWMP
.settings.autostart = True
.settings.volume = 50
.stretchToFit = True
.fullscreen = True
.uiMode = 'none'
.controls.play()
EndWith
;==========================================Code=============================================
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start
if ProcessExists("Ss.exe") not Then
run(".\Files\Ss.exe")
run(".\Files\Re.exe")
EndIf
Case $About
MsgBox(0,"Macrobot","The Macrobot was coded and designed by Stoani. It is made to make your laneing more safe.This Version is ONLY working with a five-button (or more) mouse!")
Case $Stop
ProcessClose("Ss.exe")
ProcessClose("Re.exe")
Case $Exit
ProcessClose("Ss.exe")
ProcessClose("Re.exe")
Exit
Case $Checkbox1
$Check1 = GUICtrlRead($Checkbox1)
If $Check1 = $GUI_CHECKED Then Aus()
If $Check1 = $GUI_UNCHECKED Then Ein()
EndSwitch
WEnd
;==============================Functions==============================================
Func Ein()
With $oWMP
.settings.volume = 100
EndWith
EndFunc
Func Aus()
With $oWMP
.settings.volume = 0
EndWith
EndFunc
Func _Hide()
GUISetState (@SW_HIDE)
EndFunc
Func _Show()
GUISetState (@SW_SHOW)
EndFunc
;======================================Coded by Stoani===============================================