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