Public Class Form1
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Try
Form2.PictureBox1.ImageLocation = ("https://graph.facebook.com/me/picture?width=220&height=220&access_token=" & TextBox1.Text)
Form2.Show()
Catch ex As Exception
'MsgBox("Unable to load data from ""Facebook""! The app will automatically reload", MsgBoxStyle.Exclamation, "Notify")
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Form2.PictureBox1.ImageLocation = ("https://graph.facebook.com/me/picture?width=220&height=220&access_token=" & TextBox1.Text)
Form2.Show()
Catch ex As Exception
'MsgBox("Unable to load data from ""Facebook""! ỨThe app will automatically reload, MsgBoxStyle.Exclamation, "Notify")
End Try
End Sub
End Class
VIDEO DEMO:
Hoặc mọi người có thể sữ dụng cách đơn giản khác mà không cần phải
GET TOKEN của tài khoản mà chỉ cần bỏ ID USER vào là thành công.PictureBox1.ImageLocation = "http://graph.facebook.com/ my id /picture?type=square"
Các bạn chỉ cần thay
MY ID phía trong đoạn code là ok rồi nhé mọi người.Chúc các bạn thành công với thủ thuật đơn giản này.
![[VISUAL BASIC] Get Facebook Image By Token [VISUAL BASIC] Get Facebook Image By Token](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCUT53d5osMFe0BNA9CkD9Il8nk8xyNsn9m9iGvFzEt2GjGjcEJdQVSmlUn5bnZW7g4FFhgd26NLtptKYl9MqdRTYn3ZN0m3aELkEfiYHDtHzP2biMZfSEsbXYrM7V6jmjzGvmvvX3zs2ixZmV1Z2PXkCsq18d_g9GJbsFLvQgeicZ-ixDjadG1X0Wp9Q/s16000/Get%20Facebook%20Image%20By%20Token.png)

Comments
tip này có lâu rồi a, mà có nhiều cách để lấy avatar a.
ReplyDelete