[jawsscripts] Re: VMware Player, again
- From: "Donald Marang" <donald.marang@xxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Sun, 23 Aug 2009 22:40:11 -0400
Hi Chris,
I have finally got a stable version of your scripts completed and debugged.
They are extremely reliable on my machine. I have moved all of the
constants and globals to a header file and all messages to a message file.
I did add the capability to just use the Alt key to bring up the menus and
move between available menus with the arrow keys!
Feel free to host and distribute these scripts , since you were the
originator. Just keep me notified so I can help maintain them. Contact me
at:
donald.marang@xxxxxxxxxxx
The new 0.8 scripts are again available at:
http://mysite.verizon.net/marangs/VMware.html
By the way, the condition:
If GetWindowHierarchyY (GetFocus ()) == 2 then
turns out to be a very reliable way to determine if the current item is in a
submenu. I would still like a better way to determine if the current menu
item has that triangle at the far right to indicate there is a submenu
available.
Don Marang
----- Original Message -----
From: "Chris Hallsworth" <christopherh40@xxxxxxxxxxxxxx>
To: <jawsscripts@xxxxxxxxxxxxx>
Sent: Sunday, August 23, 2009 6:05 AM
Subject: [jawsscripts] VMware Player, again
> 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
>
__________
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: