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

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

جلب صورة البروفيل - anes - 17-07-19

السلام عليكم ورحمة الله
هل يمكن جلب صورة البروفيل حساب الفيسبوك
بعد الدخول الله بالكود التالي

كود :
Dim mycontainer2 As New CookieContainer()
Sub login(user As String, pass As String)
Dim s As String = String.Format("email={0}&pass={1}", user, pass)
Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
Dim request As HttpWebRequest = WebRequest.Create("https://m.facebook.com/login.php")
request.Method = "POST"
request.CookieContainer = mycontainer2
request.ContentType = "application/x-www-form-urlencoded"
request.UserAgent = useragent
request.ContentLength = bytes.Length
request.GetRequestStream().Write(bytes, 0, bytes.Length)
Dim response As HttpWebResponse = Nothing
response = DirectCast(request.GetResponse(), HttpWebResponse)
mycontainer2.Add(response.Cookies)
Dim url As String = (response.ResponseUri.ToString())
If url.Contains("home.php") Then
'تم الدخول

Else
'فشل الدخول
End If

End Sub


RE: جلب صورة البروفيل - ابو روضة - 17-07-19

ضع تكست بوكس وضع فيه id  حسابك وضع هذا الكود

كود :
PictureBox1.ImageLocation = ("http://graph.facebook.com/" & TextBox1.Text & "/picture?type=large")


RE: جلب صورة البروفيل - anes - 18-07-19

(17-07-19, 09:12 PM)ابو روضة كتب : ضع تكست بوكس وضع فيه id  حسابك وضع هذا الكود

كود :
PictureBox1.ImageLocation = ("http://graph.facebook.com/" & TextBox1.Text & "/picture?type=large")

بارك الله فيك اخي
الف تحية وتقدير


RE: جلب صورة البروفيل - bakriano30@yahoo.com - 18-07-19

(18-07-19, 01:53 AM)anes كتب :
(17-07-19, 09:12 PM)ابو روضة كتب : ضع تكست بوكس وضع فيه id  حسابك وضع هذا الكود

كود :
PictureBox1.ImageLocation = ("http://graph.facebook.com/" & TextBox1.Text & "/picture?type=large")

بارك الله فيك اخي
الف تحية وتقدير

ممكن مثال اخي الفاضل رجاء رجاء من حضرتك

RE: جلب صورة البروفيل - Basil Abdallah - 21-07-19

لم افهم السؤال بالضبط هل ترغيب بجلب صورة لحسابك الشخصي على الفيس بوك للبرنامج
ام ترغيب بجعل البرنامج يجلب الصورة لحساب الذي يحدده المستخدم

RE: جلب صورة البروفيل - anes - 21-07-19

(21-07-19, 04:58 AM)Basil Abdallah كتب : لم افهم السؤال بالضبط هل ترغيب بجلب صورة لحسابك الشخصي على الفيس بوك للبرنامج
ام ترغيب بجعل البرنامج يجلب الصورة لحساب الذي يحدده المستخدم

مرحبا اخي abdallah
انا ابحث على الطريقة الثانية
صورة الحساب الذي يحدده المستخدم
وشكرا Heart


RE: جلب صورة البروفيل - Basil Abdallah - 21-07-19

(21-07-19, 07:21 PM)anes كتب :
(21-07-19, 04:58 AM)Basil Abdallah كتب : لم افهم السؤال بالضبط هل ترغيب بجلب صورة لحسابك الشخصي على الفيس بوك للبرنامج
ام ترغيب بجعل البرنامج يجلب الصورة لحساب الذي يحدده المستخدم

مرحبا اخي abdallah
انا ابحث على الطريقة الثانية
صورة الحساب الذي يحدده المستخدم
وشكرا Heart

PHP كود :
       WebBrowser1.Navigate(InputBox("Facebook Account url :"))
        Dim PicLink As String
        Dim nme As String = WebBrowser1.Document.GetElementById("cover-name-root").OuterText
        For Each HT As HtmlElement In WebBrowser1.Document.GetElementsByTagName("img")
            If HT.GetAttribute("alt") = nme Then
                PicLink = HT.GetAttribute("src")
                Dim Client As New System.Net.WebClient
                Dim BytesOfImage() As Byte = Client.DownloadData(PicLink)
                Dim ImageStream As New IO.MemoryStream(BytesOfImage)
                PictureBox1.Image = New System.Drawing.Bitmap(ImageStream)
            End If
        Next 


RE: جلب صورة البروفيل - bidaya - 06-08-19

(21-07-19, 08:11 PM)Basil Abdallah كتب :
(21-07-19, 07:21 PM)anes كتب :
(21-07-19, 04:58 AM)Basil Abdallah كتب : لم افهم السؤال بالضبط هل ترغيب بجلب صورة لحسابك الشخصي على الفيس بوك للبرنامج
ام ترغيب بجعل البرنامج يجلب الصورة لحساب الذي يحدده المستخدم

مرحبا اخي abdallah
انا ابحث على الطريقة الثانية
صورة الحساب الذي يحدده المستخدم
وشكرا Heart

PHP كود :
       WebBrowser1.Navigate(InputBox("Facebook Account url :"))
        Dim PicLink As String
        Dim nme As String = WebBrowser1.Document.GetElementById("cover-name-root").OuterText
        For Each HT As HtmlElement In WebBrowser1.Document.GetElementsByTagName("img")
            If HT.GetAttribute("alt") = nme Then
                PicLink = HT.GetAttribute("src")
                Dim Client As New System.Net.WebClient
                Dim BytesOfImage() As Byte = Client.DownloadData(PicLink)
                Dim ImageStream As New IO.MemoryStream(BytesOfImage)
                PictureBox1.Image = New System.Drawing.Bitmap(ImageStream)
            End If
        Next 

كود جميل جدا اخي الكريم
هل يمكن استعماله في جلب id الحساب سواء بهذه الطريقة او بعد تسجيل الدخول