Facebook
From asd, 3 Years ago, written in Visual Basic.
Embed
Download Paste or View Raw
Hits: 97
  1. Imports System
  2. Imports System.Runtime.InteropServices
  3. Imports System.Windows.Forms
  4. Imports DotNetBrowser.Browser
  5. Imports DotNetBrowser.Engine
  6. Imports DotNetBrowser.WinForms
  7. Public Class Form1
  8.  
  9.     Inherits Form
  10.     Private ReadOnly engine As IEngine
  11.     Private ReadOnly browser As IBrowser
  12.  
  13.     Public Sub New()
  14.         InitializeComponent()
  15.  
  16.         ' Create and initialize the IEngine
  17.         engine = EngineFactory.Create()
  18.  
  19.         ' Create the Windows Forms BrowserView control
  20.         Dim browserView As New BrowserView() With {.Dock = DockStyle.Fill}
  21.  
  22.         ' Create the IBrowser
  23.         browser = engine.CreateBrowser()
  24.         browser.Navigation.LoadUrl("https://google.com/") '
  25.  
  26.         ' Initialize the Windows Forms BrowserView control
  27.         browserView.InitializeFrom(browser)
  28.  
  29.         ' Add the BrowserView control to the Form
  30.         Panel1.Controls.Add(browserView)
  31.         AddHandler Me.Closed, AddressOf Form1Closed
  32.     End Sub
  33.  
  34.     Private Sub Form1Closed(ByVal sender As Object, ByVal e As EventArgs)
  35.         browser.Dispose()
  36.         engine.Dispose()
  37.     End Sub
  38.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  39.  
  40.     End Sub
  41.  
  42.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  43.         Dim title As JSValue = browser.ExecuteJavaScriptAndReturnValue("document.title = 'My title'; document.title")
  44.         browser.MainFrame.ExecuteJavaScript("")
  45.  
  46.         ' browser.MainFrame.ExecuteJavaScript("alert('Helo');")
  47.  
  48.     End Sub
  49.     Public Function GetGold() As String
  50.         Dim gold As Integer = 0
  51.  
  52.         Return gold
  53.     End Function
  54.  
  55. End Class