25-04-20, 09:51 PM
25-04-20, 10:22 PM
تفضل
كود :
Dim service As ChromeDriverService = ChromeDriverService.CreateDefaultService
service.HideCommandPromptWindow = True
Dim options As New ChromeOptions
options.AddArgument("--headless")
Dim driver As IWebDriver
Dim title As String
driver = New ChromeDriver(service, options)25-04-20, 10:28 PM
شكرا جدا ليك <3
للاسف مفيش اي حاجه بتفتح
للاسف مفيش اي حاجه بتفتح
25-04-20, 10:53 PM
(25-04-20, 10:28 PM)developermedo111 كتب : [ -> ]شكرا جدا ليك <3
للاسف مفيش اي حاجه بتفتح
كيف أخى ؟ الكود يعمل مائة بالمائة مع الجميع ولكنه مختفى كما طلبت
25-04-20, 11:16 PM
جرب واستفيد من هذا الكود
كود :
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 Class25-04-20, 11:33 PM
انا كنت اقصد متصفح متخفي يعني incognito
فهمتو غلط يا شباب انا اقصد واجهه المتصفح المتخفي مش اخفاء المتصفح
فهمتو غلط يا شباب انا اقصد واجهه المتصفح المتخفي مش اخفاء المتصفح