[jawsscripts] Re: Vista code query

  • From: "Tim Burgess" <tim@xxxxxxxxxxxxx>
  • To: <jawsscripts@xxxxxxxxxxxxx>
  • Date: Sun, 8 Mar 2009 11:16:17 -0000

Sounds good - many thanks for this. 

Best wishes.

Tim Burgess
Raised Bar Ltd
Phone:  +44 (0)1827 719822

Don't forget to vote for improved access to music and music technology at

http://www.raisedbar.net/petition.htm
 
-----Original Message-----
From: jawsscripts-bounce@xxxxxxxxxxxxx
[mailto:jawsscripts-bounce@xxxxxxxxxxxxx] On Behalf Of Martin Slack
Sent: 08 March 2009 10:47
To: jawsscripts@xxxxxxxxxxxxx
Subject: [jawsscripts] Re: Vista code query

Hi Tim,

  I haven't seen a reply to your post, so in case you haven't made
progress...

  I ran the following code on a Vista machine.

Script test ()
Var
  int TopOfTaskBar

SayString ("test")
SayInteger (TopOfTaskBar, 10)
let TopOfTaskBar = GetWindowTop(FindTopLevelWindow (cwcShellTray, cscNull))
SayInteger (TopOfTaskBar, 10) EndScript

I have the screen resolution set low to make the text on it appear larger. 
When no taskbar was showing and I ran the script, I heard:

test 0 799

When I moved the mouse pointer to the bottom of the screen, to make the
taskbar appear, I heard:

test 0 753

hth
Martin

----- Original Message -----
From: "Tim Burgess" <tim@xxxxxxxxxxxxx>
To: "Jawsscripts" <jawsscripts@xxxxxxxxxxxxx>
Sent: Friday, March 06, 2009 1:13 PM
Subject: [jawsscripts] Vista code query


> Hi,
>
> I'm involved in a scripting effort for the Sibelius music scoring
> application (see www.musicaccess.co.uk).  All of our test machines are
> running XP and budget doesn't allow for getting a Vista box just yet.
> However, I need to test one line of code to see if it returns a valid 
> result
> under Vista (I think it's the only line we've got that may fall foul of a
> different O/S):
>
> let TopOfTaskBar = GetWindowTop(FindTopLevelWindow (cwcShellTray, 
> cscNull))
>
> Would any kind soul be prepared to give it a try for me and report back?
>
> Best wishes.
>
> Tim Burgess
> Raised Bar Ltd
> PO Box 4442
> Atherstone
> Warwickshire
> CV9 9AT
>
> Phone:  +44 (0)1827 719822
> Email:  tim@xxxxxxxxxxxxx
> Web:  http://www.raisedbar.net
>
> Don't forget to vote for improved access to music and music technology at
>
> http://www.raisedbar.net/petition.htm
>
>
> __________
> 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: