[jawsscripts] Re: chat client
- From: "inthaneelf" <inthaneelf@xxxxxxxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Thu, 24 Jul 2008 16:17:38 -0700
I'm not a script writer, but I have some notions, I'll wait until other
better scripter's have spoken, but if you don't get an answer that works,
give me a "tap on the shoulder" so to say, and I'll pass along my ideas,
good luck,
inthane
. For Blind Programming assistance, Information, Useful Programs, and Links
to Jamal Mazrui's Text tutorial packages and Applications, visit me at:
http://grabbag.alacorncomputer.com
. to be able to view a simple programming project in several programming
languages, visit the Fruit basket demo site at:
http://fruitbasketdemo.alacorncomputer.com
. for a blind user friendly Chat, go take a look at:
http://www.icedirc.com/
----- Original Message -----
From: "The dark Count" <darkcount1@xxxxxxxxx>
To: <jawsscripts@xxxxxxxxxxxxx>
Sent: Thursday, July 24, 2008 11:49 AM
Subject: [jawsscripts] chat client
> Hello all.
> I have been working with a little chat client which does not read messages
> as they come in.
>
> I have been able to make the messages speak by modifying the say non
> highlighted text event. Now I am running into the problem of messages at
> times being repeated so that the last message repeats before the newest
> reads.
>
> The second problem is that when I alt tab away from the application and
> switch back to it the function triggers and the whole message window
> starts being read.
>
> Here is the function in hopes somebody has suggestions as to how to solve
> these problems.
>
> tia
>
> D C
> ;globals
> string prevstatus,
> string ms1
>
> Void Function SayNonHighlightedText (handle hwnd, string buffer)
> var
> int mycontrol
> let mycontrol=GetControlID (hwnd)
> If ClearSuppression () == 1 Then
> return
> EndIf
> ;read nonhighlighted text in other echo modes
> If (GetScreenEcho ()> 1) Then
> Say (buffer, OT_buffer)
> EndIf
> ;intercept and speak messages in chat window
> ;window where text is
> if (mycontrol == 1204) Then
> ;code to capture and compare messages as they come in
> If (prevstatus != buffer) Then
> Say (buffer, OT_buffer)
> let prevstatus =buffer
> ;saving text of last message to be used in another script
> let ms1 = buffer
> EndIf
> EndIf
> EndFunction
>
> Code ends.
>
>
> __________
> View the list's information and change your settings at
> //www.freelists.org/list/jawsscripts
>
>
__________
View the list's information and change your settings at
//www.freelists.org/list/jawsscripts
Other related posts:
