AppRun

他のアプリケーションを起動する

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
Function AppRun(AppName As String)
'他のアプリケーションを起動する

Dim AppUserModelID As String
    Select Case AppName
        Case "GetStarted"
            AppUserModelID = "Microsoft.Getstarted_8wekyb3d8bbwe!App"
        Case "Grooveミュージック"
            AppUserModelID = "Microsoft.ZuneMusic_8wekyb3d8bbwe!Microsoft.ZuneMusic"
        Case "InternetExplorer"
            AppUserModelID = "Microsoft.InternetExplorer.Default"
        Case "MicrosoftEdge"
            AppUserModelID = "Microsoft.MicrosoftEdge_8wekyb3d8bbwe!MicrosoftEdge"
        Case "ODBCデータ ソース"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\odbcad32.exe"
        Case "OneDrive"
            AppUserModelID = "Microsoft.SkyDrive.Desktop"
        Case "PC"
            AppUserModelID = "Microsoft.Windows.Computer"
        Case "Snipping Tool"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\SnippingTool.exe"
        Case "PowerShell"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\WindowsPowerShell\v1.0\powershell.exe"
        Case "PowerShell ISE"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\WindowsPowerShell\v1.0\PowerShell_ISE.exe"
        Case "音声認識"
            AppUserModelID = "Microsoft.AutoGenerated.{866E6D2B-1C11-B7B7-2EBB-50D2B949F0B4}"
        Case "アラーム&クロック"
            AppUserModelID = "Microsoft.WindowsAlarms_8wekyb3d8bbwe!App"
        Case "イベント ビューアー"
            AppUserModelID = "Microsoft.AutoGenerated.{A5294213-6473-6AEC-9FE8-C4DC1DFDD1B2}"
        Case "エクスプローラー"
            AppUserModelID = "Microsoft.Windows.Explorer"
        Case "カメラ"
            AppUserModelID = "Microsoft.WindowsCamera_8wekyb3d8bbwe!App"
        Case "カレンダー"
            AppUserModelID = "Microsoft.windowscommunicationsapps_8wekyb3d8bbwe!Microsoft.windowslive.Calendar"
        Case "コマンド プロンプト"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\cmd.exe"
        Case "コントロールパネル"
            AppUserModelID = "Microsoft.Windows.ControlPanel"
        Case "コンピューターの管理"
            AppUserModelID = "Microsoft.AutoGenerated.{9BC0C182-2EB1-D242-F4F1-EB60E3978346}"
        Case "コンポーネント サービス"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\comexp.msc"
        Case "サービス"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\services.msc"
        Case "システム情報"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\msinfo32.exe"
        Case "システム構成"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\msconfig.exe"
        Case "スクリーンキーボード"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\osk.exe"
        Case "ステップ記録ツール"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\psr.exe"
        Case "タスクスケジューラ"
            AppUserModelID = "Microsoft.AutoGenerated.{FC715E43-DDE5-9F19-D0C0-A7336C7414D7}"
        Case "タスクマネージャー"
            AppUserModelID = "Microsoft.AutoGenerated.{216F52FF-1A5B-FFC0-E638-5861AAE5CCCE}"
        Case "ディスククリーンアップ"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\cleanmgr.exe"
        Case "デバイス"
            AppUserModelID = "Microsoft.Windows.PCSettings.Devices"
        Case "ドライブのデフラグと最適化"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\dfrgui.exe"
        Case "ナレーター"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\narrator.exe"
        Case "パフォーマンス モニター"
            AppUserModelID = "Microsoft.AutoGenerated.{CEDD44D2-A5B2-1CE7-2EC1-FA113DB2B1CF}"
        Case "ファイル名を指定して実行"
            AppUserModelID = "Microsoft.Windows.Shell.RunDialog"
        Case "フォト"
            AppUserModelID = "Microsoft.Windows.Photos_8wekyb3d8bbwe!App"
        Case "ペイント"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\mspaint.exe"
        Case "ボイス レコーダー"
            AppUserModelID = "Microsoft.WindowsSoundRecorder_8wekyb3d8bbwe!App"
        Case "マップ"
            AppUserModelID = "Microsoft.WindowsMaps_8wekyb3d8bbwe!App"
        Case "メモ帳"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\notepad.exe"
        Case "リソース モニター"
            AppUserModelID = "Microsoft.AutoGenerated.{FC9AE604-08AC-B162-5532-88CBC4322FD7}"
        Case "リモート デスクトップ接続"
            AppUserModelID = "Microsoft.Windows.RemoteDesktop"
        Case "ローカル セキュリティ ポリシー"
            AppUserModelID = "Microsoft.AutoGenerated.{C85B2B53-EA75-7151-6A6A-9728A5752150}"
        Case "ワードパッド"
            AppUserModelID = "{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}\Windows NT\Accessories\wordpad.exe"
        Case "付箋"
            AppUserModelID = "Microsoft.Windows.StickyNotes"
        Case "印刷の管理"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\printmanagement.msc"
        Case "数式入力パネル"
            AppUserModelID = "{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}\Common Files\Microsoft Shared\Ink\mip.exe"
        Case "文字コード表"
            AppUserModelID = "{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}\charmap.exe"
        Case "検索"
            AppUserModelID = "Microsoft.Windows.Cortana_cw5n1h2txyewy!CortanaUI"
        Case "設定"
            AppUserModelID = "Windows.immersivecontrolpanel_cw5n1h2txyewy!Microsoft.Windows.immersivecontrolpanel"
        Case "電卓"
            AppUserModelID = "Microsoft.WindowsCalculator_8wekyb3d8bbwe!App"
        End Select

        Shell "explorer.exe shell:AppsFolder\" & AppUserModelID
End Function