使用CefSharp开发一个12306“安心刷票弹窗通知”工具

Public Class TicketNotify
    Dim owerForm As Form

    Public Sub New(ByVal owner As Form)
        Me.owerForm = owner
    End Sub
   
    Public Sub MyNotify()
        Dim target As frm12306Ticket = Me.owerForm
        target.FoundTickt = True
        ' target.Notify()
    End Sub
   
End Class

 Dim WithEvents WebBrowser1 As CefSharp.WinForms.ChromiumWebBrowser
 Me.WebBrowser1 = New CefSharp.WinForms.ChromiumWebBrowser(Me.ticketUrl)
 Me.WebBrowser1.RegisterJsObject("jsObj", New TicketNotify(Me), Nothing)

  Private Sub WebBrowser1_FrameLoadEnd(sender As Object, e As FrameLoadEndEventArgs) Handles WebBrowser1.FrameLoadEnd
        Dim js As String =
<string>
       var divAlert=true;
       function checkHaveTicket() {
            var div = document.getElementById('autosubmitcheckticketinfo');
            if (div) {
                if (div.style.display == 'block' || div.style.display == '') {
                    //txtName.value = '有票了!!!';
                    jsObj.myNotify();
                }
             }
        }

</string>
        '下面两行代码效果一样
        'Me.WebBrowser1.GetMainFrame().ExecuteJavaScriptAsync(js)
        Me.WebBrowser1.ExecuteScriptAsync(js)
 End Sub

PS:注意上面有一个代码 <string>...</string> ，这个是VB.NET独特的XML语句块，XML是VB.NET的一种数据类型，就像你自定义的类型一样，这里用来表示一个字符串，所以用它来表示多行字符串是最合适的了。

    Private Sub WebBrowser1_IsBrowserInitializedChanged(sender As Object, e As IsBrowserInitializedChangedEventArgs) Handles WebBrowser1.IsBrowserInitializedChanged
        If e.IsBrowserInitialized Then
            '不可以在这里注册JS代码，新版CefSharp 找不到
            '不可以在这里开启定时器，否则定时器的事件会在当前线程，也就是UI线程之外运行，相关UI访问代码会发生“线程间操作无效”的异常
            'Me.Timer1.Start()
        End If
    End Sub

<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
        <!-- UAC 清单选项
            如果希望更改 Windows 用户帐户控制级别，请用以下节点之一替换 
            requestedExecutionLevel 节点。

        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />

            如果您希望利用文件和注册表虚拟化提供
            向后兼容性，请删除 requestedExecutionLevel 节点。
        -->
        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
      </requestedPrivileges>
    </security>
  </trustInfo>
  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
    <application>
      <!-- 此应用程序设计使用的所有 Windows 版本的列表。
      Windows 将会自动选择最兼容的环境。-->

      <!-- 如果应用程序设计为使用 Windows Vista，请取消注释以下 supportedOS 节点-->
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>

      <!-- 如果应用程序设计使用 Windows 7，请取消注释以下 supportedOS 节点-->
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>

      <!-- 如果应用程序设计为使用 Windows 8，请取消注释以下 supportedOS 节点-->
      <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>

      <!-- 如果应用程序设计为使用 Windows 8.1，请取消对以下 supportedOS 节点的注释-->
      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>

    </application>
  </compatibility>
  <!--<application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
    </windowsSettings>
  </application>-->
</asmv1:assembly>

  Dim setting As CefSettings = New CefSettings()
        With setting
            .Locale = "zh-CN"
            .AcceptLanguageList = "zh-CN"
            .MultiThreadedMessageLoop = True
        End With
        Dim osVersion = Environment.OSVersion
        '//Disable GPU for Windows 7  ,8,8.1 
        If osVersion.Version.Major = 6 Then
            '// Disable GPU in WPF and Offscreen examples until #1634 has been resolved
            setting.CefCommandLineArgs.Add("disable-gpu", "1")
        End If

        CefSharp.Cef.Initialize(setting)