blob: bbb67656b0d0b10726351e6352016f0eecfaa36e [file] [log] [blame]
include "aiBrowser.jsh"
Script JawsOn ()
let g_aiBrowserFlag = 1
EndScript
Script JawsOff ()
let g_aiBrowserFlag = 0
EndScript
;--------------------------------------------------------------------------------
Script AiBrowserSayAllOff ()
If g_aiBrowserSayAllFlag Then
let g_aiBrowserSayAllFlag = 0
StopSpeech()
Delay(5, 1)
EndIf
EndScript
Void Function FocusChangedEvent(Handle hCurWin, Handle hPrevWin)
If g_aiBrowserSayAllFlag Then
return
Else
FocusChangedEvent(hCurWin, hPrevWin)
EndIf
EndFunction
void function FocusChangedEventEx(Handle hwndFocus, int nObject, int nChild,
Handle hwndPrevFocus, int nPrevObject, int nPrevChild,
int nChangeDepth)
If g_aiBrowserSayAllFlag Then
return
Else
FocusChangedEventEx(hwndFocus, nObject, nChild, hwndPrevFocus, nPrevObject, nPrevChild, nChangeDepth)
EndIf
EndFunction
int function FocusRedirected(Handle focusWindow, Handle prevWindow)
If g_aiBrowserSayAllFlag Then
return 1
Else
FocusRedirected(focusWindow, prevWindow)
EndIf
EndFunction
Void Function SayTutorialHelp (int iObjType, int IsScriptKey)
If g_aiBrowserSayAllFlag Then
return
Else
SayTutorialHelp(iObjType, IsScriptKey)
EndIf
EndFunction
Void Function SendaiBrowserMessage (Int param)
SendMessage(g_aiBrowserSayAllWindow, g_aiBrowserSayAllMessage, param, 0);
EndFunction
Void Function SayAllStoppedEvent ()
PCCursor()
If (!SayAllInProgress()) Then
SendaiBrowserMessage(0)
PCCursor()
EndIf
EndFunction
Script JAWSCursor ()
EndScript
Script InvisibleCursor ()
EndScript
Void Function ObserveSpeechFunction ()
If (SayAllInProgress()) Then
Else
If g_aiBrowserSayAllFlag != 1 Then
let g_aiBrowserSayAllWindow = FindWindow(GetAppMainWindow(GetFocus()), "Jaws-aiBrowser-Communication", "")
;SayInteger(g_aiBrowserSayAllWindow)
;SetActiveCursor(1)
;MoveToWindow(g_aiBrowserSayAllWindow)
let g_aiBrowserSayAllMessage = RegisterWindowMessage("WM_JAWS_AIBROWSER_MESSAGE")
let g_aiBrowserSayAllFlag = 1
PCCursor()
SetFocus(g_aiBrowserSayAllWindow)
PCCursor()
Delay(5, 0)
Else
If (GetFocus() != g_aiBrowserSayAllWindow) Then
SetFocus(g_aiBrowserSayAllWindow)
EndIf
PCCursor()
EndIf
PCCursor()
SayAll(0)
;SkimRead()
PCCursor()
EndIf
EndFunction
Script ObserveSpeech ()
ObserveSpeechFunction()
EndScript
;--------------------------------------------------------------------------------
Script func_Alt()
If g_aiBrowserFlag Then
SayString("Alt")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt")
EndScript
Script func_Control_N()
If g_aiBrowserFlag Then
SayString("Control+N")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+N")
EndScript
Script func_Control_Q()
If g_aiBrowserFlag Then
SayString("Control+Q")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+Q")
EndScript
Script func_Control()
If g_aiBrowserFlag Then
SayString("Control")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control")
EndScript
Script func_Control_Control()
If g_aiBrowserFlag Then
SayString("Control+Control")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control")
EndScript
Script func_Shift_Shift()
If g_aiBrowserFlag Then
SayString("Shift+Shift")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift")
EndScript
Script func_Control_RightArrow()
If g_aiBrowserFlag Then
PerformScript SayNextWord()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+RightArrow")
EndIf
EndScript
Script func_Control_LeftArrow()
If g_aiBrowserFlag Then
PerformScript SayPriorWord()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+LeftArrow")
EndIf
EndScript
Script func_Control_UpArrow()
If g_aiBrowserFlag Then
PerformScript ControlUpArrow()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+UpArrow")
EndIf
EndScript
Script func_Control_DownArrow()
If g_aiBrowserFlag Then
PerformScript ControlDownArrow()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+DownArrow")
EndIf
EndScript
Script func_Control_O()
If g_aiBrowserFlag Then
SayString("Control+O")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+O")
EndScript
Script func_Alt_Control_I()
If g_aiBrowserFlag Then
SayString("Alt+Control+I")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+I")
EndScript
Script func_Control_I()
If g_aiBrowserFlag Then
SayString("Control+I")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+I")
EndScript
Script func_Control_W()
If g_aiBrowserFlag Then
SayString("Control+W")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+W")
EndScript
Script func_DownArrow()
If g_aiBrowserFlag Then
PerformScript SayNextLine()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("DownArrow")
EndIf
EndScript
Script func_UpArrow()
If g_aiBrowserFlag Then
PerformScript SayPriorLine()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("UpArrow")
EndIf
EndScript
Script func_Alt_DownArrow()
If g_aiBrowserFlag Then
PerformScript OpenListBox()
Else
If g_aiBrowserSayAllFlag Then
return
EndIf
TypeKey("Alt+DownArrow")
EndIf
EndScript
Script Enter()
If g_aiBrowserFlag Then
PerformScript Enter()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Enter()
If g_aiBrowserFlag Then
SayString("Enter")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Enter")
EndScript
Script VirtualSpacebar()
If g_aiBrowserFlag Then
PerformScript VirtualSpacebar()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Space()
If g_aiBrowserFlag Then
SayString("Space")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Space")
EndScript
Script func_Control_F()
If g_aiBrowserFlag Then
SayString("Control+F")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+F")
EndScript
Script func_Control_R()
If g_aiBrowserFlag Then
SayString("Control+R")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+R")
EndScript
Script func_Alt_Control_K()
If g_aiBrowserFlag Then
SayString("Alt+Control+K")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+K")
EndScript
Script func_F4()
If g_aiBrowserFlag Then
PerformScript UtilitySetFontMode()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("F4")
EndIf
EndScript
Script func_Alt_Control_N()
If g_aiBrowserFlag Then
SayString("Alt+Control+N")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+N")
EndScript
Script func_Alt_Control_A()
If g_aiBrowserFlag Then
SayString("Alt+Control+A")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+A")
EndScript
Script func_Home()
If g_aiBrowserFlag Then
PerformScript JAWSHome()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Home")
EndIf
EndScript
Script func_Control_Home()
If g_aiBrowserFlag Then
PerformScript TopOfFile()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+Home")
EndIf
EndScript
Script func_End()
If g_aiBrowserFlag Then
PerformScript JAWSEnd()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("End")
EndIf
EndScript
Script func_Control_End()
If g_aiBrowserFlag Then
PerformScript BottomOfFile()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+End")
EndIf
EndScript
Script func_RightArrow()
If g_aiBrowserFlag Then
PerformScript SayNextCharacter()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("RightArrow")
EndIf
EndScript
Script moveToNextHeading()
If g_aiBrowserFlag Then
PerformScript moveToNextHeading()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_H()
If g_aiBrowserFlag Then
SayString("H")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("H")
EndScript
Script func_Tab()
If g_aiBrowserFlag Then
PerformScript Tab()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Tab")
EndIf
EndScript
Script MoveToNextObject()
If g_aiBrowserFlag Then
PerformScript MoveToNextObject()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_O()
If g_aiBrowserFlag Then
SayString("O")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("O")
EndScript
Script FocusToNextField()
If g_aiBrowserFlag Then
PerformScript FocusToNextField()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_F()
If g_aiBrowserFlag Then
SayString("F")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("F")
EndScript
Script MoveToNextListItem()
If g_aiBrowserFlag Then
PerformScript MoveToNextListItem()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_I()
If g_aiBrowserFlag Then
SayString("I")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("I")
EndScript
Script MoveToNextNonLinkText()
If g_aiBrowserFlag Then
PerformScript MoveToNextNonLinkText()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_N()
If g_aiBrowserFlag Then
SayString("N")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("N")
EndScript
Script MoveToNextFrame()
If g_aiBrowserFlag Then
PerformScript MoveToNextFrame()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_M()
If g_aiBrowserFlag Then
SayString("M")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("M")
EndScript
Script MoveToNextAnchor()
If g_aiBrowserFlag Then
PerformScript MoveToNextAnchor()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_A()
If g_aiBrowserFlag Then
SayString("A")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("A")
EndScript
Script func_LeftArrow()
If g_aiBrowserFlag Then
PerformScript SayPriorCharacter()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("LeftArrow")
EndIf
EndScript
Script moveToPriorHeading()
If g_aiBrowserFlag Then
PerformScript moveToPriorHeading()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_H()
If g_aiBrowserFlag Then
SayString("Shift+H")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+H")
EndScript
Script func_Shift_Tab()
If g_aiBrowserFlag Then
PerformScript ShiftTab()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+Tab")
EndIf
EndScript
Script MoveToPriorObject()
If g_aiBrowserFlag Then
PerformScript MoveToPriorObject()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_O()
If g_aiBrowserFlag Then
SayString("Shift+O")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+O")
EndScript
Script FocusToPriorField()
If g_aiBrowserFlag Then
PerformScript FocusToPriorField()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_F()
If g_aiBrowserFlag Then
SayString("Shift+F")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+F")
EndScript
Script MoveToPriorListItem()
If g_aiBrowserFlag Then
PerformScript MoveToPriorListItem()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_I()
If g_aiBrowserFlag Then
SayString("Shift+I")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+I")
EndScript
Script MoveToPriorNonLinkText()
If g_aiBrowserFlag Then
PerformScript MoveToPriorNonLinkText()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_N()
If g_aiBrowserFlag Then
SayString("Shift+N")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+N")
EndScript
Script MoveToPriorFrame()
If g_aiBrowserFlag Then
PerformScript MoveToPriorFrame()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_M()
If g_aiBrowserFlag Then
SayString("Shift+M")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+M")
EndScript
Script MoveToPriorAnchor()
If g_aiBrowserFlag Then
PerformScript MoveToPriorAnchor()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_A()
If g_aiBrowserFlag Then
SayString("Shift+A")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Shift+A")
EndScript
Script MoveToNextHeadingLevelN(int n)
If g_aiBrowserFlag Then
PerformScript MoveToNextHeadingLevelN(n)
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_1()
If g_aiBrowserFlag Then
SayString("1")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_2()
If g_aiBrowserFlag Then
SayString("2")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_3()
If g_aiBrowserFlag Then
SayString("3")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_4()
If g_aiBrowserFlag Then
SayString("4")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_5()
If g_aiBrowserFlag Then
SayString("5")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_6()
If g_aiBrowserFlag Then
SayString("6")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script MoveToPriorHeadingLevelN(int n)
If g_aiBrowserFlag Then
PerformScript MoveToPriorHeadingLevelN(n)
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Shift_1()
If g_aiBrowserFlag Then
SayString("Shift+1")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_Shift_2()
If g_aiBrowserFlag Then
SayString("Shift+2")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_Shift_3()
If g_aiBrowserFlag Then
SayString("Shift+3")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_Shift_4()
If g_aiBrowserFlag Then
SayString("Shift+4")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_Shift_5()
If g_aiBrowserFlag Then
SayString("Shift+5")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_Shift_6()
If g_aiBrowserFlag Then
SayString("Shift+6")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndScript
Script func_Control_P()
If g_aiBrowserFlag Then
SayString("Control+P")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+P")
EndScript
Script func_Control_S()
If g_aiBrowserFlag Then
SayString("Control+S")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+S")
EndScript
Script func_Pause()
If g_aiBrowserFlag Then
SayString("Pause")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+Shift+P")
EndScript
Script func_Control_Pause()
If g_aiBrowserFlag Then
SayString("Control+Pause")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+Shift+P")
EndScript
Script func_Alt_Control_Shift_P()
If g_aiBrowserFlag Then
SayString("Alt+Control+Shift+P")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+Shift+P")
EndScript
Script func_Control_M()
If g_aiBrowserFlag Then
SayString("Control+M")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+M")
EndScript
Script JumpToTableCell()
If g_aiBrowserFlag Then
PerformScript JumpToTableCell()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Control_J()
If g_aiBrowserFlag Then
SayString("Control+J")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+J")
EndScript
Script DefineATempPlaceMarker()
If g_aiBrowserFlag Then
PerformScript DefineATempPlaceMarker()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Control_K()
If g_aiBrowserFlag Then
SayString("Control+K")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+K")
EndScript
Script JumpReturnFromTableCell()
If g_aiBrowserFlag Then
PerformScript JumpReturnFromTableCell()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Control_Shift_J()
If g_aiBrowserFlag Then
SayString("Control+Shift+J")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+Shift+J")
EndScript
Script SelectAPlaceMarker()
If g_aiBrowserFlag Then
PerformScript SelectAPlaceMarker()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_Control_Shift_K()
If g_aiBrowserFlag Then
SayString("Control+Shift+K")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+Shift+K")
EndScript
Script func_Alt_Control_PageUp()
PerformScript IncreaseVoiceRate()
EndScript
Script func_Alt_Control_PageDown()
PerformScript DecreaseVoiceRate()
EndScript
Script func_Control_A()
If g_aiBrowserFlag Then
PerformScript SelectAll()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+A")
EndIf
EndScript
Script func_Control_H()
If g_aiBrowserFlag Then
SayString("Control+H")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+H")
EndScript
Script func_Alt_Control_S()
If g_aiBrowserFlag Then
SayString("Alt+Control+S")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+S")
EndScript
Script func_Alt_Control_R()
If g_aiBrowserFlag Then
SayString("Alt+Control+R")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+R")
EndScript
Script func_F5()
If g_aiBrowserFlag Then
PerformScript UtilityInitializeHomeRowPosition()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("F5")
EndIf
EndScript
Script func_Alt_RightArrow()
If g_aiBrowserFlag Then
SayString("Alt+RightArrow")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+RightArrow")
EndScript
Script func_Alt_LeftArrow()
If g_aiBrowserFlag Then
SayString("Alt+LeftArrow")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+LeftArrow")
EndScript
Script func_Alt_D()
If g_aiBrowserFlag Then
SayString("Alt+D")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+D")
EndScript
Script func_Control_Tab()
If g_aiBrowserFlag Then
PerformScript NextDocumentWindow()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+Tab")
EndIf
EndScript
Script func_Control_Shift_Tab()
If g_aiBrowserFlag Then
PerformScript PreviousDocumentWindow()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Control+Shift+Tab")
EndIf
EndScript
Script MoveToNextSameElement()
If g_aiBrowserFlag Then
PerformScript MoveToNextSameElement()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_S()
If g_aiBrowserFlag Then
SayString("S")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("S")
EndScript
Script MoveToNextTable()
If g_aiBrowserFlag Then
PerformScript MoveToNextTable()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeCurrentScriptKey()
EndIf
EndScript
Script func_T()
If g_aiBrowserFlag Then
SayString("T")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("T")
EndScript
Script func_Alt_Control_T()
If g_aiBrowserFlag Then
SayString("Alt+Control+T")
EndIf
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Alt+Control+T")
EndScript
Script func_Backspace()
If g_aiBrowserFlag Then
PerformScript JAWSBackspace()
Else
If g_aiBrowserSayAllFlag Then
PerformScript AiBrowserSayAllOff()
SendaiBrowserMessage(1)
Delay(5, 1)
EndIf
TypeKey("Backspace")
EndIf
EndScript