Hi,
I first got this script from Derick Lane.
I have modified it a little.
For some reason, I cant get it to work with one key stroke.
You will need two key strokes.
1. Press alt+1
2. press the second key stroke, I use ctrl+Shift+8
First of all, You will have to modify the Read From Field Script as follows.
Script ReadFromField ()
ReadHeaderControl (from_field4);
RightMouseButton()
delay(3)
{C}
EndScript
Next you need to modify the Read Header Control Script as follows.
Void Function ReadHeaderControl (int controlId)
var
handle winHandle
let winHandle = GetHeaderControl (controlId)
if (winHandle && IsWindowVisible (winHandle)) then
;if IsSameScript () then
FocusWindow (winHandle)
;return
EndIf
;ReadPrompt (controlId)
;if (GetWindowSubTypeCode (winHandle) == wt_checkbox) then
; SayWindowTypeAndText (winHandle)
;else
; SayWindow (winHandle, read_everything)
;EndIf
; if (GetVerbosity () == beginner) then
; Say(msg1, ot_message); " Press twice to edit "
; EndIf
;else
; ControlNotFound (controlId)
;EndIf
EndFunction
Now you are ready to add the last script.
Script PrivateMessage ()
; lets you send private messages to people on the fly!
; written by Derek Lane.
;Modified by [EMAIL PROTECTED]
;On Sunday, July 18, 1999
SpeechOff ()
Pause()
{ctrl+n}
Pause ()
{ctrl+v}
SpeechOn ()
EndScript
Please set punctiation to all while reading this message so you will hear
all the semicolons in the scripts.
Thanks,
Rob
[EMAIL PROTECTED]
Visit The ShoutMail Directory At
http://www.megagate.com/~mcrob/smd.html
-
Visit the jfw ml web page: http://jfw.cjb.net
