Login system (semi-auto)

Selamat pagi or malam or tengahari ku ucapkan,

Seperti biasa menjelajah di alam maya, terjumpa system ni. Nampak macam menarik. Jadi ku ambil bubuh la dalam blog ni (ayat entah apa-apa).

Satu perkongsian yang hendak ku kongsikan bersama iaitu semi-automatic login system.

Gui (basic)

Basic Coding:

Public Class Form1

    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

        TextBox1.Text = Cursor.Position.X

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

        SendKeys.Send("your username")

        SendKeys.Send("{TAB}")

        SendKeys.Send("your password")

        SendKeys.Send("{ENTER}")

        Timer2.Enabled = False

    End Sub

End Class

Thanks to:-

 Sambungan di sini