Code: Select all
SysGet, Mon2, Monitor, 2
file := "Nebula.mp4"
Gui, 1:New, +HWNDHwnd
DllCall("User32.dll\SetParent", "Ptr", Hwnd, "Ptr", WorkerW, "Ptr")
Gui, +toolwindow -Caption
Gui, Add, ActiveX, x0 y0 w1920 h1080 vWMP, WMPLayer.OCX
WMP.Url := file
WMP.uiMode := "none" ;no WMP controls
WMP.stretchToFit := 1 ;video is streched to the given activex range
WMP.enableContextMenu := 0 ;no reaction to right click in the video field
WMP.Settings.AutoStart := True
WMP.Settings.setMode("loop", true)
Gui +LastFound
WinSet, TransColor, 000000
WinSet, TransColor, F0F0F0
Gui, 1:Show,,GuiVid
Gui, 2:New
Gui, +AlwaysOnTop
Gui +LastFound
Gui, Add, Text,, Select your monitor (Only works on 3 as of right now):
Gui, Add, Edit, Number Limit2
Gui, Add, UpDown, vMonNum Range1-99, 2
Gui, Add, Button, Default gOk, Ok
Gui, Show
return
Ok:
Gui, Submit
If %MonNum% = 2
WinMove, GuiVid,, %Mon2%
return