Script NotificationOverNetworkStartStop ()
var
	int nTimesPressed
DeleteFile ("c:\\users\\YourUserName\\Dropbox\\JAWSSpeechHistory\\Notify.txt")
let nTimesPressed=IsSameScript ()
if (nTimesPressed>=1) then
NotificationWriteStop ()
SayString ("JAWS Speech History Notifications Over Network, Stopped.")
Else
NotificationWriteStart ()
SayString ("JAWS Speech History Notifications Over Network, Started.")
ClearSpeechHistory ()
EndIf
EndScript
Void Function NotificationWriteStart ()
ScheduleFunction ("NotificationWriteStart", 10)
let notify = 0
Delay (10)
let notify = ReadStringFromFile ("c:\\users\\YourUserName\\Dropbox\\JAWSSpeechHistory\\Notify.txt")
If Notify==4
then
Delay (10)
WriteNotificationToTextFile ()
Else
EndIf
EndFunction

Void Function WriteNotificationToTextFile ()
var
string history
DeleteFile ("c:\\users\\YourUserName\\dropbox\\JAWSSpeechHistory\\sh.txt")
Delay (10)
WriteFileFromString ("Speech History \n", "c:\\users\\YourUserName\\dropbox\\JAWSSpeechHistory\\sh.txt")
Delay (10)
PerformScript CopySpeechHistoryToClipboard ()
delay (10)
let history = GetClipboardText ()
Delay (10)
AppendStringToFile (history, "c:\\users\\YourUserName\\dropbox\\JAWSSpeechHistory\\sh.txt")
Delay (10)
DeleteFile ("c:\\users\\YourUserName\\Dropbox\\JAWSSpeechHistory\\Notify.txt")
EndFunction
Void Function NotificationWriteStop ()
let notify = ScheduleFunction ("NotificationWriteStart", 10)
UnscheduleFunction (notify)
EndFunction
Object Function ObjectCreate (string S_Object)
Var
Object o_return
Let o_return =CreateObjectEx (s_object, True)
;SayString ("first")
If !o_return Then
Let o_return =CreateObjectEx(s_object, False)
;SayString ("second")
EndIf
If !o_return Then
Let o_return =GetObject(s_object)
;SayString ("third")
EndIf
Return o_return
EndFunction
String Function ReadStringFromFile (string S_File)
Var
Object Null,
Object o_system,
Object o_file,
String s_return
Let o_system =ObjectCreate("Scripting.FilesystemObject")
Let o_file =o_system.OpenTextFile(s_file, 1, 0)
Let s_return =o_file.ReadAll()
o_file.close()
Let o_file =Null
Let o_system =Null
Return s_return
EndFunction
Int Function WriteFileFromString (string S_Text, string S_File)
Var
Object Null,
Object o_system,
Object o_file
Let o_system =ObjectCreate("Scripting.FilesystemObject")
Let o_file =o_system.CreateTextFile(s_file, 1, 0)
o_file.write(s_text)
o_file.close()
Let o_file =Null
Let o_system =Null
EndFunction
Int Function AppendStringToFile (string S_Text, string S_File)
; *** this function *ONLY* appends to already existing files. use 
; WriteFileFromString to create the file
; each append adds to the previous record without line breaks etc
Var
Object Null,
Object o_system,
Object o_file
Let o_system =ObjectCreate("Scripting.FilesystemObject")
Let o_file =o_system.OpenTextFile (s_file, 8, 0)
o_file.write (s_text)
o_file.close()
Let o_file =Null
Let o_system =Null
EndFunction