Public Class Form1 '定义cef浏览器控件的全局变量,方便后面调用,注意WithEvents Private WithEvents browser As ChromiumWebBrowser Public Sub New ( ) ' 此调用是设计器所必需的。 InitializeComponent ( ) ' 设置cef控件菜单语言为中文 Dim settings As New CefSettings ( ) With { .Locale = "zh-CN" CefSharp.Cef.Initialize ( settings ) '初始化cef浏览器控件样式和默认打开的地址，并将其加入到Panel控件中 browser = New ChromiumWebBrowser ( "about:blank" ) With { .Dock = DockStyle.Fill Panel2.Controls.Add ( browser ) '手动跳转新的地址 browser.Load ( "http://mail.qq.com" ) End Sub Private Sub Button1_Click ( sender As Object , e As EventArgs ) Handles Button1.Click '从textbox中获取内容当做url扔给cef访问 Dim url = TextBox1. Text browser.Load ( url ) End Sub Private Sub Button2_Click ( sender As Object , e As EventArgs ) Handles Button2.Click '调用cef执行js代码并返回结果，这里使用js原生函数querySelector通过css选择器获取dom的值 Dim js As String = "document.querySelector('.login_pictures_txt').innerText" Dim html_task As Task ( Of JavascriptResponse ) = browser.EvaluateScriptAsync ( js , timeout : = Nothing ) '阻塞等待task任务结束 html_task. Wait ( ) RichTextBox1. Text = html_task.Result.Result End Sub End Class

获取异步加载页面的HTML代码

比较简单粗暴有效的方法:使用Timer循环在页面中执行js通过css选择器去找加载完成后才会出现的dom元素个数,大于0则可认定为页面加载完成了.

Imports CefSharp
Imports CefSharp.WinForms
Public Class SingleBrowser    
    Private browser As ChromiumWebBrowser
    Private WithEvents get_html_tm As New Timer() With {.Interval = 200}    '获取页面HTML的计时器
    Public Sub New()
        ' 此调用是设计器所必需的。
        InitializeComponent()
        ' 在 InitializeComponent() 调用之后添加任何初始化。
        Dim settings As New CefSettings With {
            .Locale = "zh-CN",
            .CachePath = Application.StartupPath & "\Cache"
        CefSharp.Cef.Initialize(settings)
        browser = New ChromiumWebBrowser("about:blank") With {
                .Dock = DockStyle.Fill
        Panel2.Controls.Add(browser)
    End Sub
    Private Sub startBtn_Click(sender As Object, e As EventArgs) Handles startBtn.Click
        '处理URL路由
        Dim url As String = url_textbox.Text
		'加载文本框中的地址,比如淘宝的搜索结果页面
        browser.Load(url)
        '开始计时器工作
        get_html_tm.Start()
    End Sub
    ''' <summary>
    ''' 判断淘宝搜索结果页面是否加载完毕
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Async Sub get_html_tick(sender As Object, e As EventArgs) Handles get_html_tm.Tick
        Dim js As String = "document.querySelectorAll('.pic-link').length"
        Dim result As Integer = doJs(js)
        If result > 0 Then
            get_html_tm.Stop()
            '加载完毕,开始获取HTML内容
            Dim html As String = Await browser.GetSourceAsync()
            Console.WriteLine("----加载HTML成功")
            Console.Write(html)
        End If
    End Sub
    ''' <summary>
    ''' 在浏览器中执行js
    ''' </summary>
    ''' <param name="js"></param>
    ''' <returns>返回js执行结果,object对象或者nothing</returns>
    Private Function doJs(ByVal js As String)
        If Not browser.IsLoading Then
            Dim js_task As Task(Of JavascriptResponse) = browser.EvaluateScriptAsync(js)
            js_task.Wait()
            Return js_task.Result.Result
            Return Nothing
        End If
    End Function
End Class
使用AngleSharp解析HTML
 
Imports AngleSharp
Public Class SingleBrowser
    Private parser As New AngleSharp.Parser.Html.HtmlParser()   'HTML解析器
    Private Sub dealHtml(Byval html as String)
		'解析HTML为AngleSharp的IHtmlDocument对象
    	Dim doc = parser.Parse(html)
    	'通过css选择器筛选出符合条件的dom元素集合
    	Dim link_list = doc.QuerySelectorAll(".pic-link")
    	'遍历dom集合进行处理
    	For Each link In link_list
    		'获取dom的文本内容
    		Console.WriteLine(link.TextContent())
    		'获取dom的属性href
    		Console.WriteLine(link.GetAttribute("href"))
    End Sub
使用offscreen在后台隐式获取指定页面的HTML
 
注意：需要另外从NuGet上安装CefSharp.Offscreen的包包
 
Imports CefSharp
Imports CefSharp.OffScreen
Public Class offscreen
    Private browser As ChromiumWebBrowser
    Public Sub New()
        ' 此调用是设计器所必需的。
        InitializeComponent()
        ' 允许多线程间修改主UI线程的控件内容
        CheckForIllegalCrossThreadCalls = False
        Dim settings As New CefSettings() With {
        .Locale = "zh-CN"
        CefSharp.Cef.Initialize(settings)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            browser = New ChromiumWebBrowser("mail.qq.com")
            AddHandler browser.LoadingStateChanged, AddressOf doneLoad
        Catch ex As Exception
            TextBox1.Text = ex.Message
        End Try
    End Sub
    ''' <summary>
    ''' 处理browser对象加载状态发生改变时的事件
    ''' 注意括号中的参数必须与browser.LoadingStateChanged签名一致
    ''' 所谓签名一致，就是括号里面参数的数量、类型一致（不知道这样理解对不对）    ''' 
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Async Sub doneLoad(ByVal sender As Object, ByVal e As LoadingStateChangedEventArgs)
        '如果browser不是处于loading状态
        If Not e.IsLoading Then
            '移除绑定的当前事件(即当前事件只触发一次)
            RemoveHandler browser.LoadingStateChanged, AddressOf doneLoad
            '手动设置的等待1秒,让browser渲染完毕
            Threading.Thread.Sleep(1000)
            '阻塞等待(异步)获取browser中的源代码
            Dim html As String = Await browser.GetSourceAsync()
            TextBox1.Text = html
        End If
    End Sub
End Class
                    获取js执行返回值Imports CefSharpImports CefSharp.WinFormsPublic Class Form1	'定义cef浏览器控件的全局变量,方便后面调用,注意WithEvents    Private WithEvents browser As ChromiumWebBrowser    Public Sub New()        ' 此调用是设...
				
在使用WebDriver时，总是会遇到官方的检测，官方时不允许这样做的，那么如何规避掉呢
我使用的Cefsharp的版本时79.0 ，那么在处理的时候需要添加这样一句话
string script = "if(navigator.webdriver){ Object.defineProperty(navigator, 'webdriver', {get: () => undefined});}";
                    chromiumWebBrowser.ExecuteScr
				
　　在VB.net系列的项目开发中，往往需要使用到内嵌浏览器。一般来说，使用VB.net自带的WebBrowser控件能够满足大部分的要求。但是WebBrowser控件是基于IE浏览器内核，显然对HTML5、JavaScript等的支持体验较差，不能满足某些特殊的需求，如果要在VB.net项目中嵌入其它内核的浏览器该怎么做呢？
　　网上有一些基于C#的开源项目，可以方便的在C#编译环境下用于开发...
				
nuget安装cefsharp
打开 NuGet 程序包管理器控制台：工具=>NuGet 程序包管理器=》程序包管理器控制台。搜索CefSharp.WinForm，选择版本和需要添加的项目，安装后会将所有需要的文件加入选择的项目中，并且将dll文件加入引入。
将平台换为X86或者X64，Any Cpu无法编译成功
实例化浏览器
响应F12打开控制台console
c#调用js方法
				
要在VB.NET中使用CefSharp播放视频，您需要遵循以下步骤：
1. 安装CefSharp NuGet包：在Visual Studio中，打开您的VB.NET项目并右键单击项目名称。选择“管理NuGet程序包”，然后搜索“CefSharp”。安装最新版本的CefSharp。
2. 在您的VB.NET代码中添加命名空间：在您的VB.NET代码文件的顶部添加以下命名空间引用：`Imports CefSharp.WinForms`
3. 创建一个WebView控件：您可以在您的窗体中创建一个WebView控件，以便在其中加载视频。例如：
Dim wb As New ChromiumWebBrowser("https://www.youtube.com/watch?v=dQw4w9WgXcQ")
Me.Controls.Add(wb)
wb.Dock = DockStyle.Fill
此代码将创建一个WebView控件，并在其中加载YouTube视频的URL。
4. 播放视频：当WebView控件加载视频时，您可以使用HTML5 video标签的控件来播放视频。例如，在您的HTML代码中，您可以添加以下代码：
<video src="your-video-url.mp4" controls></video>
这将在WebView控件中显示具有控件的视频播放器，并允许用户播放和暂停视频。
请注意，您需要将“your-video-url.mp4”替换为您要播放的实际视频的URL。
                    2201_75735081: 
                    太棒了，我以前看过这篇教程，成功弄好了。
这几天又想弄回来，但是找了好久都没有找到这篇，看别人的教程我理都不想理，就是想找到你这篇，终于翻了半天百度，看到熟悉的排版和熟悉的代码，我就肯定是这个了
哦对了，记得要在电脑设置里面，应用-启动-勾选powershell登录时启动
                Windows10设置移动热点开机自动开启
                    m0_67085311: 
                    方法照做，因为我是无线网卡，开机后要等分把钟才能加载完，所以将ps1程序用任务计划程序设置在开机1分钟后再运行，完美解决谢谢大佬
                离线下载安装Microsoft Store中的应用
                    xumofenfei: 
                    试了一下 “.Msixbundle” 结尾的也可以安装
                创建自定义 Debian Live ISO 镜像
                    DexterLien: 
                    装系统到本地磁盘么? 最好还是用Installer操作吧, 避免数据丢失.