表紙へ

Windows

1.タスクスケジュールを追加する

 

この例は21日の13時20分にメモ帳を開くようにタスクを設定する。

以下の例を実行するにはコマンドボタン(Command1)を1つ配置する。

なお、この例を動作させるためには以下の環境が必要

[OS] Windows NT3.1以降, Windows 2000

[IE] Version 4.0以降

 

Private Declare Function NetScheduleJobAdd Lib "netapi32.dll" (ByVal Servername As String, Buffer As Any, JobID As Long) As Long

Private Type AT_INFO
    JobTime As Long
    DaysOfMonth As Long
    DaysOfWeek As Byte
    Flags As Byte
    Dummy As Integer
    Command As String
End Type

Private Function AddTask(TaskDate As Integer, TaskTime As String, TaskCommand As String) As Boolean

    Dim JobInformation As AT_INFO
    Dim Ret As Long
    Dim JobID As Long

    With JobInformation
        .JobTime = (Hour(TaskTime) * 3600 + Minute(TaskTime) * 60) * 1000 '時刻
        .DaysOfMonth = .DaysOfMonth Or 2 ^ (TaskDate - 1) '日付
        .Command = StrConv(TaskCommand, vbUnicode) 'コマンド
    End With

    Ret = NetScheduleJobAdd("", JobInformation, JobID)
    AddTask = Ret = 0

End Function

Private Sub Command1_Click()

    Dim Ret As Long
 
    Ret = AddTask(21, "13:20", "C:\Windows\Notepad.exe")
    MsgBox IIf(Ret, "成功", "失敗") & "しました。"

End Sub