Membuat Aplikasi Facebook Mini dengan Visual Basic.NET

Share kali ini kita akan berbicara tentang Aplikasi Facebook...

Apa rekan-rekan tau apa itu facebook dan sapa sih yang buat jejaring sosial yang men-dunia ini...???

Facebook (atau facebook) adalah sebuah layanan jejaring sosial dan situs web yang diluncurkan pada Februari 2004 yang dioperasikan dan dimiliki oleh Facebook, Inc. Pada Januari 2011, Facebook memiliki lebih dari 600 juta pengguna aktif. Pengguna dapat membuat profil pribadi, menambahkan pengguna lain sebagai teman dan bertukar pesan, termasuk pemberitahuan otomatis ketika mereka memperbarui profilnya. Selain itu, pengguna dapat bergabung dengan grup pengguna yang memiliki tujuan tertentu, diurutkan berdasarkan tempat kerja, sekolah, perguruan tinggi, atau karakteristik lainnya. Nama layanan ini berasal dari nama buku yang diberikan kepada mahasiswa pada tahun akademik pertama oleh administrasi universitas di AS dengan tujuan membantu mahasiswa mengenal satu sama lain. Facebook memungkinkan setiap orang berusia minimal 13 tahun menjadi pengguna terdaftar di situs ini.

Facebook didirikan oleh Mark Zuckerberg bersama teman sekamarnya dan sesama mahasiswa ilmu komputerEduardo Saverin, Dustin Moskovitz dan Chris Hughes. Keanggotaan situs web ini awalnya terbatas untuk mahasiswaHarvard saja, kemudian diperluas ke perguruan lain di Boston, Ivy League, dan Universitas Stanford. Situs ini secara perlahan membuka diri kepada mahasiswa di universitas lain sebelum dibuka untuk siswa sekolah menengah atas, dan akhirnya untuk setiap orang yang berusia minimal 13 tahun.

Studi Compete.com bulan Januari 2009 menempatkan Facebook sebagai layanan jejaring sosial paling banyak digunakan menurut pengguna aktif bulanan di seluruh dunia, diikuti oleh MySpace. Entertainment Weeklymenempatkannya di daftar "terbaik" akhir dasawarsa dengan komentar, "Bagaimana cara kita menguntit bekas kekasih kita, mengingat ulang tahun rekan kerja kita, mengganggu teman kita, dan memainkan permainan Scrabulous sebelum Facebook diciptakan?" Quantcast memperkirakan Facebook memiliki 135,1 juta pengunjung bulanan di AS pada Oktober 2010. Menurut Social Media Today pada April 2010, diperkirakan bahwa 41,6% penduduk Amerika Serikat memiliki akun Facebook.

Nah... cukup teori yang saya berikan, sekarang kita langsung aja praktek membuat facebook mini...

Ne desaign yang saya pakai...

Ini Source Code di balik desaign ini...

Public Class frmMain

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        treMenu.Nodes.Add("Beranda")
        treMenu.Nodes.Add("Pemberitahuan")
        With treMenu.Nodes.Add("Berita")
            .Nodes.Add("Populer")
            .Nodes.Add("Semua Terbaru")
            .Nodes.Add("Status Terbaru")
            .Nodes.Add("Foto Terbaru")
            .Expand()
        End With
        With treMenu.Nodes.Add("Profil")
            .Nodes.Add("Dinding")
            .Nodes.Add("Info")
            .Nodes.Add("Foto")
            .Expand()
        End With
        With treMenu.Nodes.Add("Teman")
            .Nodes.Add("Semua Teman")
            .Nodes.Add("Ulang Tahun")
            .Nodes.Add("Cari Teman")
            .Expand()
        End With
        treMenu.Nodes.Add("Pesan")
        treMenu.Nodes.Add("Acara")
        treMenu.Nodes.Add("Catatan")
        treMenu.Nodes.Add("Grup")
        treMenu.Nodes.Add("Situs")
        treMenu.Nodes.Add("Pengaturan")


        webMain.Navigate("http://m.facebook.com") 'halaman pertama yg dibuka
    End Sub

    Private Sub treMenu_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treMenu.AfterSelect
        Select Case e.Node.Text
            Case "Beranda" : webMain.Navigate("http://m.facebook.com/home.php")

            Case "Pemberitahuan" : webMain.Navigate("http://m.facebook.com/notifications.php")

            Case "Berita" : webMain.Navigate("http://m.facebook.com/stories.php")
            Case "Populer" : webMain.Navigate("http://m.facebook.com/stories.php?tab=top")
            Case "Semua Terbaru" : webMain.Navigate("http://m.facebook.com/stories.php")
            Case "Status Terbaru" : webMain.Navigate("http://m.facebook.com/stories.php?tab=status")
            Case "Foto Terbaru" : webMain.Navigate("http://m.facebook.com/stories.php?tab=photos")

            Case "Profil" : webMain.Navigate("http://m.facebook.com/profile.php")
            Case "Dinding" : webMain.Navigate("http://m.facebook.com/profile.php?v=wall")
            Case "Info" : webMain.Navigate("http://m.facebook.com/profile.php?v=info")
            Case "Foto" : webMain.Navigate("http://m.facebook.com/profile.php?v=photos")

            Case "Teman" : webMain.Navigate("http://m.facebook.com/friends.php")
            Case "Semua Teman" : webMain.Navigate("http://m.facebook.com/friends.php")
            Case "Ulang Tahun" : webMain.Navigate("http://m.facebook.com/birthdays")
            Case "Cari Teman" : webMain.Navigate("http://m.facebook.com/findfriends.php")

            Case "Pesan" : webMain.Navigate("http://m.facebook.com/messages")

            Case "Acara" : webMain.Navigate("http://m.facebook.com/eventhome.php")

            Case "Catatan" : webMain.Navigate("http://m.facebook.com/notes")

            Case "Grup" : webMain.Navigate("http://m.facebook.com/grouphome.php")

            Case "Situs" : webMain.Navigate("http://m.facebook.com/sites.php")

            Case "Pengaturan" : webMain.Navigate("http://m.facebook.com/settings")
        End Select
    End Sub

    Private Sub webMain_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webMain.DocumentCompleted
        btnBack.Enabled = webMain.CanGoBack
        btnForward.Enabled = webMain.CanGoForward
    End Sub

    Private Sub webMain_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles webMain.NewWindow
        webMain.Navigate(webMain.StatusText)
        e.Cancel = True 'memblokir jendela baru
    End Sub

    Private Sub webMain_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles webMain.ProgressChanged
        If e.CurrentProgress = 0 And e.MaximumProgress = 0 Then
            btnBack.Enabled = webMain.CanGoBack
            btnForward.Enabled = webMain.CanGoForward

            prgWeb.Visible = False
        Else

            prgWeb.Visible = True
            prgWeb.Maximum = e.MaximumProgress
            prgWeb.Value = e.CurrentProgress
        End If
    End Sub

    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
        Select Case e.ClickedItem.Text
            Case "Kembali" : If webMain.CanGoBack Then webMain.GoBack()
            Case "Kedepan" : If webMain.CanGoForward Then webMain.GoForward()
            Case "Refresh" : webMain.Refresh()
            Case "Berhenti" : webMain.Stop()
        End Select
    End Sub

    Private Sub txtCari_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCari.KeyDown
        If e.KeyCode = 13 Then 'enter yg ditekan
            e.SuppressKeyPress = True
            txtCari.Text = Trim(txtCari.Text)
            If txtCari.Text <> "" Then webMain.Navigate("http://m.facebook.com/search/?query=" & Replace(txtCari.Text, " ", "+"))
        End If
    End Sub

End Class