[anes]

السلام عليكم ورحمة الله

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

بعد الدخول الله بالكود التالي

كود :

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

[ابو روضة]

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

كود :

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

[anes]

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

كود :

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

بارك الله فيك اخي

الف تحية وتقدير

[bakriano30@yahoo.com]

(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")

بارك الله فيك اخي

الف تحية وتقدير

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

[Basil Abdallah]

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

[anes]

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

مرحبا اخي abdallah

انا ابحث على الطريقة الثانية

صورة الحساب الذي يحدده المستخدم

وشكرا

[Basil Abdallah]

(21-07-19, 07:21 PM)anes كتب :

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

مرحبا اخي abdallah

انا ابحث على الطريقة الثانية

صورة الحساب الذي يحدده المستخدم

وشكرا

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 


[bidaya]

(21-07-19, 08:11 PM)Basil Abdallah كتب :

(21-07-19, 07:21 PM)anes كتب :

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

مرحبا اخي abdallah

انا ابحث على الطريقة الثانية

صورة الحساب الذي يحدده المستخدم

وشكرا

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 الحساب سواء بهذه الطريقة او بعد تسجيل الدخول