CefSharp.WinForms

https://www.nuget.org/packages/CefSharp.WinForms/

Imports CefSharp

Imports CefSharp.WinForms

 Private ChromeBrowser As ChromiumWebBrowser

 Public Sub New()

    InitializeComponent()

    Dim settings As New CefSettings()

    CefSharp.Cef.Initialize(settings)

   'main browser

    ChromeBrowser = New ChromiumWebBrowser("https://www.miweb.com/")

    Me.Controls.Add(ChromeBrowser)

    ChromeBrowser.Visible = True

    ChromeBrowser.Dock = DockStyle.Fill

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    AddHandler ChromeBrowser.FrameLoadEnd, AddressOf ChromeBrowser_FrameLoadEnd

End Sub

Sub ChromeBrowser_FrameLoadEnd()

    With ChromeBrowser

       'Complete web form

       Dim identifiers As List(Of Long) = .GetBrowser.GetFrameIdentifiers()

       For Each i As Long In identifiers

          Try

           Dim frame As CefSharp.IFrame = .GetBrowser.GetFrame(i)
           frame.ExecuteJavaScriptAsync("document.getElementById('user').value='root';")
           frame.ExecuteJavaScriptAsync("document.getElementById('paw').value='1234';")
           frame.ExecuteJavaScriptAsync("document.getElementById('btgo').click();")

           Exit For

   Catch ex As Exception

          End Try

      End With

End Sub