[aljzazy]

جرب واستفيد من هذا الكود

كود :

Imports OpenQA.Selenium
Imports OpenQA.Selenium.Keys
Imports OpenQA.Selenium.Chrome
Imports System.Threading.Thread
Imports System.Data.Odbc
Imports System.Text.RegularExpressions

Public Class Form1
 Public Sub New()
   ' This call is required by the designer.
   InitializeComponent()

   ' Add any initialization after the InitializeComponent() call.
   driverService = ChromeDriverService.CreateDefaultService()
   driverService.HideCommandPromptWindow = True
   driver = New ChromeDriver(driverService, New ChromeOptions())
 End Sub

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   driver.Navigate().GoToUrl("http://www.google.com")
 End Sub

 Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
   btnStop.Text = "Stopping service..."
   btnStop.Enabled = False
   driver.Quit()
   driver.Dispose()
   btnStop.Text = "Done."
 End Sub

 Private driverService As ChromeDriverService
 Private driver As IWebDriver
End Class