Cara Membuat Form Login Facebook dengan Vb.net
- 2 TextBox
- 2 Button
- 2 Label
- 1 WebBrowser
- 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 :
Rubah fanction ConectToFB(), seperti ini :
'cek koneksiDan pada kode Button1, rubah seperti ini :
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
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
Thank you admin, ilmunya sangat membantu...
ReplyDeletePermisi admin saya mau tanya, kalau function buat ambil value di elemen itu apa ya min, saya coba tapi value yg ketangkep malah kosong min...
ReplyDeleteTrima kasih sebelumnya
Wawan
Menangkan Jutaan Rupiah dan Dapatkan Jackpot Hingga Puluhan Juta Dengan Bermain di www(.)SmsQQ(.)com
ReplyDeleteKelebihan dari Agen Judi Online SmsQQ :
-Situs Aman dan Terpercaya.
- Minimal Deposit Hanya Rp.10.000
- Proses Setor Dana & Tarik Dana Akan Diproses Dengan Cepat (Jika Tidak Ada Gangguan).
- Bonus Turnover 0.3%-0.5% (Disetiap Harinya)
- Bonus Refferal 20% (Seumur Hidup)
-Pelayanan Ramah dan Sopan.Customer Service Online 24 Jam.
- 4 Bank Lokal Tersedia : BCA-MANDIRI-BNI-BRI
8 Permainan Dalam 1 ID :
Poker - BandarQ - DominoQQ - Capsa Susun - AduQ - Sakong - Bandar Poker - Bandar66
Info Lebih Lanjut Hubungi Kami di :
BBM: 2AD05265
WA: +855968010699
Skype: smsqqcom@gmail.com