home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
q_watch
/
qwatch.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-05-15
|
12KB
|
174 lines
QWatch
Queue Watch
Form1
Label3
&Server
Server
Frame1
Warning Levels
Green
Label2
0 Jobs
Yellow
YellowLevel
Label4
RedLevel
Label5
Queue
wwww|
wwwww
wwww|
wwwww~
""""""""""
Label6
Queues
Watch
Label1
Watch
AppIcon
WakeUp
mFile
&File
mExit
E&xit
mSeperator2
mAbout
&About...
Option1_Click
Text1_Change
Text1_LinkError>
LinkErr
Text1_LinkOpen
Cancel
Frame1_DragDrop
Source
Form_Click
Command2_Click9
Command1_Clickm
Queue(
Combo1_ChangeY
Combo2_ChangeI
Combo2_ClickC
Combo2_DblClicky
Combo2_DragDrop
Combo2_DragOver
State
Picture1_Click
Picture4_Click
Picture5_ClickO
QWatch
mExit_Click
Index)
Form_Load
NetServerEnum2
Servers
nResult.
nEntriesy
nTotal
nSize
szServer+
szDomainn
nLevel
nTypes
lTypes
verEnum2d
files4
szServers
parse3
nParse
nStartB
Server
nIndexb
Timer1_Timer
Label1_Click
Watch_Click
Label1_DblClick
ExitSub
WakeUpR
Interval
Modeo
WindowState\
WakeUp_Timer
lStart
PictureV
Green
Caption
Form_Paint
AppIcon
nAppIcon
Share
Share_Info
NetShareEnum
szCaption
name"
szname
nType
nShareP
DosPrintQEnum
PRQINFO'
nQueueo
nJobs
YellowLevel
RedLevel
elseIfIf
nStatusD
ExitWakeUp
nWarning
nPreviousWarning
nNewWarning
ThennNewWarning
Yellow
DosPrintQGetInfo
lpPath
nNeeded8
Form_KeyDown
KeyCode`
Shift
Form_KeyPress
KeyAscii
PRQJINFO
Label6_Click
Queue_Click
Queues
ExitWatchClick
Warning
mExit_Click
close application by unloading the main form
Form_Load
query network for list of servers-
parse results returned in szServers-
search for ASCIIZ null terminator-
use the AddItem Method to add server name to the server list box
Label1_Click
allow clicking on the picture text(Watch) by invoking the picture-
Watch_Click
verify selection of a server
No Server Selected."
Begin Watch"
set window title to server name-
set initial warning state to green and establish the icon-
minimize application
set the timer to wake up every 5 seconds
WakeUp_Timer
check whether application is in watch mode or just coming out of it
query specified server for a list of shared resources-
if shared resource is a print queue then get information
check if printer pauseds
check if printer offline
'*----------------------*
check if jobs exceed specified levels-
update application icon if warning state has changed
Form_Paint
determine if being restored from a 'Watch' state
de-activate timer-
reset window title from server name to application name-
Queue Watch"
reset window icon from server warning state to application icon-
immediately invoke queues window if warning is yellow or red -
Label6_Click
allow clicking on the picture text(Queues) by invoking the picture
Queue_Click
verify selection of a server and invoke the queues window-
No Server Selected."
Show Queues"