人気ブログランキング | 話題のタグを見る
(.Net).Netアプリケーションから Windows タスクスケジューラを操作する(@IT参考コード編)
(.Net).Netアプリケーションから Windows タスクスケジューラを操作するの記事補足です。@ITの会議室に上がってたコードを VB.Net に変換したものです。
詳しくは上記記事を参考に。

ふと疑問に思ったのが、DLL を読んでるところです。
VB.Net から DLL の関数見るのって、Declare を使うんじゃなかったでしたっけ?
と思い見つけたのが【VB.NET】Windows APIの利用
なるほど。Declare 使うのと、DLLImport属性使う方法があるっぽいです。

このサンプルでは、ole32.dll 内の CoCreateInstance メソッドを使って、クラスIDを渡し、ITaskScheduler オブジェクトを生成してるんですね。

(文字数制限のためハイライトは無しです)

Imports System.Runtime.InteropServices

Public Class Class2

' CLSID, IIDの定数定義
Private Shared CLSID_CTaskScheduler As New Guid("{148BD52A-A2AB-11CE-B11F-00AA00530503}")
Private Shared CLSID_CTask As New Guid("{148BD520-A2AB-11CE-B11F-00AA00530503}")
Private Shared IID_ITaskScheduler As New Guid("{148BD527-A2AB-11CE-B11F-00AA00530503}")
Private Shared IID_ITask As New Guid("{148BD524-A2AB-11CE-B11F-00AA00530503}")

'''
''' CLSCTX列挙子の定義
'''

'''
Public Enum CLSCTX
CLSCTX_INPROC_SERVER = &H1
CLSCTX_INPROC_HANDLER = &H2
CLSCTX_LOCAL_SERVER = &H4
CLSCTX_INPROC_SERVER16 = &H8
CLSCTX_REMOTE_SERVER = &H10
CLSCTX_INPROC_HANDLER16 = &H20
CLSCTX_RESERVED1 = &H40
CLSCTX_RESERVED2 = &H80
CLSCTX_RESERVED3 = &H100
CLSCTX_RESERVED4 = &H200
CLSCTX_NO_CODE_DOWNLOAD = &H400
CLSCTX_RESERVED5 = &H800
CLSCTX_NO_CUSTOM_MARSHAL = &H1000
CLSCTX_ENABLE_CODE_DOWNLOAD = &H2000
CLSCTX_NO_FAILURE_LOG = &H4000
CLSCTX_DISABLE_AAA = &H8000
CLSCTX_ENABLE_AAA = &H10000
CLSCTX_FROM_DEFAULT_CONTEXT = &H20000
CLSCTX_INPROC = CLSCTX_INPROC_SERVER Or CLSCTX_INPROC_HANDLER
CLSCTX_SERVER = CLSCTX_INPROC_SERVER Or CLSCTX_LOCAL_SERVER Or CLSCTX_REMOTE_SERVER
CLSCTX_ALL = CLSCTX_SERVER Or CLSCTX_INPROC_HANDLER
End Enum

'''
''' TASK_TRIGGER_TYPE列挙子の定義
'''

'''
Public Enum TASK_TRIGGER_TYPE
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
End Enum

