تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجلب الرابط الي بالمتصفح
#1
السلام عليكم ورحمة الله

من فظلكم اخواني اريد جلب رابط المفتوح بالمتصفح
مثلا اافتح رابط المنتدى
http://vb4arb.com
طريقة جلبه الى تكست بوكس


اتمنى السؤال واضح وشكرا Smile
الرد }}}
تم الشكر بواسطة:
#2
اتفضل

كود :
TextBox1.Text = WebBrowser1.Url.ToString
الرد }}}
تم الشكر بواسطة:
#3
(09-09-18, 09:48 PM)ابو روضة كتب :
اتفضل

كود :
TextBox1.Text = WebBrowser1.Url.ToString

شكرا لك اخي الكريم
انا اقصد المتصفح الافتراضي بالجهاز ليس ادات WebBrowser
الرد }}}
تم الشكر بواسطة:
#4
اهلاً وسهلاً بك اخى bidaya

يمكنك متابعة الراط التالى

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#5
(10-09-18, 08:30 AM)elgokr كتب :
اهلاً وسهلاً بك اخى bidaya

يمكنك متابعة الراط التالى

تحياتى لك
وتمنياتى لك التوفيق

الله يحفظك اخي ال elgokr
لكن هذا بال Console
ممكن يصلح كود هذا اخي الكريم
كود :
Dim Driver As IWebDriver
       Driver = New FirefoxDriver
       Driver.Navigate().GoToUrl("https://www.google.fr")
       Dim Url As String = Driver.Url
       Label1.Text = Url
الرد }}}
تم الشكر بواسطة:
#6
صلىي علي النبي محمد
الرد }}}
تم الشكر بواسطة:
#7
(11-09-18, 02:08 AM)bidaya كتب : صلىي علي النبي محمد
للافادة اخواني كود جلب الرابط بالمتصفح
لحد الان توصلت الى متصفحين
قوقل كروم و المتصفح العجوز
كود الفير فوكس لم ينجح معي
ان شاء الله لما ينجح رابح احطه على طول


كود :
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Diagnostics
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports NDde.Client
Imports System.Windows.Automation
Imports SHDocVw
Public Class Form5

   Public Function GetIExploreActiveTabUrl() As String
       Dim processesByName = Process.GetProcessesByName("iexplore")
       If processesByName.Length <> 0 Then
           Dim oDde = New DdeClient("IExplore", "www_GetWindowInfo")
           oDde.Connect()
           Dim url = oDde.Request("1", 5000)
           oDde.Disconnect()
           If url.Contains(",") Then url = url.Split(","c)(0).Replace("""", "")
           Return url
       End If

       Return Nothing
   End Function

   Public Function GetChromeActiveTabUrl() As String
       Dim procsChrome = Process.GetProcessesByName("chrome")
       For Each chrome In procsChrome
           If chrome.MainWindowHandle = IntPtr.Zero Then Continue For
           Dim elerent = AutomationElement.FromHandle(chrome.MainWindowHandle)
           If elerent Is Nothing Then Return Nothing
           Dim conditins As Condition = New AndCondition(New PropertyCondition(AutomationElement.ProcessIdProperty, chrome.Id), New PropertyCondition(AutomationElement.IsContentElementProperty, True), New PropertyCondition(AutomationElement.IsContentElementProperty, True), New PropertyCondition(AutomationElement.ControlTypeProperty, ControlType.Edit))
           Dim elerentx = elerent.FindFirst(TreeScope.Descendants, conditins)
           Return (CType(elerentx.GetCurrentPattern(ValuePattern.Pattern), ValuePattern)).Current.Value
       Next

       Return Nothing
   End Function

 
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim url = GetChromeActiveTabUrl()
       Dim url1 = GetIExploreActiveTabUrl()
       If Not String.IsNullOrEmpty(url) Then TextBox1.Text = url
       If Not String.IsNullOrEmpty(url1) Then TextBox1.Text = url1

   End Sub

   
End Class
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كل إصدارات Visual Studio Express هنا فى هذا الرابط AmeenRashed 0 239 20-11-23, 10:52 AM
آخر رد: AmeenRashed
  كيفية تشغيل هذا الرابط على ListView crazykinko 2 661 22-12-22, 12:12 PM
آخر رد: crazykinko
  ممكن مساعدة في فك تشفير الرابط crazykinko 7 2,741 22-10-21, 12:53 AM
آخر رد: crazykinko
  جلب الرابط المباشر من هنا ابو روضة 7 1,910 24-03-21, 01:33 AM
آخر رد: ابو روضة
  [سؤال] عايز اجلب قاعدة بيانات سيكوال واعرضها في text عاصم النجار 1 1,287 05-05-20, 02:11 AM
آخر رد: ابو ليلى
  [سؤال] كيف اجلب احداثيات الماوس بالنسبة لكونترول معين ولتكن صورة ابراهيم ايبو 5 2,497 31-05-19, 04:15 AM
آخر رد: sami4
  ممكن اعرف ما هو باترين هذا الرابط ابو روضة 2 1,869 24-11-18, 12:22 AM
آخر رد: ابو روضة
  اريد جلب هذا الرابط ابو روضة 0 1,295 11-12-17, 02:10 AM
آخر رد: ابو روضة
  [VB.NET] كيف اجلب عنوان ip كما بالصورة e-coder 5 2,408 27-08-17, 05:58 AM
آخر رد: أبو نوره
  جعل الرابط يفتح علي الجوجل كروم khaled12345 2 2,363 18-06-17, 09:46 AM
آخر رد: khaled12345

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم