script for clicking help balloons in Windows XP
- From: "Blake Sinnett" <frequency660@xxxxxxxxxxx>
- To: jfw@xxxxxxxxxxxxx
- Date: Fri, 27 Jan 2006 11:00:58 -0600
Here is a script I made that will click help balloons in Windows XP. It
works on my computer, so I would be interested to get some feedback on if it
works for you all.
DISCLAIMER
If you don't know how to add a script to the default.jss file, please, i beg
you, please don't try to install it without some help from someone who does.
I will not be accused of messing someone's computer up, when most likely it
was the person's own fault because they didn't know what they were doing!
Now with that disclaimer out of the way, here is the script information.
script documentation
script name: ClickHelpBalloon
can be attached to key: checked
synopsis: Clicks help balloons in Windows XP.
description: When this key stroke is pressed, a help balloon is searched
for. If one is found, it will be clicked. If one isn't found, JAWS says so.
You can only successfully use this key stroke in Windows XP.
catigory: none
assign to hotkey: i used control+B, but you can use whatever you like.
Script body, add this after script ClickHelpBalloon (), and before EndScript
Var
String SClass, ; The name of the window class.
String SName, ; The name of the window.
Handle HWND ; The handle of the current window.
Let SClass = GetWindowClass (GetFirstWindow (FindTopLevelWindow
("Shell_TrayWnd", "")))
Let SName = GetWindowName (GetFirstWindow (FindTopLevelWindow
("Shell_TrayWnd", "")))
Let HWND = GetFocus ()
GetFocus ()
If SClass == "tooltips_class32"
& SName != "" then ; Click the balloon.
SayFormattedMessage (OT_NO_Disable, "Clicked help balloon.", "Clicked.")
SetFocus (GetFirstWindow (FindTopLevelWindow ("Shell_TrayWnd", "")))
SaveCursor ()
RouteJAWSToPc ()
RoutePcToJAWS ()
{LeftMouseButton}
SetFocus (HWND) ; Return the focus to its previous window.
Else
if SClass != "tooltips_class32"
|| SName == "" then ; State that a help balloon wasn't found.
SayFormattedMessage (OT_No_Disable, "Help balloon not found.", "Not
found.")
EndIf
EndIf
I hope this script works. If it doesn't, then I'm back to the drawing board.
Thanks,
Blake
-----------------------------------------------------
"frequency660@xxxxxxxxxxx" is a NetIBA certified email address. Certificate
#1070793E. Please visit NetIBA at http://www.netiba.com/?22912
--
To post a message to the list, send it to jfw@xxxxxxxxxxxxx
To unsubscribe from this mailing list, send a message to
jfw-request@xxxxxxxxxxxxx with the word unsubscribe in the subject line.
Archives located at: //www.freelists.org/archives/jfw
If you have any concerns about the list, post received from the list, or the way the list is being run, do not post them to the list. Rather contact the list owner at jfw-admins@xxxxxxxxxxxxxx
Other related posts:
