以下内容为程序代码:
1 Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
2 Dim setting = New CefSharp.CefSettings()
3 setting.BrowserSubprocessPath = Application.StartupPath & "\\CefSharp.BrowserSubprocess.exe"
4 setting.LocalesDirPath = Application.StartupPath & "\\locales\\"
5 setting.ResourcesDirPath = Application.StartupPath & "\\"
6 setting.CachePath = Application.StartupPath & "\\temp\\"
7 setting.Locale = "zh-CN"
8 setting.UserAgent = "Mozilla/5.0 (iPhone; CPU iPhone OS 11_0 like Mac OS X) AppleWebKit/604.1.38 (KHTML, like Gecko) Version/11.0 Mobile/15A372 Safari/604.1"
9 setting.CefCommandLineArgs("--disable-web-security") = String.Empty
10 setting.CefCommandLineArgs("enable-media-stream") = True
11 setting.CefCommandLineArgs("enable-system-flash") = True
12 setting.CefCommandLineArgs("ppapi-flash-version") = "21.0.0.182"
13 setting.CefCommandLineArgs("ppapi-flash-path") = "C:\\foxtable\\Professional\\pepflashplayer.dll"
14 CefSharp.Cef.Initialize(setting)
15 \'CefSharp.Cef.Initialize
16
17 Dim ChromiumWebBrowser = New CefSharp.WinForms.ChromiumWebBrowser("http://www.baidu.com")
18 ChromiumWebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
19 pnl.basecontrol.controls.add(ChromiumWebBrowser)