help with anoying problem (tray and other things not work together)

[nsstudios]

hello, i have a problem with my code. I just went to create a program which will throo screenreaders or Sapi com say if and when clipboard changes and to say clipboard contents. But it won't work together, if i configure it to tray work, then another part won't work, it just checks if $cbc variable is $clipb which is $clipb = clipget(). Here is a code

(in this way, i think that just part with clipboard works not with tray)

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <EditConstants.au3>

#include <StaticConstants.au3>

#include <misc.au3>

$cbc = ""

$clipb = ""

$v = ObjCreate("Say.Tools")

TraySetToolTip("clipboard agent")

Opt("TrayMenuMode",1)

$arace = TrayCreateItem("Arace clipboard", -1, -1, 1)

$about = TrayCreateItem("about", -1, -1, 1)

$website = TrayCreateItem("website", -1, -1, 1)

$checkforupdate = TrayCreateItem("check for the updates", -1, -1, 1)

$exitca = TrayCreateItem("exit", -1, -1, 1)

$msg = TrayGetMsg()

$v.say("Welcome to the clipboard agent!")

while 1

$cbc = $clipb

$clipb = clipGet()

if $msg = 0 then

ContinueLoop

endif

if $msg = $arace then

clipput("")

$v.say("Clipboard araced!")

endif

if $msg = $about then

msgbox (64, "About clipboard agent","Clipboard agent ©© NS studios, all rights reserved! The clipboard agent is a program which monitors a clipboard content. It uses to speak primerly screenreaders if any of supported is active, if not, it speaks throo Sapi. Supported screenreaders are: NVDA, JAWS for windows, window-eyes, System access, and Sapi.")

endif

if $msg = $website then

shellexecute (@WindowsDir&"\explorer.exe", "http://www.nsstudios.tk/")

endif

if $msg = $checkforupdate then

;shellexecute (@ScriptDir&"\updater.exe")

endif

if $msg = $exitca then

$v.say("Exiting clipboard agent!")

exit

endif

if not $cbc = $clipb then

$cbc = $clipb

$v.say("clipboard agent: Clipboard changed to "&$cbc&"!")

endif

continueloop

wend

if you want, you can download a full program here

http://dl.dropbox.com/u/21506578/clipboard_agent.zip

[jaberwacky]

ObjCreate fails: Global $v = ObjCreate("SayIt")

Also, put this in your while loop: $msg = TrayGetMsg()

[nsstudios]

hello, i tryed everything, but when tray part works, another one will stop working. You must download full program from the link posted in my earlyer post, because there is library which i used. You must register com server lib.dll in lib folder dooing for example "regsvr32.exe c:\clipboard agent\lib\lib.dll" and now you can use it.

You can add me to the skype: nikola.stojsic

aim: nikolastojsic

twitter: nsstudios1

[AutoBert]

hello, i tryed everything, but when tray part works, another one will stop working. You must download full program

No we must'nt. You are the one who needs help, so put your source to the post.

[nsstudios]

ok.

well in the zip file are au3 source, and folder lib.

You need to register lib.dll from folder lib in order to program works. You can do it for example:

regsvr32.exe c:\program files\clipboard agent\lib\lib.dll

and then you can try.

I don't know what's a problem here, because i must give you it via link.

I n the link is source

[nsstudios]

the just one problem is that $msg = traygetmsg() poses script execution, which is an autoit 3 bug i think so. Same problem is with gui get msg

[Melba23]

nsstudios,

one problem is that $msg = traygetmsg() poses script execution, which is an autoit 3 bug i think so. Same problem is with gui get msg

Think again!

Those functions do not "pause the script". They do have a built-in sleep period (up to a maximum of about 10-12 ms) but that is to reduce the CPU load when the system is idle and is barely noticable by humans.

M23