Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim post As New System.Net.WebClient
- post.Encoding = System.Text.Encoding.UTF8
- post.UploadString("https://graph.facebook.com/me/feed?method=POST&message=" + TextBox1.Text + Nothing, "&access_token=" + TextBox2.Text)
- MessageBox.Show("Bạn Chưa Điền Token Facebook", "Thông Báo")
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement