VBA：ChromeとEdgeのブラウザのバージョンチェック方法
あまり使うことはないと思いますが、「Selenium」を実行する際に使ったのでサンプルコードを載せておきます。
レジストリの情報を取得しています。
◆Chrome版
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Private Sub ブラウザバージョンのチェックのみ_Click() MsgBox chkBrowserVer End Sub '*********************************************************' '//【Chrome】ブラウザのバージョンチェック' Function chkBrowserVer() As String Dim chkVer As String chkVer = "HKEY_CURRENT_USER\SOFTWARE\Google\Chrome\BLBeacon\version" chkBrowserVer = CreateObject("WScript.Shell").RegRead(chkVer) End Function |
◆Edge版
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Private Sub ブラウザバージョンのチェックのみ_Click() MsgBox chkBrowserVer End Sub '#######################################################' '//【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 |
