How to create form login facebook using Vb6

A simple Code
very easy for beginners

This SS from App me ^_^
using a CommandButton and webbrowser Control :p

Form Login

Screen Menu 

 

Tutor 

1. Open Vb6

2. Create New Project

3. Click Project >Preferences

    view table & Select "Microsoft HTML Object Library"

4. Click Project > Components
    View Table & Select "Microsoft Internet Control"

5. Prepare components
    - 1 From
    - 2 text box
    - 5 CommandButton
    - 1 webbrowser
    - Add me facebook > Cupak
    Properti
     - Form = form1
     - text1 properti text = empty
     - text2 properti text = empty
     - command1 properti Caption = &Login 
     - command2 properti Caption = &Awal
     - command3 properti Caption = &Pesan
     - command4 properti Caption = &Obrolan
     - command5 properti Caption = &Keluar 
     - webbrowser = webbrowser1 

6. Design as you like

7 .  Click on the form and paste the following script :

  
 
Option Explicit Private Const m_sURI As String = "http://m.facebook.com" Private Sub Command1_Click() Cupak End Sub Private Sub Command2_Click() WebBrowser1.Navigate "https://m.facebook.com" End Sub Private Sub Command3_Click() WebBrowser1.Navigate "https://m.facebook.com/messages/?ref_component=mbasic_home_header&ref_page=MChatBuddyListController" End Sub Private Sub Command4_Click() WebBrowser1.Navigate "https://m.facebook.com/buddylist.php?ref_component=mbasic_home_header&ref_page=%2Fwap%2Fhome.php&refid=8" End Sub Private Sub Command5_Click() End End Sub Private Sub Form_Load() WebBrowser1.Resizable = True WebBrowser1.Navigate m_sURI End Sub Sub Cupak() Dim HTML As HTMLDocument Dim HTMLI As HTMLInputElement Dim inputButton As HTMLInputElement Dim uName As String Dim uPass As String Dim log As String On Error GoTo ErrorHandler: uName = Text1.Text uPass = Text2.Text Set HTML = WebBrowser1.Document For Each HTMLI In HTML.getElementsByTagName("input") HTMLI.Value = uName Select Case HTMLI.Type Case "password" HTMLI.Value = uPass HTMLI.Form.submit inputButton.Click End Select Next HTMLI MsgBox "sukses", vbInformation, "sukses" Me.Height = 7540 WebBrowser1.Height = 8500 WebBrowser1.Width = 4650 WebBrowser1.Visible = True Command2.Visible = True Command3.Visible = True Command4.Visible = True Text1.Visible = False Text2.Visible = False Exit Sub ErrorHandler: ' Handle error ... End Sub Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) Me.Caption = WebBrowser1.LocationURL End Sub

If you want to download project