Thanks; figured something exactly like that had happened, and thought it was worth mentioning before someone went to import that code rather than call homer.
Chip ------------------------------ Chip Orange Database Administrator Florida Public Service Commission chip.ora...@psc.state.fl.us (850) 413-6314 (Any opinions expressed are solely those of the author and do not necessarily reflect those of the Florida Public Service Commission.) > -----Original Message----- > From: Jamal Mazrui [mailto:empo...@smart.net] > Sent: Wednesday, July 08, 2009 10:07 AM > To: gw-scripting@gwmicro.com > Subject: RE: Some custom keyboard functions > > You're right, Chip. At the last minute, I renamed the variable s to > sKey, hoping it would be more understandable for the message I posted > than the verbatim source code of HomerSharedObject.vbs. Apparently, I > forgot to change each reference to the variable. > > Jamal > > On Tue, 7 Jul 2009, Chip > Orange wrote: > > > Date: Tue, 7 Jul 2009 12:51:12 -0400 > > From: Chip Orange <lists3...@comcast.net> > > Reply-To: gw-scripting@gwmicro.com > > To: gw-scripting@gwmicro.com > > Subject: RE: Some custom keyboard functions > > > > Thanks Jamal, this looks exactly like what Jeff was asking about. > > > > There's one line in function keyboardInsert which I'm > wondering about > > though: > > > > Set oKey = Keyboard.Key(s) > > > > shouldn't that be: > > > > Set oKey = Keyboard.Key(sKey) > > > > <query>? > > > > Chip > > > > > > -----Original Message----- > > From: Jamal Mazrui [mailto:empo...@smart.net] > > Sent: Tuesday, July 07, 2009 12:06 PM > > To: gw-scripting@gwmicro.com > > Subject: Some custom keyboard functions > > > > Given that inserting a key combination by name has been a > recent topic, I > > thought I'd share some functions of HomerSharedObject.vbs > in this area. > > > > Hope this helps, > > Jamal > > > > Public Function KeyboardBypass(sName) > > ' Insert a key directly to the focused window, bypassing Window-Eyes > > ExecuteHotkey hkBypass KeyboardInsert sName End Function > > > > Public Function KeyboardGetModifiers(sName) ' Get modifier > flags of a key > > > > Dim iReturn > > Dim oKey > > > > Set oKey = Keyboard.Key(sName) > > iReturn = 0 > > If oKey.FilterApplication = kfsDown Then iReturn = iReturn > Or kmApplication > > If oKey.FilterAlt = kfsDown Then iReturn = iReturn Or kmAlt If > > oKey.FilterControl = kfsDown Then iReturn = iReturn Or kmControl If > > oKey.FilterInsert = kfsDown Then iReturn = iReturn Or kmInsert If > > oKey.FilterNumlock = kfsDown Then iReturn = iReturn Or kmNumlock If > > oKey.FilterNumpad = kfsDown Then iReturn = iReturn Or kmNumpad If > > oKey.FilterShift = kfsDown Then iReturn = iReturn Or kmShift If > > oKey.FilterWindows = kfsDown Then iReturn = iReturn Or kmWindows > > KeyboardGetModifiers = iReturn End Function > > > > Public Function KeyboardInsert(sName, bSuppressInterrupt) ' > Insert a key by > > name, and specify whether to suppress interruptability so > that speech in > > progress continues > > > > Dim aKeys > > Dim iOldInterrupt, iIndex, iModifiers > > Dim oKey > > Dim sKey > > > > Set oKey = Keyboard.Key(sName) > > iModifiers = KeyboardGetModifiers(oKey) > > If Right(sName, 1) = "-" Then > > sKey = "-" > > Else > > aKeys = Split(sName, "-") > > sKey = aKeys(UBound(aKeys)) > > End If > > Set oKey = Keyboard.Key(s) > > iIndex = oKey.Index > > > > If bSuppressInterrupt Then iOldInterrupt = > > oHomer.KeyboardSetInterrupt(kimOff) > > Keyboard.InsertKey iIndex, iModifiers > > If bSuppressInterrupt Then > oHomer.KeyboardSetInterrupt(iOldInterrupt) > > End Function > > > > Public Function KeyboardSetInterrupt(iNewState) ' Set state of > > interruptability, and return previous setting so it may be restored > > > > KeyboardSetInterrupt = ActiveSettings.Keyboard.Interruptability > > ActiveSettings.Keyboard.Interruptability = iNewState End Function > > > > >
