Thursday, March 29, 2012

Advanced login system (semi-auto)



Sambungan dari Login system (semi-auto)

Selepas di edit dari system yang asal:-

GUI:-

Form1


Form2


Form3




 Coding:-

Module1

Module Module1
    Public GmailX As String
    Public GmailY As String
    Public GmailUser As String
    Public GmailPass As String
    Public YahooX As String
    Public YahooY As String
    Public YahooUser As String
    Public YahooPass As String
    Public YoutubeX As String
    Public YoutubeY As String
    Public YoutubeUser As String
    Public YoutubePass As String
    Public FacebookX As String
    Public FacebookY As String
    Public FacebookUser As String
    Public FacebookPass As String
    Public BloggerX As String
    Public BloggerY As String
    Public BloggerUser As String
    Public BloggerPass As String
End Module


Form1

Public Class Form1
    Public username As String
    Public password As String
    Public Declare Sub SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer)
    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8
    Public Const MOUSEEVENTF_RIGHTUP = &H10

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Xlbl.Text = Cursor.Position.X
        Ylbl.Text = Cursor.Position.Y
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim first As Integer = TextBox3.Text
        Dim second As Integer = TextBox4.Text
        SetCursorPos(first, second)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        Timer2.Enabled = True

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        username = Usernametxt.Text
        password = Passwordtxt.Text
        SendKeys.Send(username)
        SendKeys.Send("{TAB}")
        SendKeys.Send(password)
        SendKeys.Send("{ENTER}")
        Timer2.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
        Form2.GmailGB.Enabled = False
        Form2.YoutubeGB.Enabled = False
        Form2.YahooGB.Enabled = False
        Form2.FacebookGB.Enabled = False
        Form2.BloggerGB.Enabled = False
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If Gmailcbox.Checked = True Then
            Yahoocbox.Enabled = False
            Facebookcbox.Enabled = False
            Youtubecbox.Enabled = False
            Bloggercbox.Enabled = False
            TextBox3.Text = GmailX
            TextBox4.Text = GmailY
            Usernametxt.Text = GmailUser
            Passwordtxt.Text = GmailPass
        ElseIf Yahoocbox.Checked = True Then
            Gmailcbox.Enabled = False
            Facebookcbox.Enabled = False
            Youtubecbox.Enabled = False
            Bloggercbox.Enabled = False
            TextBox3.Text = YahooX
            TextBox4.Text = YahooY
            Usernametxt.Text = YahooUser
            Passwordtxt.Text = YahooPass
        ElseIf Facebookcbox.Checked = True Then
            Gmailcbox.Enabled = False
            Yahoocbox.Enabled = False
            Youtubecbox.Enabled = False
            Bloggercbox.Enabled = False
            TextBox3.Text = FacebookX
            TextBox4.Text = FacebookY
            Usernametxt.Text = FacebookUser
            Passwordtxt.Text = FacebookPass
        ElseIf Youtubecbox.Checked = True Then
            Gmailcbox.Enabled = False
            Yahoocbox.Enabled = False
            Facebookcbox.Enabled = False
            Bloggercbox.Enabled = False
            TextBox3.Text = YoutubeX
            TextBox4.Text = YoutubeY
            Usernametxt.Text = YoutubeUser
            Passwordtxt.Text = YoutubePass
        ElseIf Bloggercbox.Checked = True Then
            Gmailcbox.Enabled = False
            Yahoocbox.Enabled = False
            Facebookcbox.Enabled = False
            Youtubecbox.Enabled = False
            TextBox3.Text = BloggerX
            TextBox4.Text = BloggerY
            Usernametxt.Text = BloggerUser
            Passwordtxt.Text = BloggerPass
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Gmailcbox.Checked = True Then
            Gmailcbox.Checked = False
            Yahoocbox.Enabled = True
            Facebookcbox.Enabled = True
            Youtubecbox.Enabled = True
            Bloggercbox.Enabled = True
            TextBox3.Text = ""
            TextBox4.Text = ""
            Usernametxt.Text = ""
            Passwordtxt.Text = ""
            coverPass.Visible = False
        ElseIf Yahoocbox.Checked = True Then
            Yahoocbox.Checked = False
            Gmailcbox.Enabled = True
            Facebookcbox.Enabled = True
            Youtubecbox.Enabled = True
            Bloggercbox.Enabled = True
            TextBox3.Text = ""
            TextBox4.Text = ""
            Usernametxt.Text = ""
            Passwordtxt.Text = ""
            coverPass.Visible = False
        ElseIf Facebookcbox.Checked = True Then
            Facebookcbox.Checked = False
            Gmailcbox.Enabled = True
            Yahoocbox.Enabled = True
            Youtubecbox.Enabled = True
            Bloggercbox.Enabled = True
            TextBox3.Text = ""
            TextBox4.Text = ""
            Usernametxt.Text = ""
            Passwordtxt.Text = ""
            coverPass.Visible = False
        ElseIf Youtubecbox.Checked = True Then
            Youtubecbox.Checked = False
            Gmailcbox.Enabled = True
            Yahoocbox.Enabled = True
            Facebookcbox.Enabled = True
            Bloggercbox.Enabled = True
            TextBox3.Text = ""
            TextBox4.Text = ""
            Usernametxt.Text = ""
            Passwordtxt.Text = ""
            coverPass.Visible = False
        ElseIf Bloggercbox.Checked = True Then
            Bloggercbox.Checked = False
            Gmailcbox.Enabled = True
            Yahoocbox.Enabled = True
            Facebookcbox.Enabled = True
            Youtubecbox.Enabled = True
            TextBox3.Text = ""
            TextBox4.Text = ""
            Usernametxt.Text = ""
            Passwordtxt.Text = ""
            coverPass.Visible = False
        Else
            Gmailcbox.Enabled = True
            Yahoocbox.Enabled = True
            Facebookcbox.Enabled = True
            Youtubecbox.Enabled = True
            Bloggercbox.Enabled = True

        End If
       
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.Show()
        Timer5.Enabled = True
        Timer4.Enabled = True
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        GmailX = Form2.GmailXtxt.Text
        GmailY = Form2.GmailYtxt.Text
        GmailUser = Form2.GmailUSERtxt.Text
        GmailPass = Form2.GmailPASStxt.Text
        YahooX = Form2.YahooXtxt.Text
        YahooY = Form2.YahooYtxt.Text
        YahooUser = Form2.YahooUSERtxt.Text
        YahooPass = Form2.YahooPASStxt.Text
        FacebookX = Form2.FacebookXtxt.Text
        FacebookY = Form2.FacebookYtxt.Text
        FacebookUser = Form2.FacebookUSERtxt.Text
        FacebookPass = Form2.FacebookPASStxt.Text
        YoutubeX = Form2.YoutubeXtxt.Text
        YoutubeY = Form2.YoutubeYtxt.Text
        YoutubeUser = Form2.YoutubeUSERtxt.Text
        YoutubePass = Form2.YoutubePASStxt.Text
        BloggerX = Form2.BloggerXtxt.Text
        BloggerY = Form2.BloggerYtxt.Text
        BloggerUser = Form2.BloggerUSERtxt.Text
        BloggerPass = Form2.BloggerPASStxt.Text
        Timer4.Enabled = False
    End Sub

    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        Form2.Hide()
        Timer5.Enabled = False
    End Sub

    Private Sub GoogleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoogleToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://www.google.com.my/")
    End Sub

    Private Sub FacebookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacebookToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://www.google.com.my/search?hl=en&site=&source=hp&q=facebook&oq=face&aq=0&aqi=g10&aql=&gs_l=hp.1.0.0l10.3271l3779l0l4816l4l4l0l1l1l0l140l218l1j1l2l0.frgbld.")
    End Sub

    Private Sub YahooToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YahooToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://www.yahoo.com/")
    End Sub

    Private Sub YoutubeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YoutubeToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://www.youtube.com/")
    End Sub

    Private Sub BloggerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BloggerToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://www.google.com.my/search?hl=en&site=&source=hp&q=blogger&oq=blogger&aq=f&aqi=g10&aql=&gs_l=hp.3..0l10.1950l2913l0l3146l7l7l0l1l1l0l104l254l2j1l3l0.frgbld.")
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub MeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MeToolStripMenuItem.Click
        MsgBox("Created by relax from Malaysia", , "About")
    End Sub

    Private Sub Gmailcbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gmailcbox.CheckedChanged
        If Gmailcbox.Checked = True Then
            coverPass.Visible = True
        End If
    End Sub

    Private Sub Yahoocbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yahoocbox.CheckedChanged
        If Yahoocbox.Checked = True Then
            coverPass.Visible = True
        End If
    End Sub

    Private Sub Facebookcbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Facebookcbox.CheckedChanged
        If Facebookcbox.Checked = True Then
            coverPass.Visible = True
        End If
    End Sub

    Private Sub Bloggercbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bloggercbox.CheckedChanged
        If Bloggercbox.Checked = True Then
            coverPass.Visible = True
        End If
    End Sub

    Private Sub Youtubecbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Youtubecbox.CheckedChanged
        If Youtubecbox.Checked = True Then
            coverPass.Visible = True
        End If
    End Sub
