تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص الفيس بوك
#1
اريد عند تسجيل الدخول يتم عرض اسم الحساب في ليبل 
كما هو موضح وشكرا جزيلا


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
اتفضل أخى وأضف الأدوات التالية


Button1

RichTextBox1

WebBrowser1

Label1

PHP كود :
Public Class Form1
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
          Try
            RichTextBox1
.Text WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
            Dim doc 
As New HtmlAgilityPack.HtmlDocument
            doc
.LoadHtml(RichTextBox1.Text)
            For Each w As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='bookmarkmenu']/div[1]/table/tbody/tr/td[2]/a[1]")
                Label1.Text = (w.InnerText.Trim)
            Next
        Catch ex 
As Exception
        End 
Try
 
   End Sub
End 
Class 


وأضف هذا الملف للمشروع

https://up.top4top.net/downloadf-1390ajbz91-rar.html
الرد }}}
تم الشكر بواسطة: اليوم السابع
#3
(22-10-19, 12:30 PM)ابو روضة كتب : اتفضل أخى وأضف الأدوات التالية


Button1

RichTextBox1

WebBrowser1

Label1

PHP كود :
Public Class Form1
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
          Try
            RichTextBox1
.Text WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
            Dim doc 
As New HtmlAgilityPack.HtmlDocument
            doc
.LoadHtml(RichTextBox1.Text)
            For Each w As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='bookmarkmenu']/div[1]/table/tbody/tr/td[2]/a[1]")
                Label1.Text = (w.InnerText.Trim)
            Next
        Catch ex 
As Exception
        End 
Try
 
   End Sub
End 
Class 


وأضف هذا الملف للمشروع

https://up.top4top.net/downloadf-1390ajbz91-rar.html

شكرا اخي ابو روضه ولكن كيف اضيف هذا الملف
الرد }}}
تم الشكر بواسطة:
#4

ثم قم بإختياره

الرد }}}
#5
(22-10-19, 04:07 PM)ابو روضة كتب :

ثم قم بإختياره


شكرا لك سيدي الفاضل

(22-10-19, 04:07 PM)ابو روضة كتب :

ثم قم بإختياره


شكرا لك سيدي الفاضل المتالق
الرد }}}
تم الشكر بواسطة:



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


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