WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Job Manager Example

Keywords: 	 Job Manager Example add remove

;Note.  This code uses a trick making it non-compilable with the WinBatch Compiler
goto top
[Jobs]

Software List=notepad.exe,d:\Admins\Software.txt
S/N's=notepad.exe,d:\Admins\serials.txt
People's Info=notepad.exe,d:\Admins\People.txt
Temp=notepad.exe,d:\Admins\Temp.txt
Notes=notepad.exe,d:\Admins\Notes.txt
Web Sites/FTP=notepad.exe,d:\Admins\Web.txt
WinBatch Notes=notepad.exe,d:\Admins\WinBatch.txt
WinBatch.exe=C:\Program Files\WinBatch\SYSTEM\Winbat~1.exe,
Hotmail=D:\My Docs\Cool\!Passw~1.wbt,





[Dummy]
:top
IntControl(62, -2 ,0 ,0 ,0)
THISWBTFILE=IntControl(1004,0,0,0,0)
gosub getlist


while 1
templist=list

MyDialogFormat=`WWWDLGED,5.0`

MyDialogCaption=`WIL Dialog`
MyDialogX=58
MyDialogY=108
MyDialogWidth=152
MyDialogHeight=188
MyDialogNumControls=5

MyDialog01=`8,11,134,128,ITEMBOX,templist,DEFAULT`
MyDialog02=`11,142,51,DEFAULT,PUSHBUTTON,DEFAULT,"&Open",1`
MyDialog03=`86,142,51,DEFAULT,PUSHBUTTON,DEFAULT,"&Cancel",0`
MyDialog04=`11,163,51,DEFAULT,PUSHBUTTON,DEFAULT,"&Add",2`
MyDialog05=`86,163,51,DEFAULT,PUSHBUTTON,DEFAULT,"&Remove",3`

ButtonPushed=Dialog("MyDialog")

switch ButtonPushed

case 1    ; OPEN pushed
gosub DoOpen
break

case 2    ; gosub Add
gosub DoAdd
break

case 3
gosub  DoRemove
break

endswitch


EndWhile
exit

;;;;;;;;;;;;;;; SUBROUTINES;;;;;;;;;;;;;;;;;;;;;;
:DoAdd
newTitle=AskLine("JobManager","Enter title of job","")
newjob=AskLine("JobManager","Enter command line (with comma!)","notepad.exe, c:\xxx.txt")
IniWritePvt("Jobs",newtitle,newjob,THISWBTFILE)
gosub getlist
return

:DoRemove
count=ItemCount(templist,@tab)
for xx=1 to count
thisitem=ItemExtract(xx,templist,@tab)
IniDeletePvt("Jobs",thisitem,THISWBTFILE)
next
gosub getlist
return

:DoOpen
count=ItemCount(templist,@tab)
for xx=1 to count
thisitem=ItemExtract(xx,templist,@tab)
linedata=IniReadPvt("Jobs",thisitem,0,THISWBTFILE)
if linedata==0 then continue
thisexe=ItemExtract(1,linedata,",")
thisparam=ItemExtract(2,linedata,",")
Run(thisexe,thisparam)
next
return

:GetList
list=IniItemizePvt("Jobs",THISWBTFILE)
return


Article ID:   W14293
Filename:   Job Manager Example.txt
File Created: 1999:10:26:11:23:08
Last Updated: 1999:10:26:11:23:08