怎么用shell实现打开计划任务的功能？

Question

在计划任务的文件夹中双击一个任务就能显示任务的设置界面，我想通过程序实现此功能，结果无论我用shell,还是ShellExecute调用任务文件,都无法调出此界面，请问怎么实现啊？

Answer 1

Private Sub Command1_Click()
    Shell "cmd.exe /c ""%SystemRoot%\explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"""
End Sub

Answer 2

楼上代码只能启动计划任务的文件夹直接启动计划任务代码
Private Sub Command1_Click()
    Dim SA As Object, Verbs As Object, ShedulFoldX As Object
    Dim vFolder, ItemFold, MyItemFolder, ShedulFold, SchedWizard, Verb As Object
    Dim Found As Boolean
    
    Set SA = CreateObject("Shell.Application")
    Set vFolder = SA.NameSpace(3)
    Set ItemFold = vFolder.Items
    
    Found = False
    For Each MyItemFolder In ItemFold
        If MyItemFolder.Name = "Scheduled Tasks" Then
           Set ShedulFold = MyItemFolder.GetFolder
           Found = True
           Exit For
        End If
    Next
    If Found = False Then
        End
    End If
    Set ShedulFoldX = ShedulFold.Items
    For Each SchedWizard In ShedulFoldX
        If SchedWizard.Name = "Add Scheduled Task" Then
           Set Verbs = SchedWizard.Verbs
           SchedWizard.InvokeVerb (Verbs.Item(0))
           Exit For
        End If
    Next
End Sub