[jawsscripts] VMware Player, again

  • From: "Chris Hallsworth" <christopherh40@xxxxxxxxxxxxxx>
  • To: <jawsscripts@xxxxxxxxxxxxx>
  • Date: Sun, 23 Aug 2009 11:05:04 +0100

Hello all,
Here are the script for VMware Player. I've tested each scripts several 
times on this machine and they appear to be reliable. Looking at the code 
below, please tell me what you think, and whether I need to improve on them 
in any way.

--start of code--

; scripts for VMware Player
include "hjconst.jsh"


Script VMwarePlayerMenu ()
if GetAppTitle ()=="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
NextWord ()
NextWord ()
LeftMouseButton ()
else
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
FindString (GetCurrentWindow (), "VMware Player", S_BOTTOM, S_RESTRICTED)
LeftMouseButton ()
endif
EndScript

Script OpenButton ()
if GetAppTitle ()=="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
NextLine ()
NextLine ()
NextLine ()
NextLine ()
NextWord ()
RoutePcToJAWS ()
PCCursor ()
else
SayString ("There is already a virtual machine running")
endif
EndScript

Script DownloadButton ()
if GetAppTitle ()=="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
NextLine ()
NextLine ()
NextLine ()
NextLine ()
NextLine ()
NextLine ()
NextLine ()
NextWord ()
RoutePcToJAWS ()
PCCursor ()
SayString ("Please wait, opening web browser")
else
SayString ("There is already a virtual machine running")
endif
EndScript

Script RecentVirtualMachinesList ()
if GetAppTitle ()=="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
FindString (GetCurrentWindow (), "recent virtual machines", S_BOTTOM, 
S_RESTRICTED)
NextLine ()

else
SayString ("There is already a virtual machine running")
endif
EndScript

Script DevicesMenu ()
if GetAppTitle ()!="VMware Player" then
JAWSCursor ()
JAWSPageUp ()
JAWSHome ()
FindString (GetCurrentWindow (), "devices", S_BOTTOM, S_RESTRICTED)
LeftMouseButton ()
else
SayString ("There is no virtual machine running")
endif
EndScript

--End of code--

Thanks in advance.
--
Chris Hallsworth
E-mail: christopherh40@xxxxxxxxxxxxxx
MSN: ch9675@xxxxxxxxxxx
Yahoo! Messenger: christopherh40@xxxxxxxxx
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: