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"