Code : Tout sélectionner
...voir ci dessous...Code : Tout sélectionner
...voir ci dessous...Code : Tout sélectionner
;-
;- http://msdn2.microsoft.com/en-us/library/aa446828.aspx
;-
#CLSCTX_INPROC_SERVER = 1
#COR_E_FILENOTFOUND = $80070002
#TASK_TRIGGER_FLAG_HAS_END_DATE = $1
Enumeration 0 ; TriggerType
#TASK_TIME_TRIGGER_ONCE = 0
#TASK_TIME_TRIGGER_DAILY = 1
#TASK_TIME_TRIGGER_WEEKLY = 2
#TASK_TIME_TRIGGER_MONTHLYDATE = 3
#TASK_TIME_TRIGGER_MONTHLYDOW = 4
#TASK_EVENT_TRIGGER_ON_IDLE = 5
#TASK_EVENT_TRIGGER_AT_SYSTEMSTART = 6
#TASK_EVENT_TRIGGER_AT_LOGON = 7
EndEnumeration
Interface IEnumWorkItems Extends IUnknown
Next(a.l, b.l, c.l)
Skip(a.l)
Reset()
Clone(a.l)
EndInterface
Interface IProvideTaskPage Extends IUnknown
GetPage(tpType.l, fPersistChanges.l, phPage.l)
EndInterface
Interface IScheduledWorkItem Extends IUnknown ; http://msdn2.microsoft.com/en-us/library/aa381216.aspx
CreateTrigger(piNewTrigger.l, ppTrigger.l) ;Creates a trigger using a work item object.
DeleteTrigger(iTrigger.l) ;Deletes a trigger from a work item.
GetTriggerCount(plCount.l) ;Retrieves the number of triggers associated With a work item.
GetTrigger(iTrigger.l, ppTrigger.l) ;Retrieves a trigger Structure.
GetTriggerString(iTrigger.l, ppwszTrigger.l) ;Retrieves a trigger string.
GetRunTimes(pstBegin.l, pstEnd.l, pCount.l, rgstTaskTimes.l) ;Retrieves the work item run times For a specified time period.
GetNextRunTime(pstNextRun.l) ;Retrieves the Next time the work item will run.
SetIdleWait(wIdleMinutes.l, wDeadlineMinutes.l) ;Sets the idle wait time For the work item.
GetIdleWait(pwIdleMinutes.l, pwDeadlineMinutes.l) ;Retrieves the idle wait time For the work item.
Run() ;Runs the work item.
Terminate() ;Ends the execution of the work item.
EditWorkItem(hParent.l, dwReserved.l) ;Opens the configuration properties For the work item.
GetMostRecentRunTime(pstLastRun.l) ;Retrieves the most recent time the work item began running.
GetStatus(phrStatus.l) ;Retrieves the status of the work item.
GetExitCode(pdwExitCode.l) ;Retrieves the work item's last exit code.
SetComment(pwszComment.l) ;Sets the comment For the work item.
GetComment(ppwszComment.l) ;Retrieves the comment For the work item.
SetCreator(pwszCreator.l) ;Sets the creator of the work item.
GetCreator(ppwszCreator.l) ;Retrieves the creator of the work item.
SetWorkItemData(cBytes.l, rgbData.l) ;Stores application-defined Data associated With the work item.
GetWorkItemData(pcBytes.l, ppBytes.l) ;Retrieves application-defined Data associated With the work item.
SetErrorRetryCount(wRetryCount.l) ;Not currently implemented.
GetErrorRetryCount(pwRetryCount.l) ;Not currently implemented.
SetErrorRetryInterval(wRetryInterval.l) ;Not currently implemented.
GetErrorRetryInterval(pwRetryInterval.l) ;Not currently implemented.
SetFlags(dwFlags.l) ;Sets the flags that modify the behavior of the work item.
GetFlags(pdwFlags.l) ;Retrieves the flags that modify the behavior of the work item.
SetAccountInformation(pwszAccountName.l, pwszPassword.l) ;Sets the account name And password For the work item.
GetAccountInformation(ppwszAccountName.l) ;Retrieves the account name For the work item.
EndInterface
Interface ITaskScheduler Extends IUnknown ; http://msdn2.microsoft.com/en-us/library/aa381811.aspx
SetTargetComputer(a.l)
GetTargetComputer(a.l)
Enum(a.l)
Activate(Name.p-bstr, b.l, c.l)
Delete(a.l)
NewWorkItem(Name.p-bstr, b.l, c.l, d.l)
AddWorkItem(a.l, b.l)
IsOfType(a.l, b.l)
EndInterface
Interface ITask Extends IUnknown ; http://msdn2.microsoft.com/en-us/library/aa381311.aspx
CreateTrigger(a.l, b.l)
DeleteTrigger(a.l)
GetTriggerCount(a.l)
GetTrigger(a.l, b.l)
GetTriggerString(a.l, b.l)
GetRunTimes(a.l, b.l, c.l, d.l)
GetNextRunTime(a.l)
SetIdleWait(a.l, b.l)
GetIdleWait(a.l, b.l)
Run()
Terminate()
EditWorkItem(a.l, b.l)
GetMostRecentRunTime(a.l)
GetStatus(a.l)
GetExitCode(a.l)
SetComment(a.l)
GetComment(a.l)
SetCreator(a.l)
GetCreator(a.l)
SetWorkItemData(a.l, b.l)
GetWorkItemData(a.l, b.l)
SetErrorRetryCount(a.l)
GetErrorRetryCount(a.l)
SetErrorRetryInterval(a.l)
GetErrorRetryInterval(a.l)
SetFlags(a.l)
GetFlags(a.l)
SetAccountInformation(a.l, b.l)
GetAccountInformation(a.l)
SetApplicationName(a.l)
GetApplicationName(a.l)
SetParameters(a.l)
GetParameters(a.l)
SetWorkingDirectory(a.l)
GetWorkingDirectory(a.l)
SetPriority(a.l)
GetPriority(a.l)
SetTaskFlags(a.l)
GetTaskFlags(a.l)
SetMaxRunTime(a.l)
GetMaxRunTime(a.l)
EndInterface
Interface ITaskTrigger Extends IUnknown ; http://msdn2.microsoft.com/en-us/library/aa381864.aspx
SetTrigger(pTrigger.l) ;Sets the task trigger values.
GetTrigger(pTrigger.l) ;Retrieves the current task trigger.
GetTriggerString(ppwszTrigger.l) ;Retrieves the current task trigger in the form of a string.
EndInterface
Structure DAILY
DaysInterval.w
EndStructure
Structure WEEKLY
WeeksInterval.w
rgfDaysOfTheWeek.w
EndStructure
Structure MONTHLYDATE
rgfDays.l
rgfMonths.w
EndStructure
Structure MONTHLYDOW
wWhichWeek.w
rgfDaysOfTheWeek.w
rgfMonths.w
EndStructure
Structure TRIGGER_TYPE_UNION
StructureUnion
Daily.DAILY
Weekly.WEEKLY
MonthlyDate.MONTHLYDATE
MonthlyDOW.MONTHLYDOW
EndStructureUnion
EndStructure
Structure TASK_TRIGGER
cbTriggerSize.w
Reserved1.w
wBeginYear.w
wBeginMonth.w
wBeginDay.w
wEndYear.w
wEndMonth.w
wEndDay.w
wStartHour.w
wStartMinute.w
MinutesDuration.l
MinutesInterval.l
rgFlags.l
TriggerType.l ; TASK_TRIGGER_TYPE = Byte (0->7)
Type.TRIGGER_TYPE_UNION
Reserved2.w
wRandomMinutesInterval.w
EndStructure
Macro FAILED(hr)
(hr <> #S_OK)
EndMacro
Macro SUCCEEDED(hr)
(hr = #S_OK)
EndMacro
Procedure.l main()
Protected hr.l
Protected pITS.ITaskScheduler
Protected pITask.ITask
Protected pITaskTrigger.ITaskTrigger
Protected piNewTrigger.w
Protected pTrigger.TASK_TRIGGER
Protected pIPersistFile.IPersistFile
;///////////////////////////////////////////////////////////////////
;// Call CoInitialize to initialize the COM library and then
;// Call CoCreateInstance to get the Task Scheduler object.
;///////////////////////////////////////////////////////////////////
hr = CoInitialize_(#Null)
If (SUCCEEDED(hr))
hr = CoCreateInstance_(?CLSID_CTaskScheduler, #Null, #CLSCTX_INPROC_SERVER, ?IID_ITaskScheduler, @pITS)
If (FAILED(hr))
CoUninitialize_()
ProcedureReturn 1
EndIf
Else
ProcedureReturn 1
EndIf
;///////////////////////////////////////////////////////////////////
;// Call ITaskScheduler::Activate to get the task object.
;///////////////////////////////////////////////////////////////////
hr = pITS\Activate("Task Example", ?IID_ITask, @pITask)
pITS\Release()
If (FAILED(hr))
Debug "Failed calling ITaskScheduler::Activate: error = 0x" + Hex(hr)
CoUninitialize_()
ProcedureReturn 1
EndIf
;///////////////////////////////////////////////////////////////////
;// Call ITask::CreateTrigger to create new Trigger.
;///////////////////////////////////////////////////////////////////
hr = pITask\CreateTrigger(@piNewTrigger, @pITaskTrigger)
If (FAILED(hr))
Debug "Failed calling ITask::CreateTrigger: error = 0x" + Hex(hr)
pITask\Release()
CoUninitialize_()
ProcedureReturn 1
EndIf
Protected Trigger.ITaskTrigger
Protected TaskTrigger.TASK_TRIGGER
If pITask\GetTrigger(Num,@Trigger) = #S_OK
TaskTrigger\cbTriggerSize = SizeOf(TASK_TRIGGER)
Debug SizeOf(TASK_TRIGGER)
If Trigger\GetTrigger(@TaskTrigger) = #S_OK
Debug ""
Debug "----- TRIGGER -----Start"
Debug TaskTrigger\cbTriggerSize.w
Debug TaskTrigger\Reserved1.w
Debug TaskTrigger\wBeginYear.w
Debug TaskTrigger\wBeginMonth.w
Debug TaskTrigger\wBeginDay.w
Debug TaskTrigger\wEndYear.w
Debug TaskTrigger\wEndMonth.w
Debug TaskTrigger\wEndDay.w
Debug TaskTrigger\wStartHour.w
Debug TaskTrigger\wStartMinute.w
Debug TaskTrigger\MinutesDuration.l
Debug TaskTrigger\MinutesInterval.l
Debug TaskTrigger\rgFlags.l
Debug TaskTrigger\TriggerType.l ; TASK_TRIGGER_TYPE = Byte (0->7)
Select TaskTrigger\TriggerType.l
Case #TASK_TIME_TRIGGER_ONCE
; Type is ignored
Case #TASK_TIME_TRIGGER_DAILY
Debug TaskTrigger\Type\Daily\DaysInterval.w
Case #TASK_TIME_TRIGGER_WEEKLY
Debug TaskTrigger\Type\Weekly\WeeksInterval
Debug TaskTrigger\Type\Weekly\rgfDaysOfTheWeek
Case #TASK_TIME_TRIGGER_MONTHLYDATE
Debug TaskTrigger\Type\MonthlyDate\rgfDays
Debug TaskTrigger\Type\MonthlyDate\rgfMonths
Case #TASK_TIME_TRIGGER_MONTHLYDOW
Debug TaskTrigger\Type\MonthlyDOW\wWhichWeek
Debug TaskTrigger\Type\MonthlyDOW\rgfDaysOfTheWeek
Debug TaskTrigger\Type\MonthlyDOW\rgfMonths
Case #TASK_EVENT_TRIGGER_ON_IDLE
; the wStartHour, wStartMinute, and Type member are ignored
Case #TASK_EVENT_TRIGGER_AT_SYSTEMSTART
; Type is ignored
Case #TASK_EVENT_TRIGGER_AT_LOGON
; Type is ignored
EndSelect
Debug TaskTrigger\Type.TRIGGER_TYPE_UNION
Debug TaskTrigger\Reserved2.w
Debug TaskTrigger\wRandomMinutesInterval.w
Debug "----- TRIGGER -----End"
Debug ""
EndIf
Else
ProcedureReturn -1
EndIf
;//////////////////////////////////////////////////////
;// Define TASK_TRIGGER Structure. Note that wBeginDay,
;// wBeginMonth, and wBeginYear must be set to a valid
;// day, month, and year respectively.
;//////////////////////////////////////////////////////
ZeroMemory_(@pTrigger, SizeOf(TASK_TRIGGER))
Debug SizeOf(TASK_TRIGGER)
;// Add code To set Trigger Structure ?
pTrigger\wBeginDay = 1 ; // Required
pTrigger\wBeginMonth = 1 ; // Required
pTrigger\wBeginYear = 1999 ; // Required
pTrigger\cbTriggerSize = SizeOf(TASK_TRIGGER)
pTrigger\wStartHour = 13
pTrigger\TriggerType = #TASK_TIME_TRIGGER_DAILY
pTrigger\Type\Daily\DaysInterval = 1
;///////////////////////////////////////////////////////////////////
;// Call ITaskTrigger::SetTrigger To set Trigger criteria.
;///////////////////////////////////////////////////////////////////
hr = pITaskTrigger\SetTrigger(@pTrigger)
If (FAILED(hr))
Debug "Failed calling ITaskTrigger::SetTrigger: error = 0x" + Hex(hr)
pITask\Release()
pITaskTrigger\Release()
CoUninitialize_()
ProcedureReturn 1
EndIf
;///////////////////////////////////////////////////////////////////
;// Call IPersistFile::Save to save Trigger to disk.
;///////////////////////////////////////////////////////////////////
hr = pITask\QueryInterface(?IID_IPersistFile, @pIPersistFile)
hr = pIPersistFile\Save(#Null, #True)
If (FAILED(hr))
Debug "Failed calling IPersistFile::Save: error = 0x" + Hex(hr)
pITask\Release()
pITaskTrigger\Release()
pIPersistFile\Release()
CoUninitialize_()
ProcedureReturn 1
EndIf
Debug "The trigger was created and IPersistFile::Save was"
Debug "called to save the new trigger to disk."
;///////////////////////////////////////////////////////////////////
;// Release resources.
;///////////////////////////////////////////////////////////////////
pITask\Release()
pITaskTrigger\Release()
pIPersistFile\Release()
CoUninitialize_()
ProcedureReturn 0
EndProcedure
Debug main()
DataSection ;{
CLSID_CTask : ; {148BD520-A2AB-11CE-B11F-00AA00530503}
Data.l $148BD520
Data.w $A2AB, $11CE
Data.b $B1, $1F, $00, $AA, $00, $53, $05, $03
CLSID_CTaskScheduler: ; {148BD52A-A2AB-11CE-B11F-00AA00530503}
Data.l $148BD52A
Data.w $A2AB, $11CE
Data.b $B1, $1F, $00, $AA, $00, $53, $05, $03
IID_IPersistFile: ; {0000010b-0000-0000-C000-000000000046}
Data.l $0000010B
Data.w $0000,$0000
Data.b $C0,$00,$00,$00,$00,$00,$00,$46
IID_ITask: ; {148BD524-A2AB-11CE-B11F-00AA00530503}
Data.l $148BD524
Data.w $A2AB, $11CE
Data.b $B1, $1F, $00, $AA, $00, $53, $05, $03
IID_ITaskScheduler: ; {148BD527-A2AB-11CE-B11F-00AA00530503}
Data.l $148BD527
Data.w $A2AB, $11CE
Data.b $B1, $1F, $00, $AA, $00, $53, $05, $03
EndDataSection ;} Code : Tout sélectionner
Structure TASK_TRIGGER
cbTriggerSize.w
Reserved1.w
wBeginYear.w
wBeginMonth.w
wBeginDay.w
wEndYear.w
wEndMonth.w
wEndDay.w
wStartHour.w
wStartMinute.w
MinutesDuration.l
MinutesInterval.l
rgFlags.l
TriggerType.l
Type.TRIGGER_TYPE_UNION
Reserved2.w
wRandomMinutesInterval.w
wAlignment.w
EndStructure
Code : Tout sélectionner
Structure DAILY
DaysInterval.w
wAlignment.w
EndStructure
Structure WEEKLY
WeeksInterval.w
rgfDaysOfTheWeek.w
EndStructure
Structure MONTHLYDATE
rgfDays.l
rgfMonths.w
wAlignment.w
EndStructure
Structure MONTHLYDOW
wWhichWeek.w
rgfDaysOfTheWeek.w
rgfMonths.w
wAlignment.w
EndStructure
Structure TRIGGER_TYPE_UNION
StructureUnion
Daily.DAILY
Weekly.WEEKLY
MonthlyDate.MONTHLYDATE
MonthlyDOW.MONTHLYDOW
EndStructureUnion
EndStructure
Structure TASK_TRIGGER
cbTriggerSize.w
Reserved1.w
wBeginYear.w
wBeginMonth.w
wBeginDay.w
wEndYear.w
wEndMonth.w
wEndDay.w
wStartHour.w
wStartMinute.w
MinutesDuration.l
MinutesInterval.l
rgFlags.l
TriggerType.l
Type.TRIGGER_TYPE_UNION
Reserved2.w
wRandomMinutesInterval.w
EndStructure