dim objShell
set objShell = CreateObject("Shell.Application")
objShell.TileVertically
set objShell = nothing

quote:

---

Originally posted by heydre

Rob....been using S+ with Firefox and Chrome. Plays nice with Windows/Apps but noticing a weird issue with a script for closing a tab.

If you load/play a video in a tab and then stop it you can't close the tab with the gesture. If you switch to another tab and back to it or reload the tab then you gesture it will close it. My tab close script is:

acSendKeys("{DELAY=50}^w")

Any ideas?

---

local iHandle = acGetForegroundWindow()
local iHandle2 = acGetForegroundWindow()
while iHandle == iHandle2 do
acPostMessage(acFindWindow("STROKESPLUS"),273,136) --set X2 as the stroke button	
iHandle2 = acGetForegroundWindow()
acDelay(300)
end
acPostMessage(acFindWindow("STROKESPLUS"),273,125) --set Right as the stroke button

aliencore = alien.core
user32 = aliencore.load("user32.dll")

-- ************ GetKeyState ************

VK_LBUTTON = 0x01
VK_RBUTTON = 0x02

gGetKeyState = user32.GetKeyState
gGetKeyState:types{ ret = 'short', abi = 'stdcall', 'uint' }

function aGetKeyState(VK)
	return gGetKeyState(VK)
end

acDelay(3000)
local bRight = false
local bLeft = false
local iRightKeyState = 0
local iLeftKeyState = 0
iRightKeyState = aGetKeyState(VK_RBUTTON)
iLeftKeyState = aGetKeyState(VK_LBUTTON)
if bit32.band(iRightKeyState,0x80) ~= 0 then
	bRight = true
end
if bit32.band(iLeftKeyState,0x80) ~= 0 then
	bLeft = true
end
--acMessageBox(iRightKeyState,"iRightKeyState Value",nil)
--acMessageBox(iLeftKeyState,"iLeftKeyState Value",nil)
if bRight then
	acMessageBox("Right button down","GetKeyState Return Value",nil)
end
if bLeft then
	acMessageBox("Left button down","GetKeyState Return Value",nil)
end

local iHandle = acGetForegroundWindow()
local iHandle2 = acGetForegroundWindow()
while iHandle == iHandle2 do
acDisableCapture()
iHandle2 = acGetForegroundWindow()
acDelay(300)
end
acEnableCapture()

quote:

---

Originally posted by aShai33

Okay Rob, I've been trying to find a script to open S+ config actions window, any help would be greatly appreciated.

---

acShellExecute("open", "::{645FF040-5081-101B-9F08-00AA002F954E}", "", "", 1)

quote:

---

Originally posted by Rob

This works on my system:

acShellExecute("open", "::{645FF040-5081-101B-9F08-00AA002F954E}", "", "", 1)

Note the first time I ran, it took a moment for Windows to show the window; probably since it's a virtual object and I hadn't opened it recently.

---

quote:

---

Originally posted by Rob

The only thing I can suggest is to browse to Word.exe, probably under Program Files/Microsoft Office (?) from the Run box (Start -> Run or Win+R). Once you've selected Word.exe and get back to the Run box, copy the entire path, then change each \ with \\ and you should be good to go.

---