' ITaskSchedulerインターフェイスの定義
InterfaceType(ComInterfaceType.InterfaceIsIUnknown), _
Guid("148BD527-A2AB-11CE-B11F-00AA00530503")> _
Interface ITaskScheduler
Sub SetTargetComputer() ' dummy
Sub GetTargetComputer() ' dummy
Sub Enum_() ' dummy
Sub Activate() ' dummy
Sub Delete() ' dummy
Function NewWorkItem(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pwszTaskName As String, _
<[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal rclsid As Guid, _
<[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal riid As Guid _
) As Object

Sub AddWorkItem() ' dummy
Sub IsOfType() ' dummy
End Interface

' ITaskインターフェイスの定義
InterfaceType(ComInterfaceType.InterfaceIsIUnknown), _
Guid("148BD524-A2AB-11CE-B11F-00AA00530503")> _
Interface ITask
' IScheduledWorkItemインターフェイスメソッド
Function CreateTrigger(ByRef iNewTrigger As System.UInt16 _
) As Object
Sub DeleteTrigger() ' dummy
Sub GetTriggerCount() ' dummy
Sub GetTrigger() ' dummy
Sub GetTriggerString() ' dummy
Sub GetRunTimes() ' dummy
Sub GetNextRunTime() ' dummy
Sub SetIdleWait() ' dummy
Sub GetIdleWait() ' dummy
Sub Run() ' dummy
Sub Terminate() ' dummy
Sub EditWorkItem() ' dummy
Sub GetMostRecentRunTime() ' dummy
Sub GetStatus() ' dummy
Sub GetExitCode() ' dummy
Sub SetComment() ' dummy
Sub GetComment() ' dummy
Sub SetCreator() ' dummy
Sub GetCreator() ' dummy
Sub SetWorkItemData() ' dummy
Sub GetWorkItemData() ' dummy
Sub SetErrorRetryCount() ' dummy
Sub GetErrorRetryCount() ' dummy
Sub SetErrorRetryInterval() ' dummy
Sub GetErrorRetryInterval() ' dummy
Sub SetFlags() ' dummy
Sub GetFlags() ' dummy
Sub SetAccountInformation(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pwszAccountName As String, _
<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pwszPassword As String)
Sub GetAccountInformation() ' dummy
' ITaskインターフェイスメソッド
Sub SetApplicationName(<[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pwszApplicationName As String)
Sub GetApplicationName() ' dummy
Sub SetParameters() ' dummy
Sub GetParameters() ' dummy
Sub SetWorkingDirectory() ' dummy
Sub GetWorkingDirectory() ' dummy
Sub SetPriority() ' dummy
Sub GetPriority() ' dummy
Sub SetTaskFlags() ' dummy
Sub GetTaskFlags() ' dummy
Sub SetMaxRunTime() ' dummy
Sub GetMaxRunTime() ' dummy
End Interface

' ITaskTriggerインターフェイスの定義
InterfaceType(ComInterfaceType.InterfaceIsIUnknown), _
Guid("148BD52B-A2AB-11CE-B11F-00AA00530503")> _
Interface ITaskTrigger
Sub SetTrigger(ByRef pTrigger As TASK_TRIGGER)
Sub GetTrigger() ' dummy
Sub GetTriggerString() ' dummy
End Interface 'ITaskTrigger

' CoCreateInstanceのインポート
_
Public Shared Function CoCreateInstance( _
<[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal rclsid As Guid, _
ByVal pUnkOuter As Object, _
ByVal dwClsContext As CLSCTX, _
<[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal riid As Guid _
) As Object
End Function

' TASK_TRIGGER構造体の定義
_
Public Structure TASK_TRIGGER
Public cbTriggerSize As System.UInt16
Public Reserved1 As System.UInt16
Public wBeginYear As System.UInt16
Public wBeginMonth As System.UInt16
Public wBeginDay As System.UInt16
Public wEndYear As System.UInt16
Public wEndMonth As System.UInt16
Public wEndDay As System.UInt16
Public wStartHour As System.UInt16
Public wStartMinute As System.UInt16
Public MinutesDuration As System.UInt32
Public MinutesInterval As System.UInt32
Public rgFlags As System.UInt32
Public TriggerType As TASK_TRIGGER_TYPE
'TRIGGER_TYPE_UNION Type;
Public Type1 As System.UInt16
Public Type2 As System.UInt16
Public Type3 As System.UInt16
Public TypePadding As System.UInt16
Public Reserved2 As System.UInt16
Public wRandomMinutesInterval As System.UInt16
End Structure

Public Sub Main()
Try
' タスクスケジューラ オブジェクトを取得する
Dim iTaskScheduler As ITaskScheduler = CType(CoCreateInstance(CLSID_CTaskScheduler, Nothing, CLSCTX.CLSCTX_INPROC_SERVER, IID_ITaskScheduler), ITaskScheduler)
' 新しいタスクを作成する
Dim iTask As ITask = CType(iTaskScheduler.NewWorkItem("TestTask", CLSID_CTask, IID_ITask), ITask)
' ITaskSchedulerインターフェイスを解放する
Marshal.ReleaseComObject(iTaskScheduler)
' 起動するアプリケーション名を設定する
iTask.SetApplicationName("notepad.exe")
' アカウント名、パスワードを設定する
iTask.SetAccountInformation("testuser", "passwd")
' トリガーを作成する
Dim iNewTrigger As System.UInt16
Dim iTaskTrigger As ITaskTrigger = CType(iTask.CreateTrigger(iNewTrigger), ITaskTrigger)
' スケジュールを設定する
Dim pTrigger As New TASK_TRIGGER()
pTrigger.cbTriggerSize = CType(Marshal.SizeOf(pTrigger), System.UInt16)
pTrigger.wBeginYear = 2009
pTrigger.wBeginMonth = 5
pTrigger.wBeginDay = 1
pTrigger.wStartHour = 0
pTrigger.wStartMinute = 0
pTrigger.TriggerType = TASK_TRIGGER_TYPE.TASK_TIME_TRIGGER_ONCE
iTaskTrigger.SetTrigger(pTrigger)
' ITaskTriggerインターフェイスを解放する
Marshal.ReleaseComObject(iTaskTrigger)
' IPersistFileインターフェイスを取得する
Dim pPersistFile As IntPtr = IntPtr.Zero
Dim IID_IPersistFile As Guid = Marshal.GenerateGuidForType(GetType(UCOMIPersistFile))
Marshal.QueryInterface(Marshal.GetIUnknownForObject(iTask), IID_IPersistFile, pPersistFile)
' ITaskインターフェイスを解放する
Marshal.ReleaseComObject(iTask)
' タスクをディスクへ保存する
Dim iPersistFile As UCOMIPersistFile = CType(Marshal.GetObjectForIUnknown(pPersistFile), UCOMIPersistFile)
iPersistFile.Save(Nothing, True)
' IPersistFileインターフェイスを解放する
Marshal.ReleaseComObject(iPersistFile)
Catch e As Exception
' 例外発生時にメッセージとスタックとレースを出力する
Console.WriteLine(e.Message)
Console.WriteLine(e.StackTrace)
System.Windows.Forms.MessageBox.Show(e.Message)
End Try
End Sub
End Class

by jehoshaphat | 2009-04-28 23:56 | .Net開発


<< (.Net)Imageオブジェ... (.Net).Netアプリケー... >>