Cara Membuat Form Login Facebook dengan Vb.net

Cara Membuat Form Login Facebook  dengan Vb.net

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 kefacebook
• 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