منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد فتح Chrome Driver متخفي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد فتح Chrome Driver متخفي (/showthread.php?tid=34460)

اريد فتح Chrome Driver متخفي - developermedo111 - 25-04-20

السلام عليكم ورحمة الله وبركاتة اريد فتح Chrome Driver متخفي VB.NET ارجو الرد في اسرع وقت ب الطريقة او الكود وشكرا

RE: اريد فتح Chrome Driver متخفي - ابو روضة - 25-04-20

تفضل

كود :
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)


RE: اريد فتح Chrome Driver متخفي - developermedo111 - 25-04-20

شكرا جدا ليك <3
للاسف مفيش اي حاجه بتفتح

RE: اريد فتح Chrome Driver متخفي - ابو روضة - 25-04-20

(25-04-20, 10:28 PM)developermedo111 كتب : شكرا جدا ليك  <3
للاسف مفيش اي حاجه بتفتح


كيف أخى ؟ الكود يعمل مائة بالمائة مع الجميع ولكنه مختفى كما طلبت


RE: اريد فتح Chrome Driver متخفي - aljzazy - 25-04-20

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


كود :
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


RE: اريد فتح Chrome Driver متخفي - developermedo111 - 25-04-20

انا كنت اقصد متصفح متخفي يعني incognito
فهمتو غلط يا شباب انا اقصد واجهه المتصفح المتخفي مش اخفاء المتصفح