Zaman Tetikleyicisi Örneği (Betik Oluşturma)

Bu betik örneği, Belirli bir zamanda Not Defteri çalıştıran bir görevin nasıl oluşturulacağını gösterir. Görev, görevi etkinleştirmek için bir başlangıç sınırı, Not Defteri'ni çalıştıran yürütülebilir bir eylem ve görevi devre dışı bırakan bir bitiş sınırı belirten zamana dayalı bir tetikleyici içerir.

Aşağıdaki yordamda, belirli bir zamanda yürütülebilir dosyayı başlatmak için bir görevin nasıl zamanlandığı açıklanmaktadır.

Not Defteri'ni Belirli Bir Zaman Başlayacak Şekilde Zamanlamak için

  1. TaskService nesnesi oluşturun. Bu nesne, görevi belirtilen klasörde oluşturmanıza olanak tanır.
  2. Bir görev klasörü alın ve bir görev oluşturun. Görevin depolandığı klasörü almak için TaskService.GetFolder yöntemini ve görevi temsil eden TaskDefinition nesnesini oluşturmak için TaskService.NewTask yöntemini kullanın.
  3. TaskDefinition nesnesini kullanarak görevle ilgili bilgileri tanımlayın. Görev Zamanlayıcı hizmetinin görevi nasıl gerçekleştirdiğini belirleyen ayarları tanımlamak için TaskDefinition.Settings özelliğini ve görevi açıklayan bilgileri tanımlamak için TaskDefinition.RegistrationInfoözelliğinikullanın.
  4. TaskDefinition.Triggers özelliğini kullanarak zamana bağlı bir tetikleyici oluşturun. Bu özellik, TriggerCollection nesnesine erişim sağlar. Zaman tabanlı bir tetikleyici oluşturmak için TriggerCollection.Create yöntemini (oluşturmak istediğiniz tetikleyici türünü belirterek) kullanın. Tetikleyiciyi oluştururken tetikleyiciyi etkinleştirmek ve devre dışı bırakmak için tetikleyicinin başlangıç sınırını ve bitiş sınırını ayarlayın. Başlangıç sınırı, görevin eyleminin ne zaman gerçekleştirileceğini belirtir.
  5. TaskDefinition.Actions özelliğini kullanarak görevin yürütülmesi için bir eylem oluşturun. Bu özellik, ActionCollection nesnesine erişim sağlar. Oluşturmak istediğiniz eylem türünü belirtmek için ActionCollection.Create yöntemini kullanın. Bu örnekte, komut satırı işlemini yürüten bir eylemi temsil eden ExecAction nesnesi kullanılır.
  6. TaskFolder.RegisterTaskDefinition yöntemini kullanarak görevi kaydedin. Bu örnekte görev Not Defteri'ni geçerli zamanda ve 30 saniyeyle başlatır.

Aşağıdaki VBScript örneğinde, görev kaydedildikten 30 saniye sonra Not Defteri'ni yürütmek için görevin nasıl zamanlandığı gösterilmektedir.

'------------------------------------------------------------------
' This sample schedules a task to start notepad.exe 30 seconds
' from the time the task is registered.
'------------------------------------------------------------------

' A constant that specifies a time-based trigger.
const TriggerTypeTime = 1
' A constant that specifies an executable action.
const ActionTypeExec = 0   


'********************************************************
' Create the TaskService object.
Set service = CreateObject("Schedule.Service")
call service.Connect()

'********************************************************
' Get a folder to create a task definition in. 
Dim rootFolder
Set rootFolder = service.GetFolder("\")

' The taskDefinition variable is the TaskDefinition object.
Dim taskDefinition
' The flags parameter is 0 because it is not supported.
Set taskDefinition = service.NewTask(0) 

'********************************************************
' Define information about the task.

' Set the registration info for the task by 
' creating the RegistrationInfo object.
Dim regInfo
Set regInfo = taskDefinition.RegistrationInfo
regInfo.Description = "Start notepad at a certain time"
regInfo.Author = "Author Name"

'********************************************************
' Set the principal for the task
Dim principal
Set principal = taskDefinition.Principal

' Set the logon type to interactive logon
principal.LogonType = 3


' Set the task setting info for the Task Scheduler by
' creating a TaskSettings object.
Dim settings
Set settings = taskDefinition.Settings
settings.Enabled = True
settings.StartWhenAvailable = True
settings.Hidden = False

'********************************************************
' Create a time-based trigger.
Dim triggers
Set triggers = taskDefinition.Triggers

Dim trigger
Set trigger = triggers.Create(TriggerTypeTime)

' Trigger variables that define when the trigger is active.
Dim startTime, endTime

Dim time
time = DateAdd("s", 30, Now)  'start time = 30 seconds from now
startTime = XmlTime(time)

time = DateAdd("n", 5, Now) 'end time = 5 minutes from now
endTime = XmlTime(time)

WScript.Echo "startTime :" & startTime
WScript.Echo "endTime :" & endTime

trigger.StartBoundary = startTime
trigger.EndBoundary = endTime
trigger.ExecutionTimeLimit = "PT5M"    'Five minutes
trigger.Id = "TimeTriggerId"
trigger.Enabled = True

'***********************************************************
' Create the action for the task to execute.

' Add an action to the task to run notepad.exe.
Dim Action
Set Action = taskDefinition.Actions.Create( ActionTypeExec )
Action.Path = "C:\Windows\System32\notepad.exe"

WScript.Echo "Task definition created. About to submit the task..."

'***********************************************************
' Register (create) the task.

call rootFolder.RegisterTaskDefinition( _
    "Test TimeTrigger", taskDefinition, 6, , , 3)

WScript.Echo "Task submitted."



'------------------------------------------------------------------
' Used to get the time for the trigger 
' startBoundary and endBoundary.
' Return the time in the correct format: 
' YYYY-MM-DDTHH:MM:SS. 
'------------------------------------------------------------------
Function XmlTime(t)
    Dim cSecond, cMinute, CHour, cDay, cMonth, cYear
    Dim tTime, tDate

    cSecond = "0" & Second(t)
    cMinute = "0" & Minute(t)
    cHour = "0" & Hour(t)
    cDay = "0" & Day(t)
    cMonth = "0" & Month(t)
    cYear = Year(t)

    tTime = Right(cHour, 2) & ":" & Right(cMinute, 2) & _
        ":" & Right(cSecond, 2)
    tDate = cYear & "-" & Right(cMonth, 2) & "-" & Right(cDay, 2)
    XmlTime = tDate & "T" & tTime 
End Function

Görev Zamanlayıcı Kullanarak

 

 

  • Last updated on