Cara Membuat Form Login Facebook dengan Vb.net

Cara Membuat Form Login Facebook  dengan Vb.net - Pada kesempatan sebelumnya kita sudah mempelajari cara membuat facebook auto update status via dengan sebuah source code atau project, dimana project tersebut masih sebuah demo. Nah, disini kita akan mempercatik tampilan dengan di berikannya sebuah form untuk login ke facebook. Bagaimana sih caranya?

Bahan yang diperlukan :

• 2 TextBox
• 2 Button
• 2 Label
• 1 WebBrowser

Berikut cara membuat form Login Facebook dengan Vb.net :

• Buka Micrasoft Visual Studio 2008 / 2010
• Buat New Project lalu pilih Windows Form Applikasi
• Beri nama suka-suka kalian
• Setelah keluar 1 Form di project kita
• Add component 2 TextBox, 2 Button, 2 Label dan 1 WebBrowser
• TextBox1 untuk User, TextBox2 untuk Password, Button 1 untul Login dan Button2 untuk terhubung ke facebook
• Klik 2x pada form, dan pastekan kode berikut didalam Form1_Load

Button1.Text = "Login"
Button2.Text = "Conect to Facebook"
Label1.Text = "Email"
Label2.Text = "Password"
TextBox2.UseSystemPasswordChar = True

• Setelah itu, pastekan kode berikut tepat diatas Form1_load

    'cek koneksi
    Private Sub ConetToFB()
        Dim HomePage As String = "http://www.facebook.com/"
        Dim wc As New WebClient
        Dim programversion As String
        Try
            programversion = wc.DownloadString(HomePage)
        Catch ex As Exception
            MessageBox.Show("Periksa koneksi Ente gan.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
        wc.Dispose()

        If programversion = My.Application.Info.Version.ToString Then
        End If
        If Not My.Application.Info.Version.ToString = programversion Then
            WebBrowser1.Navigate("http://www.facebook.com/")
        End If
    End Sub

• Lalu Pastekan kode berikut tepat diatas Public Class Form1

Imports System.Net

• Klik 2x pada Button1 untuk Login, dan pastekan kode berikut

        Try
            If Len(TextBox1.Text) = 0 Or Len(TextBox2.Text) = 0 Then
                MsgBox("Masukin Email dan Password Ente gan.", Microsoft.VisualBasic.MsgBoxStyle.Critical, Me.Text)
            Else
                WebBrowser1.Document.GetElementById("loginbutton").InvokeMember("click")
            End If
        Catch ex As Exception
        End Try

• Setelah itu, klik 2x juga pada Button2 untuk konek ke facebook, paste kode berikut

ConetToFB()

• Lalu klik 2x juga pada TextBox1 untuk alamat Email, pastekan kode berikut

        Try
            WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
            If Len(TextBox1.Text) = 0 Then
                TextBox2.Enabled = False
            Else
                TextBox2.Enabled = True
            End If
        Catch ex As Exception
        End Try

• Lalu Klik 2x pada TextBox2 untuk Password, pastekan kode berikut

        Try
            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        Catch ex As Exception
        End Try

• Lalu kita save dan coba dengan cara Play Debugger

Kode diatas untuk tampilan facebook desktop, Jika untuk tampilan facebook seluler (http://m.facebook.com)
Rubah fanction ConectToFB(), seperti ini :

    'cek koneksi
    Private Sub ConetToFB()
        Dim HomePage As String = "http://m.facebook.com/"
        Dim wc As New WebClient
        Dim programversion As String
        Try
            programversion = wc.DownloadString(HomePage) 
        Catch ex As Exception
            MessageBox.Show("Periksa koneksi Ente gan.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)           
        End Try
        wc.Dispose()

        If programversion = My.Application.Info.Version.ToString Then
        End If
        If Not My.Application.Info.Version.ToString = programversion Then
            WebBrowser1.Navigate("http://m.facebook.com/")
        End If
    End Sub

Dan pada kode Button1, rubah seperti ini :

        Try
            If Len(TextBox1.Text) = 0 Or Len(TextBox2.Text) = 0 Then
                MsgBox("Masukin Email dan Password Ente gan.", Microsoft.VisualBasic.MsgBoxStyle.Critical, Me.Text)
            Else
                WebBrowser1.Document.GetElementById("login").InvokeMember("click")
            End If
        Catch ex As Exception
        End Try

Saya rasa cukup sampai disini, pasti sudah pada pahamkan?
Biar ga pusing,, saya sertakan juga demo dan source codenya.

Download Demo atau Download Sorce Code

Selamat memncoba, semoga bermanfaat.