[jawsscripts] Re: VMware Player
- From: "Donald Marang" <donald.marang@xxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Wed, 12 Aug 2009 07:17:33 -0400
Hi Chris and others,
I finally got something more reliable using mostly FindString functions
within just the menu bar (hBar). The FindString statements in your original
code did not work. The functions still worked because you had already
manually moved the JAWS cursor to the right position before the FindString
statement. I still have one problem strictly using the FindString statement
to bring up the "VMware Player" menu when no Virtual Machine is running and
the "Command" dialog is displayed. There is a graphic with the same name
before the menu. I attempted various options to the FindString function to
search from the bottom using:
If FindString (hBar, "VMware Player", S_BOTTOM, S_RESTRICTED) Then
...
EndIf
I could not figure out what I was doing wrong, so I just added two NextWord
statements after the above code using S_TOP. How do you perform a search of
a single control window from the bottom up ()last)?
I have added an OpenRecent script to set focus on the multi select list box
of recently used virtual machines.
I currently am using the following keystrokes:
[Common Keys]
Alt+V=VMPlayerMenu
Alt+D=DevicesMenu
Control+O=Open
Control+R=OpenRecent
Enter=ActivateListItem
Would you rather I paste my code within an email or package and host these
scripts that would merge with the factory scripts (using a JSX container
file) later today? I would clean them up a little as well and add a simple
help key (Alt + h?).
Don Marang
----- Original Message -----
From: "Chris Hallsworth" <christopherh40@xxxxxxxxxxxxxx>
To: <jawsscripts@xxxxxxxxxxxxx>
Sent: Friday, August 07, 2009 3:44 PM
Subject: [jawsscripts] Re: VMware Player
> Ok for the benefit of others, here it is again. It's the code only and I
> will not attach the actual file. Once again, any feedback is welcome.
>
> -- start of code --
> ;scripts for VMware Player
> include "hjconst.jsh"
> include "hjglobal.jsh"
>
>
> Void Function AutoStartEvent ()
> SayString ("Welcome to VMware Player")
>
>
> EndFunction
>
> 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
>
> Script ClickDownloadButton ()
> var
> string class,
> string title
> let class="Button"
> let title=GetAppTitle ()
> if title=="VMware Player" then
> JAWSCursor ()
> JAWSPageUp ()
> JAWSHome ()
> NextLine ()NextLine ()
> NextLine ()
> NextLine ()
> NextLine ()
> NextLine ()
> NextLine ()
> NextWord ()
> LeftMouseButton ()
> PCCursor ()
> else
> SayString ("There is already a virtual machine running")
> endif
> EndScript
>
> Script ScriptFileName ()
> ScriptAndAppNames ("VMware Player")
>
>
> EndScript
>
>
>
> ;end of cscript file
>
> -- end of code --
>
> Thanks in advance.
> --
> Chris Hallsworth
> E-mail: christopherh40@xxxxxxxxxxxxxx
> MSN: ch9675@xxxxxxxxxxx
> Skype: chrishallsworth7266
> Klango: chrishallsworth
>
> --------------------------------------------------
> From: "Dave" <dave.mehler@xxxxxxxxx>
> Sent: Friday, August 07, 2009 8:12 PM
> To: <jawsscripts@xxxxxxxxxxxxx>
> Subject: [jawsscripts] Re: VMware Player
>
>> Hello,
>> I did not get any scripts. Can you write me directly and send them?
>> Thanks.
>> Dave.
>>
>>
>> -----Original Message-----
>> From: jawsscripts-bounce@xxxxxxxxxxxxx
>> [mailto:jawsscripts-bounce@xxxxxxxxxxxxx] On Behalf Of Chris Hallsworth
>> Sent: Friday, August 07, 2009 2:24 PM
>> To: jawsscripts@xxxxxxxxxxxxx
>> Subject: [jawsscripts] Re: VMware Player
>>
>> So where's the message. I have some scripts, did anyone receive the code
>> because I've not yet had any feedback.
>>
>> --
>> Chris Hallsworth
>> E-mail: christopherh40@xxxxxxxxxxxxxx
>> MSN: ch9675@xxxxxxxxxxx
>> Skype: chrishallsworth7266
>> Klango: chrishallsworth
>>
>> --------------------------------------------------
>> From: "Dave" <dave.mehler@xxxxxxxxx>
>> Sent: Friday, August 07, 2009 3:11 PM
>> To: <jawsscripts@xxxxxxxxxxxxx>
>> Subject: [jawsscripts] Re: VMware Player
>>
>>> -----Original Message-----
>>> From: jawsscripts-bounce@xxxxxxxxxxxxx
>>> [mailto:jawsscripts-bounce@xxxxxxxxxxxxx] On Behalf Of Chris
>>> Hallsworth
>>> Sent: Wednesday, August 05, 2009 4:57 PM
>>> To: jawsscripts@xxxxxxxxxxxxx
>>> Subject: [jawsscripts] VMware Player
>>>
>>> Hello all,
>>> I'd like to have a go at creating some scripts to make VMware Player
>>> more keyboard friendly, particularly when wanting to use the menus.
>>> Any starters would be greatly appreciated. At the moment it works fine
>>> with JAWS, however you have to use the JAWS cursor to first find
>>> either the VMware Player or, if a virtual machine is running, devices.
>>> Once I've found that I just click on it and a standard pull down
>>> occurs and JAWS can read the menus and associated dialogue boxes fine.
>>> So I would like to enhance the accessibility so that JAWS can quickly
>>> locate and click on the appropriate menus, which I think are actually
>>> toolbars, according to the tutor message, using keystrokes.
>>> Thanks in advance for any starters.
>>> --
>>> 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
>>>
>>>
>>> __________
>>> 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
>>
>>
>> __________
>> 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
>
__________
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: