Thank you Mike! I changed the return variable to vRetVal. It's really cool and non-flickering now!
It seems there is a maximum length to the message in NET SEND. I was hoping to also format (add CR/LF) to make the message really meaningful. But it's probably wishful thinking since this is sort of a primitive way to communicate... If anyone has information otherwise, I would appreciate it. TIA, Claudine -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of MikeB Sent: Sunday, October 26, 2008 6:40 AM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8 There is a small non-showStopping faux pas in the snippet. The variable vRetVal should be used in place of the variable vi as the return value for the DLCall as vi was never declared. ShellExecute returns an HINSTANCE which can be cast to an Integer. To see how the way it relates to use in RBase code to how it is Declared for use in the Win API go here: http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx the MSDN (MicroSoft Developers Network) library which is the treasure trove of every developer on the planet, has the (published) innerworkings of all versions of Windows. Notice the reversal of the argument List specifically. ----- Original Message ----- From: "Claudine Robbins" <[EMAIL PROTECTED]> To: "RBASE-L Mailing List" <[email protected]> Sent: Saturday, October 25, 2008 11:15 PM Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8 > I'll be glad to. Thanks Mike. I actually understand this! > > Claudine > > -----Original Message----- > From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of MikeB > Sent: Saturday, October 25, 2008 6:56 PM > To: RBASE-L Mailing List > Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8 > > Then for the "No Flicker version" you would do this: > > SET VAR nShowCmd Integer = 0 { SW_HIDE } > SET VAR lpDirectory TEXT = NULL > SET VAR lpParameters TEXT = NULL > SET VAR lpFile TEXT = 'netsend.bat' > SET VAR lpOperation TEXT = 'open' > SET VAR HWND Integer = 0 { since it runs hidden, pass HWND as null } > > SET VAR vRetVal Integer = NULL > > IF (chkfunc('ShellExecuteA')) = 0 THEN > STDCALL function 'ShellExecuteA' ALIAS 'ShellExecute' + > (Integer, ptr TEXT (256), ptr TEXT (128), + > ptr TEXT (128), ptr TEXT (32), Integer) : Integer > ENDIF > > DELETE netsend.bat > SET VAR vmess TEXT = ('Hello World!' & (ctxt(.#NOW))) > SET VAR vnetsend = ('NET SEND *' & .vmess) > OUTPUT netsend.bat > WRITE .vnetsend > OUTPUT SCREEN > > SET VAR vi = (dlcall('shell32', 'ShellExecuteA', + > nShowCmd, lpDirectory, lpParameters, lpFile, lpOperation, HWND)) > > RETURN > > > > ----- Original Message ----- > From: "Claudine Robbins" <[EMAIL PROTECTED]> > To: "RBASE-L Mailing List" <[email protected]> > Sent: Saturday, October 25, 2008 5:56 PM > Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8 > > >> OK, I got it. Here is my baby steps routine for now: >> >> >> >> DELETE netsend.bat >> >> SET VAR vmess TEXT = ('Hello World!' & (ctxt(.#NOW))) >> >> SET VAR vnetsend = ('NET SEND *' & .vmess) >> >> OUTPUT netsend.bat >> >> WRITE .vnetsend >> >> OUTPUT SCREEN >> >> LAUNCH netsend.bat >> >> RETURN >> >> >> >> >> >> _____ >> >> From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Claudine >> Robbins >> Sent: Saturday, October 25, 2008 12:00 PM >> To: RBASE-L Mailing List >> Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8 >> >> >> >> Emmitt, >> >> >> >> I'm not sure I understand. Do you mean that I can: >> >> >> >> SET VAR MESSAGE = 'This is my message' >> >> >> >> And then issue NET SEND %MESSAGE%? >> >> >> >> Claudine >> >> >> >> _____ >> >> From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Emmitt > Dove >> Sent: Saturday, October 25, 2008 11:44 AM >> To: RBASE-L Mailing List >> Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8 >> >> >> >> Claudine, >> >> >> >> Use R:BASE to write a .CMD file, say NETMSG.CMD, and substitute for the >> variables. Then: >> >> >> >> LAUNCH netmsg.cmd >> >> >> >> Emmitt Dove >> >> Manager, DairyPak Business Systems >> >> Evergreen Packaging, Inc. >> >> [EMAIL PROTECTED] >> >> (203) 214-5683 m >> >> (203) 643-8022 o >> >> (203) 643-8086 f >> >> [EMAIL PROTECTED] >> >> >> >> From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Claudine >> Robbins >> Sent: Saturday, October 25, 2008 11:05 AM >> To: RBASE-L Mailing List >> Subject: [RBASE-L] - NET SEND Message to users from within R:BASE V8 >> >> >> >> Frank Taylor got me good and started on this path and I have setup my > three >> users to receive NET SEND messages and have tested them -real easy. >> >> >> >> My question now is how do I customize the message by using R:BASE > variables >> in the NET SEND command? >> >> >> >> NET SEND %RECIPIENT% From %FULLNAME%, %MESSAGE% >> >> >> >> Any ideas? >> >> >> >> Thank you! >> >> >> >> Claudine >> >> > > > --- RBASE-L ================================================ TO POST A MESSAGE TO ALL MEMBERS: Send a plain text email to [email protected] (Don't use any of these words as your Subject: INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH, REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP) ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [email protected] In the message SUBJECT, put just one word: INTRO ================================================ TO UNSUBSCRIBE: Send a plain text email to [email protected] In the message SUBJECT, put just one word: UNSUBSCRIBE ================================================ TO SEARCH ARCHIVES: Send a plain text email to [email protected] In the message SUBJECT, put just one word: SEARCH-n (where n is the number of days). In the message body, place any text to search for. ================================================
