home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
net.zip
/
net_mail
/
main
/
form.1
< prev
next >
Wrap
Text File
|
1994-02-04
|
1KB
|
39 lines
Arg window
CALL VpWindow window,'DISABLESTDIO'
/* create the queue and set it for use */
id= RxQueue('Create')
call RxQueue 'SET', id
/* the output of the net who command will be placed in the queue */
address cmd 'net who | RXQUEUE' id
/* pull the domain name out of the queue */
parse pull nul nul nul domain
/* Set item value DOMAIN Text */
CALL VpSetItemValue window,'DOMAIN',domain
/* the next 3 items in the queue won't be needed */
do i = 1 to 3 by 1
parse pull nul
end
/* pull the user names out of the queue until the queue is empty */
do queued()
parse pull data userid null
if data <> 'The' then
/* Add item to end Combo Box */
index=VpAddItem(window, 1006, 'END', strip(userid))
end
/* the asterisk argument will send the message to all users on the lan */
/* Add an item at beginning Combo Box */
index=VpAddItem(window, 1006, 'BEGIN', '*')
/* load the lan resource icon */
value = VpLoadPicture('RESICON',1000)
/* Set item value #1 Graphic */
CALL VpSetItemValue window,1009,value