今更ながら、レガシーのVB6でWebBrowserコントロールで
最近のWEBを見ると
ほとんど実行できない。javaスクリプトも全滅である。
好奇心で、外部ブラウザを起動できないかテストして見た
まずはcromeでは
Dim GC As Variant
Dim Url
Url = "http://localhost/shijpc/login_vtop.html"
Set GC = CreateObject("WScript.Shell")
GC.Run ("chrome.exe -url " & Url)
Exit Sub
ついでedgeでは
Dim Brwsr As Variant
Dim Url As String
Set Brwsr = CreateObject("Shell.Application")
Url = "microsoft-edge:" & "http://localhost/shijpc/login_vtop.html"
Brwsr.ShellExecute Url
cromeで実行してcromeが無ければedgeで
On Error GoTo ERR_Exe
Dim GC As Variant
Dim Url
Url = "http://localhost/shijpc/login_vtop.html"
Set GC = CreateObject("WScript.Shell")
GC.Run ("chrome.exe -url " & Url)
Exit Sub
ERR_Exe:
Dim Brwsr As Variant
Dim Url As String
Set Brwsr = CreateObject("Shell.Application")
Url = "microsoft-edge:" & "http://localhost/shijpc/login_vtop.html"
Brwsr.ShellExecute Url
デスクトップ版はVS2017で対応しているがこの版のWebBrowserも
windowsUpdateで挙動が怪しくなる事を何度か経験しているので
内部でなく外部ブラウザを使うようにしている。