Skip to main content

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....


Labels:

Comments

Post a Comment

Popular posts from this blog

Silat cekak ustad hanafi dan silat gayong malaysia

Assalamualaikum , Persilatan adalah.... sory la google sediri. Sebab relax bab2 nak merungkai apa itu persilatan memang x pandai. Bukan apa kalau salah mentafsir nanti orang marah. Cuma kat sini nak cakap sikit pasal Silat Cekak Ustad Hanafi dan Silat gayong malaysia. Silat cekak ustad hanafi Mengenai silat cekak ( sini ). Laman rasmi silat cekak ( sini ). Berikut adalah sedikit sebanyak pasal silat cekak: - x payah bunyi suara. - Hanya berdiri tegak. - Mempunyai 21 buah dan ada juga buah umum. - Lebih menitiberatkan pertahanan persilat. - Hanya ada 1 sahaja buah serang. - Sesama ahli tidak boleh bergaduh kerana pengakhirannya ialah seri. -    Gerak yang ringkas -    Senjata yang digunakan parang lading dan wali jantan. -    Diam2 ubi berisi. dan sebagainya.... Silat gayong malaysia - Kena bunyi suara (ada sebabnya) - Perlu membuka langkah (kekuda) -    Mempunyai banyak buah -    Menggunakan pelbagai senjata. ...
Post a Comment
Read more

PERINGKAT PERKEMBANGAN MANUSIA

Baru relax tau kenapa relax tak leh terima lagi bab-bab_____  di kalangan kawan-kawan ku (ala kalau nak tau apa di tempat kosong 2 sila baca entry sebelum ni .) Baru hari ni relax sedar kenapa relax masih tidak boleh menerima hakikat itu. Tapi kali ni dari sudut psikologi. Dalam psikologi, perkembangan manusia mempunyai 11 jarak waktu, iaitu: Waktu pranatal: Semasa bayi di dalam kandungan. Peringkat bayi awal:  Semasa lahir hingga 2 bulan Peringkat bayi akhir: 2 bulan-2 tahun Peringkat kanak-kanak awal: 2 tahun – 6 tahun Perinkat kanak-kanak akhir: 6 tahun – 12 tahun Peringkat sebelum remaja: 12 tahun -14tahun Peringkat awal remaja: 14 tahun – 17 tahun Peringkat akhir remaja: 17 tahun – 20 tahun Peringkat awal dewasa: 20 tahun- 40 tahun Peringkat pertengahan umur: 40 tahun – 60 tahun Peringkat umur tua atau lanjut usia: 60 tahun ke atas. Eeerrmmm, berdasarkan peringkat ini relax rasa relax di peringkat awal dewasa. Mungkin inilah penyebab kenapa relax masih ti...
1 comment
Read more

Perbezaan sedih dan sebak

Eeeeerrrrmmmm, sedih dan sebak nampak samakan. Sebenarnya nampak je sama tetapi ada bezanya.  Sebak dan sedih, Sama dari segi hasil, Berbeza dari segi pengawalan, Kedua-duanya menghasilkan air mata, Sebak tidak boleh di kawal, Sedih boleh di kawal, Inilah perbezaannya, Sedih dan sebak, Sebak lahir dari hati, Sedih lahir dari emosi, Inilah faktor mengapa sebak itu tidak boleh di kawal, Usah kau kata kau kuat, Tidak akan mengalirkan air mata, Sampai satu ketika, Kau tidak akan boleh mengawal air mata itu, Ini lah sebak,  Diri tidak mahu, Tetapi hati membentak mahukan air mata, Makanya otak tidak lagi mengawal, Sebaliknya hati, Sedih, Hadirnya boleh di minta, Membayangkan satu kepiluan, Saat ini otak menafsir, Seterusnya air mata mengalir, Kebanyakkan lelaki, Tidak akan mengalirkan air mata, (ye la kut) Tetapi saat air mata mengalir dari matanya, It...
Post a Comment
Read more