Hi: My latest step in this endeavour is that I have used the Accessible property of the Window object to create a window.browsemode object and I did the following. set OAccessWindow = ActiveWindow.Accessible 'this creats an accessible object set OAccessWindows = OAccessWindow.Children 'this creates an Accessibles object icount = OAccessWindows.Count for i = 1 to icount speak OAccessWindows(i).name 'name can be substituted by any property next My question is: in the above code, which property of the AccessWindows(i) object, if any, would give me the names of the controls such as the Edit boxes? Second question is, How do I use the Accessible property of the BrowseModeLine object? If anyone can offer any suggestions, I would love to here them. Kevin Huber
On 7/16/12, Kevin Huber <[email protected]> wrote: > HiChip: > The window.type property did not show the edit boxes in Internet > Explorer or Firefox. > It showed all the controls as "custom controls". > I then tried Chip's suggestion of using the Accessible property of the > Browsemodeline object, but I must be doing something wrong because > when I created my accessible object from my browsemodeline object, and > then tried to speak its name, it gave me an error. > The relavent code follows: > > dim OBrowseLines 'a BrowseModeLines object > dim OBrowseLine 'a BrowseModeLine object > dim Icount 'number of BrowseModeLine objects in the > BrowseModeLines > object that was created. > dim ICounter 'loop counter > Dim ILink 'number of links on the page > set OBrowseLines = BrowseMode.Lines 'creating the > BrowseModeLines > object from the BrowseMode object > dim OAccess 'accessible object derived from the BrowseLine > object > Icount = OBrowseLines.count > ILink = 0 > 'now create the BrowseModeLine objects and find out the number > of > links on a webpage > for ICounter = 1 to ICount > set OBrowseLine = OBrowseLines.Item(Icounter) > set OAccess = OBrowseLine.Accessible 'the accessible > object > speak OAccess.name > Next > > Kevin Huber > > On 7/9/12, Chip Orange <[email protected]> wrote: >> Hi Kevin, >> >> Normally, you would use the window.type property to identify an editbox >> control. I don't know if this works well in a browser window though. >> >> One thing which occurs to me is that this way, you will only be able to >> find >> the editbox controls which are currently in view on the window; maybe >> this >> isn't a problem for what you're doing. >> >> The other way I'd look at would be to use the accessible property of the >> browsemodeLine object, maybe you could identify editboxes that way, and >> if >> they had focus? Also, the window object probably has an accessible >> object >> which might tell you if it has focus. Sorry I just don't have time at >> the >> moment to dig around. >> >> hth, >> >> Chip >> >> >> >>> -----Original Message----- >>> From: Kevin Huber [mailto:[email protected]] >>> Sent: Monday, July 09, 2012 3:47 PM >>> To: [email protected] >>> Subject: Re: script to automatically turn off Browse mode in >>> edit boxes >>> >>> Hi Chip: >>> I was able to count the links on a page using code which was >>> similar to the snipit. >>> Now, the question is, how can I identify controls such as >>> edit boxes and combo boxes etc on that page. >>> I decided to try using the Windows object to do this as follows: >>> Dim OWindow:set OWindow = Activewindow.children >>> ' Window objects derived from the Windows object >>> dim ICount 'number of children in the Windows object >>> dim Icounter 'loop counter >>> Icount = OWindow.count >>> For ICounter = 41 to icount >>> if OWindow(Icounter).Visible then >>> Speak ICounter >>> Speak OWindow(ICounter).title >>> End If >>> Next >>> >>> I ran a test script containing this code on a page in >>> Internet Explorer and found some titles which sounded >>> promising, but I am not sure if I am using the right property >>> of the Window object to identify an Edit box. >>> The second question is, once I am able to identify these edit >>> boxes, is there a way to identify if it has focus, I.E. if >>> the Virtual Cursor is pointing to it? >>> Kevin Huber >>> >>> On 7/3/12, Chip Orange <[email protected]> wrote: >>> > Hi Kevin, >>> > >>> > You're on the right track; the only thing misleading you is >>> the name >>> > "browsemode lines"; it's not always a line you get as one of the >>> > members of this collection; if it's a link, then the link will be a >>> > member. If a given line has 10 links, then you'll get 10 >>> more members >>> > of the collection just for the links of that one line. >>> > >>> > You were close to finding the links also, it's not because >>> you weren't >>> > in browsemode (you're always in browsemode by default when >>> you open a >>> > page), it's just that you were unlucky in your guesses. >>> > >>> > >>> > Below is a code snipit I used in Immed to find the links of the >>> > current page; I typed this in in the single line mode, although it >>> > would be easier to do it in the multiline mode: >>> > >>> > for each x in browsemode.lines: if x.isLink then print >>> x.index : end if: >>> > next >>> > >>> > I got a list of the indexes of each of the links in the collection. >>> > >>> > hth, >>> > >>> > Chip >>> > >>> > >>> >> -----Original Message----- >>> >> From: Kevin Huber [mailto:[email protected]] >>> >> Sent: Friday, June 29, 2012 4:28 PM >>> >> To: [email protected] >>> >> Subject: Re: script to automatically turn off Browse mode in edit >>> >> boxes >>> >> >>> >> Hi: >>> >> I was just playing with the BrowseMode, BrowseModeLines and >>> >> BrowseModeLine objects to see if I could get what I want from the >>> >> BrowseModeLine object, since some of the properties of that object >>> >> are "IsLink", "IsQuote" and a few other similar ones. But I have >>> >> some questions. >>> >> First, I opened Internet Explorer and opened the Immed window and >>> >> wrote the following code without the quotes: >>> >> >>> >> "set MyBrowseMode = BrowseMode.Lines" >>> >> >>> >> where MyBrowseMode is a BrowseModeLines object 'then I typed the >>> >> following" >>> >> >>> >> "speak MyBrowseMode.Count" >>> >> >>> >> The resulting number was 101. but when I manually counted >>> the lines >>> >> on the page, the number that I got was far less. >>> >> So what does that mean? >>> >> Then I went further and typed the following code >>> >> >>> >> "set MyIndex = MyBrowsMode.Item(50)" >>> >> >>> >> where MyIndex is a BrowseModeLine object. >>> >> Then I typed: >>> >> >>> >> "speak MyIndex.islink" >>> >> >>> >> and the value I got back was "false. >>> >> I tried changing the index in the line above to creat different >>> >> BrowseModeLine objects and I tried speaking several diferent >>> >> properties of the resulting BrowseModeLine objects and all of the >>> >> results were false. >>> >> I am not sure what these indexes such as mybrowsmode.item(1), >>> >> mybrowsemode.item(2) etc represent, since they don't appear to >>> >> represent the lines on the page. >>> >> >>> >> Sorry for the longwindedness, but I don't know how else to >>> explain my >>> >> confussion. >>> >> Kevin Huber >>> >> >>> >> >>> >> On 6/29/12, BT <[email protected]> wrote: >>> >> > Hi Kevin, >>> >> > >>> >> > Yes maybe less code but not really since either case >>> is just a >>> >> > simple call, such as execute hotkey... >>> >> > >>> >> > I was trying to find the information that gives the names of >>> >> > controls but could not find any. All it does is spit out >>> >> the name such >>> >> > as Edit Box and gives you no code value for it. I tried >>> >> using the role >>> >> > value but edit boxs are ignored, along with many other >>> controls... >>> >> > >>> >> > Sincerely >>> >> > Bruce >>> >> > >>> >> > To: <[email protected]> >>> >> > Sent: Friday, June 29, 2012 1:02 PM >>> >> > Subject: Re: script to automatically turn off Browse >>> mode in edit >>> >> > boxes >>> >> > >>> >> > >>> >> > Hi Bruce: >>> >> > I just tested the ActiveSettings.General.Browsemode and you >>> >> can turn >>> >> > it on and of, thus you wouldn't have to fire the hotkey. >>> >> > I think I would have to write less code, although I >>> could be wrong. >>> >> > Kevin Huber >>> >> > >>> >> > >>> >> > On 6/29/12, Kevin Huber <[email protected]> wrote: >>> >> >> Hi Bruce: >>> >> >> That makes sense. I was thinking along those lines too, >>> >> but is there >>> >> >> an object that I can use to monitor those controls? >>> >> >> Kevin Huber >>> >> >> On 6/25/12, BT <[email protected]> wrote: >>> >> >>> >>> >> >>> Hi! >>> >> >>> >>> >> >>> Control-Shift-A already does this as long as you >>> are on the >>> >> >>> control or edit box. >>> >> >>> >>> >> >>> I think JAWS has this feature and automatically >>> turns it off >>> >> >>> when on an >>> >> >>> >>> >> >>> edit box. It is a nice idea but one way or another a >>> toggle would >>> >> >>> have to be >>> >> >>> >>> >> >>> used to get you back out of the edit box afterwards, but >>> >> this would >>> >> >>> at least >>> >> >>> >>> >> >>> cut down to one key-combo stroke instead of 2. >>> >> >>> >>> >> >>> One could monitor your controls and fire the >>> hotkey for the >>> >> >>> control-shift-A and it would be an easy app to have. Just >>> >> look for >>> >> >>> edit boxes or set it for what control you want it to >>> >> activate on and >>> >> >>> that should >>> >> >>> >>> >> >>> be it. >>> >> >>> I could monitor my Ribbon_Read app to do this since >>> >> it reads all >>> >> >>> controls and you could activate any kind of control you >>> >> want it to >>> >> >>> toggle for you. I gave a copy of this to the one that wanted >>> >> >>> TextPad to read better... >>> >> >>> >>> >> >>> Bruce >>> >> >>> >>> >> >>> Bruce >>> >> >>> >>> >> >>> Sent: Monday, June 25, 2012 2:25 PM >>> >> >>> Subject: Re: script to automatically turn off Browse >>> mode in edit >>> >> >>> boxes >>> >> >>> >>> >> >>> >>> >> >>> Kevin >>> >> >>> >>> >> >>> A toggle key, to activate or deactivate, would make great >>> >> sense with >>> >> >>> this idea . Additionally, I'd suggest allowing the user >>> >> to select >>> >> >>> his preferred default. >>> >> >>> In my use, I suspect, I would probably opt to have the >>> >> boxes act as >>> >> >>> they now do but only to open up after the toggle. >>> >> >>> I tend to read pages with the arrow keys so having browse >>> >> mode act >>> >> >>> as it now does is my preferred style unless I actually >>> wanted to >>> >> >>> fill out something. >>> >> >>> >>> >> >>> Good luck with the idea. >>> >> >>> >>> >> >>> >>> >> >>> >>> >> >>> Bible study has torn my life apart and remade it. That >>> is to say >>> >> >>> that God, through his Word, has done so. >>> >> >>> -- Derek Tidball, author of "The Message of >>> Holiness: Restoring >>> >> >>> God's Masterpiece" >>> >> >>> >>> >> >>> >>> >> >>> >>> >> >>> >>> >> >> >>> >> > >>> >> > >>> >> >>> > >>> > >>> >> >> >
