ダブルクリックでアプリ一括起動!
ん?スタートアップアプリを設定すればいいのでは?
そうなんです。タイトルを読んでそう思われた方もいると思います。
ちょっと諸事情ありまして、、、、パソコンの電源をつけっぱなしにしており、仕事のおわりにアプリを全部落として翌朝アプリを手で立ち上げているんです。なのでスタートアップアプリ設定の恩恵受けられないんです。。。
そこで思いついたのがVBScript!
ああたしかWindowsだとVBで便利にいろいろできるって聞いたなとうっすら思い出し、初心者なりにマネできるコード探して起動したいアプリに合わせて変更しました!
多少トライアンドエラーしてしまいましたが、なんとか成功しました!
Edgeブラウザ
Outlook
OneNote
Teams
全部起動できました!
Option Explicit
' 名前付き引数の定義
Const vbHide = 0
Const vbNormalFocus = 1
Const vbMinimizedFocus = 2
Const vbMaximizedFocus = 3
Const vbNormalNoFocus = 4
Const vbMinimizedNoFocus = 6
' WshShellオブジェクトの作成
Dim objWshShell1
Set objWshShell1 = CreateObject("WScript.Shell")
Dim objWshShell2
Set objWshShell2 = CreateObject("WScript.Shell")
Dim objWshShell3
Set objWshShell3 = CreateObject("WScript.Shell")
Dim objWshShell4
Set objWshShell4 = CreateObject("WScript.Shell")
' アプリケーションの起動
objWshShell1.Run """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe""", vbMaximizedFocus, False
objWshShell2.Run """C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.EXE""", vbMaximizedFocus, False
objWshShell3.Run """C:\Program Files (x86)\Microsoft Office\root\Office16\ONENOTE.EXE""", vbMaximizedFocus, False
objWshShell4.Run "C:\Users\Yukie.Otsu\AppData\Local\Microsoft\Teams\Update.exe --processStart ""Teams.exe""", vbMaximizedFocus, False
' WshShellオブジェクトの破棄
Set objWshShell1 = Nothing
Set objWshShell2 = Nothing
Set objWshShell3 = Nothing
Set objWshShell4 = Nothing
とりあえず一歩前進しました!
今後VBScriptで自動化したいこと
ウィンドウが起動しているアクティブなプロセスを一括終了する
Outlookのマクロ有効にするか問うウィンドウ対応
毎回有効にするに決まっている😢)
地道に手数を減らすようにがんばります
この記事が気に入ったらサポートをしてみませんか?