Makes you long for the days of Lantastic.....
----- Original Message ----- From: "Claudine Robbins" <[EMAIL PROTECTED]> To: "RBASE-L Mailing List" <[email protected]> Sent: Sunday, October 26, 2008 5:14 PM Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8 > 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. > ================================================ > > >