End Class


Form2

Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Validate()
        Me.DetailsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DetailsDataSet)

        GmailX = GmailXtxt.Text
        GmailY = GmailYtxt.Text
        GmailUser = GmailUSERtxt.Text
        GmailPass = GmailPASStxt.Text
        YahooX = YahooXtxt.Text
        YahooY = YahooYtxt.Text
        YahooUser = YahooUSERtxt.Text
        YahooPass = YahooPASStxt.Text
        FacebookX = FacebookXtxt.Text
        FacebookY = FacebookYtxt.Text
        FacebookUser = FacebookUSERtxt.Text
        FacebookPass = FacebookPASStxt.Text
        YoutubeX = YoutubeXtxt.Text
        YoutubeY = YoutubeYtxt.Text
        YoutubeUser = YoutubeUSERtxt.Text
        YoutubePass = YoutubePASStxt.Text
        BloggerX = BloggerXtxt.Text
        BloggerY = BloggerYtxt.Text
        BloggerUser = BloggerUSERtxt.Text
        BloggerPass = BloggerPASStxt.Text

        Form1.Show()
        Me.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Close()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DetailsDataSet.Details' table. You can move, or remove it, as needed.
        Me.DetailsTableAdapter.Fill(Me.DetailsDataSet.Details)
       
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.DetailsBindingSource.AddNew()
        GmailGB.Enabled = True
        YahooGB.Enabled = True
        FacebookGB.Enabled = True
        YoutubeGB.Enabled = True
        BloggerGB.Enabled = True
        Button1.Enabled = True
        Button3.Enabled = False

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form3.Show()
        Me.Close()
    End Sub
End Class



Form3

Public Class Form3

    Private Sub DetailsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DetailsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.DetailsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DetailsDataSet)

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DetailsDataSet.Details' table. You can move, or remove it, as needed.
        Me.DetailsTableAdapter.Fill(Me.DetailsDataSet.Details)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Close()
    End Sub
End Class

Results:-
Kalau rajin relax bubuh dalam ni ye....


*********************************


Sebenarnya system ini boleh login yahoo, gmail and youtube secara semi-automatic. (Facebook and blogger ada masalah sikit).

Hehe, kalau nak buat 100% automatic pening kepala sikit. Jadi buat masa sekarang semi automatic je la ye....

Nak kata system ni membantu orang sangat, tak la juga.

(System yang di ubahsuai dari yang asal untuk mengisi masa lapang ku.) 


Hahaha....

Cau lu....


Sekarang

Typing Test

Visit the Typing Test and try!