[jawsscripts] KeyboardType change
- From: "Reed Poynter" <Reed.Poynter@xxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Thu, 10 Mar 2011 10:58:40 -0800
Hi Geoff,
Here's my script.
I've assigned WindowsKey+Alt+K to it and It works great.
Script KeyboardTypeChange ()
var
string sProgramFile,
string sSection,
string sKeyname,
string sDefault,
string sValue
let sSection = "Options"
let sKeyname = "KeyboardType"
let sDefault = "not found"
let sProgramFile = GetJAWSSettingsDirectory ()+"\\default.jcf"
let sValue = IniReadString (sSection, sKeyname, sDefault, sProgramFile)
Say ("Change from"+SValue,0,0)
If SValue == "Desktop" then
let sDefault = "Laptop"
IniWriteString (sSection, sKeyname, sDefault, sProgramFile)
else
let sDefault = "Desktop"
IniWriteString (sSection, sKeyname, sDefault, sProgramFile)
EndIf
let sValue = IniReadString (sSection, sKeyname, sDefault, sProgramFile)
Say ("to "+SValue,0,0)
EndScript
__________�
View the list's information and change your settings at
//www.freelists.org/list/jawsscripts
Other related posts:
