Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Message or alert
Message
From
16/12/2008 04:14:47
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Message or alert
Miscellaneous
Thread ID:
01367752
Message ID:
01367752
Views:
57
hi all,
i try to use this code below to sent amessage for users pc,
any help to fixet


**activate procedure
If Not Used('trans1')
USE trans1.dbf Alias trans1 Again In 0 Shared
Endif

SELECT trans1

DO mac1
*? dnshostname
IF trans1.fexerno=3207 AND trans1.mark1=0 AND dnshostname="mohammadqasem"
IF trans1.fexerno=2610 AND trans1.mark1=0 AND dnshostname="Tareq-Top"
IF trans1.fexerno=3401 AND trans1.mark1=0 AND dnshostname="mohammed.ks"
IF trans1.fexerno=2011 AND trans1.mark1=0 AND dnshostname="a-momy"

loSpeak = CREATEOBJECT("SAPI.SPVoice")
loSpeak.Voice = loSpeak.GetVoices().Item(0) && set the voice

* FOR i=1 TO 10
loSpeak.SPEAK('you have a message')
MESSAGEBOX("you have a message")


*next
endif
endif
endif
endif

/pre>
thanks
Next
Reply
Map
View

Click here to load this message in the networking platform