VBA：ブラウザのバージョンチェック
VBAからブラウザのバージョンを調べたい場合に使えるコードです。
ドライバが最新のものかどうかのチェックなどで使えます。
◆Edgeの場合
|
1 2 3 4 5 6 7 8 9 |
'//【Edge】ブラウザのバージョンチェック' Function chkBrowserVer() As String Dim chkVer As String 'Edgeの場合' chkVer = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Edge\BLBeacon\version" chkBrowserVer = CreateObject("WScript.Shell").RegRead(chkVer) End Function |
◆Chromeの場合
|
1 2 3 4 5 6 7 8 9 |
'//【Chrome】ブラウザのバージョンチェック' Function chkBrowserVer() As String Dim chkVer As String 'Chromeの場合' chkVer = "HKEY_CURRENT_USER\SOFTWARE\Google\Chrome\BLBeacon\version" chkBrowserVer = CreateObject("WScript.Shell").RegRead(chkVer) End Function |
