[jawsscripts] Continued: VMware Player
- From: "Chris Hallsworth" <christopherh40@xxxxxxxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Thu, 6 Aug 2009 09:53:58 +0100
Hello all,
I've produced some basic scripts to make keyboard navigation with VMware
Player easier. Please look at the code below and see if I can make
improvements to it.
--start of code--
;scripts for VMware Player
include "hjconst.jsh"
include "hjglobal.jsh"
Script VMwarePlayerMenu ()
var
handle hwnd,
string class,
string title
let class="ToolbarWindow32"
let title=GetAppTitle ()
if title!="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
FindString (hwnd, "VMware Player", S_TOP, S_RESTRICTED)
RoutePcToJAWS ()
else
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
NextWord ()
NextWord ()
RoutePcToJAWS ()
endif
EndScript
Script DevicesMenu ()
var
handle hwnd,
string class,
string title
let class="ToolbarWindow32"
let title=GetAppTitle ()
if title!="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
FindString (hwnd, "Devices", S_TOP, S_RESTRICTED)
RoutePcToJAWS ()
else
SayString ("There is no virtual machine running")
endif
EndScript
Script OpenButton ()
var
string class,
string title
let class="Button"
let title=GetAppTitle ()
if title=="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
NextLine ()
NextLine ()
NextLine ()
NextLine ()
NextWord ()
LeftMouseButton ()
PCCursor ()
else
SayString ("There is already a virtual machine running")
endif
EndScript
--end of code--
Thanks in advance, and I look forward to hearing from you.
--
Chris Hallsworth
E-mail: christopherh40@xxxxxxxxxxxxxx
MSN: ch9675@xxxxxxxxxxx
Skype: chrishallsworth7266
Klango: chrishallsworth
__________
Visit and contribute to The JAWS Script Repository http://jawsscripts.com
View the list's information and change your settings at
http://www.freelists.org/list/jawsscripts
Other related posts:
- » [jawsscripts] Continued: VMware Player - Chris Hallsworth