Tutorial membuat aplikasi update status, post gambar, post link ke facebook dengan Visual Basic

Hallo blogger kali ini saya akan memberikan sedikit tutorial membuat aplikasi update status, post gambar, post link ke facebook dengan Visual Basic. Langsung aja check this out !!

Perisapan :

1. buka Visual basic
2. tambah komponen Inet ke dalam project caranya ( CTRL + T di dalam visual basic nya terus centang Microsoft Internet Transfer Control trus apply ok)
3. tambah 5 buah text box dengan masing2 name :

-> txttoken
-> txtid
-> txtstatus
-> txtlink
-> txt gambar

4. tambah 4 button dengan masing2 name :

-> get
-> command1
-> command2
-> cmdstatus

5. tambah 4 komponen Inet dengan masing2 name :

-> Inet
-> Inet2
-> inetgambar
-> inetlink

sip kalau udah kita ambil dulu token access dari akun kita caranya buka link ini :

Code:

https://graph.facebook.com/oauth/authorize?client_id=APLIKASI ENTE ID&redirect_uri=http://www.facebook.com/connect/login_success.html&scope=read_mailbox,manage_notifications,status_update&type=user_agent

itu yang APLIKASI ENTE anda ganti dengan appid atau api key aplikasi anda, coba search di google gimana caranya buat aplikasi di facebook...

kalo ga bisa pake aplikasi saya :

Code:

https://graph.facebook.com/oauth/authorize?client_id=265196740264988&redirect_uri=http://www.facebook.com/connect/login_success.html&scope=read_mailbox,manage_notifications,status_update&type=user_agent

kalo udah izinkan aplikasi sampe ada bacaan success nanti ambil token access yang udah terpampang di address bar browser, trus sementara copy dulu ke notepad token akses nya

balik lagi ke visual basic

untuk fungsi update status ke facebook di cmdstatus masukin kode ini

Code:

Inet.Execute "https://graph.facebook.com/" & txtid.Text & "/feed?message=" & txtstatus.Text & "&access_token=" & txttoken.Text, "POST"

untuk fungsi post link ke facebook di command2 masukan kode ini

Code:

inetlink.Execute "https://graph.facebook.com/" & txtid.Text & "/feed?method=POST&link=" & txtLink.Text & "&message=" & "Test Post Link Dari VB mydisha ganteng" & "&access_token=" & txttoken.Text & ""

untuk fungsi post gambar ke facebook dari link lain masukan kode ini ke command1

Code:

Inetgambar.Execute "https://graph.facebook.com/photos?url=" & txtgambar.Text & "&method=POST&message=" & "TEST UPLOAD GAMBAR VB mydisha ganteng" & "&access_token=" & txttoken.Text & ""

nah untuk make access token ini kita harus tau id dari akun facebook kita..

cara buat cari tau id nya di tombol Get masukan kode ini

Code:

Dim mydisha As String
mydisha = inet2.OpenURL("https://graph.facebook.com/me?access_token=" & txttoken)
txtid.Text = mydisha

nanti di textbox txtID akan muncul seperti ini :

Code:

{"id":"xxxxxxxxxxx","name":"Dias Taufik Rahman","first_name":"Dias","middle_name":"Taufik","last_name":"Rahman","link":"http:\/\/www.facebook.com\/mydisha","username":"mydisha","gender":"male","timezone":7,"locale":"id_ID","verified":true,"updated_time":"2012-12-10T22:26:51+0000"}

hapus semua nya sisakan yang xxxxxxxxxx nya saja, karena itu adalah ID dari akun kita....

sip sekarang udah bisa post gambar, post link, update status. Semoga bermanfaat :)


Sumber :
sumber