.NET Simple Auto Typer - Printable Version

[.NET] Simple Auto Typer - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] Simple Auto Typer (/showthread.php?tid=5010946)

Simple Auto Typer - Lone - Oct 4, 2015

Still learning everything and I gained a bit of knowledge doing this so I thought I would release it here so others could possibly use bits of it to learn from.

Finished Product design: Spoiler (Click to View)

Source: Spoiler (Click to View)

Code 
Public Class Form1

    Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer

    Private Sub buttonAdd_Click(sender As Object, e As EventArgs) Handles buttonAdd.Click

        Dim text As String = textBoxSpam.Text

        listSpam.Items.Add(textBoxSpam.Text)

        labelStatus.Text = String.Format("Added: {0}", text)

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim random As Integer = (Math.Ceiling(Rnd() * 9)) + 1

        Dim listRandom As String = String.Format("{0} {1}", listSpam.SelectedItem, random)

        If checkRandomNumbers.Checked Then

            SendKeys.Send(listRandom)

            SendKeys.Send("{Enter}")

            If listSpam.SelectedIndex = listSpam.Items.Count - 1 Then

                listSpam.SelectedIndex = 0

            Else

                listSpam.SelectedIndex += 1

            End If

        ElseIf Not checkRandomNumbers.Checked Then

            SendKeys.Send(listSpam.SelectedItem)

            SendKeys.Send("{Enter}")

            If listSpam.SelectedIndex = listSpam.Items.Count - 1 Then

                listSpam.SelectedIndex = 0

            Else

                listSpam.SelectedIndex += 1

            End If

        End If

    End Sub

    Private Sub buttonStart_Click(sender As Object, e As EventArgs) Handles buttonStart.Click

        Dim trackBarVal As String = trackBar.Value

        Dim textboxVal As String = textInterval.Text

        If IsNumeric(textInterval.Text) Then

            Timer1.Interval = textInterval.Text * 1000

            Timer1.Start()

            labelStatus.Text = String.Format("Spamming at {0}", textboxVal)

        Else

            Timer1.Interval = trackBar.Value * 1000

            Timer1.Start()

            labelStatus.Text = String.Format("Spamming at {0} Seconds", trackBarVal)

        End If

    End Sub

    Private Sub buttonStop_Click(sender As Object, e As EventArgs) Handles buttonStop.Click

        listSpam.SelectedIndex = 0

        If (Timer1.Enabled) Then

            Timer1.Stop()

            labelStatus.Text = ("Stopped!")

        End If

    End Sub

    Private Sub NexusButton2ColorRed1_Click(sender As Object, e As EventArgs) Handles NexusButton2ColorRed1.Click

        listSpam.Items.Remove(listSpam.SelectedItem)

        labelStatus.Text = ("Removed Item")

    End Sub

    Private Sub trackBar_Scroll(sender As Object) Handles trackBar.Scroll

        textInterval.Text = trackBar.Value

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        If GetKeyPress(Keys.F11) Then

            If Timer1.Enabled = False Then

                listSpam.SelectedIndex = 0

                Timer1.Interval = textInterval.Text * 1000

                Timer1.Start()

            End If

        End If

        If GetKeyPress(Keys.F12) Then

            If Timer1.Enabled = True Then

                Timer1.Stop()

            End If

        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        Timer2.Interval = 500

        Timer2.Start()

    End Sub

End Class

Theme download Nexus Theme

I doubt it's against the rules to link to the solution download but gonna check to make sure so if you want it before I get it here pm me.

Thanks a lot to Earn who helped out a ton and Layle for the awesome theme 😁

* - debug - Oct 4, 2015

Nothing special here, but good to see more people learning .NET. Good work.

* - Jackie Chun - Oct 4, 2015

Code 
Dim Lines() As String 'making our string name into an array by adding () at the end of it.

  Sub Spam(ByVal TextToSpam) 'Setting an argument for the Text To Spam

        Lines = TextToSpam 'Setting our array to our sub arguments

        If Lines.Count > 0 Then 'Checking if there is any lines of text

            For Each CurrentTextLine As String In Lines 'Loops through each line of text

                SendKeys.Send(CurrentTextLine) 'Sends the privately declared(it only can be called/exists inside this loop) string "CurrentTextLine" which is the current text line within this loop of each item in the array. 

                SendKeys.Send("{ENTER}") 

            Next 'Goes to the NEXT text line within the array

  End If

End Sub

Usage,

Code 
Spam(RichTextBox.Lines)'I am calling the sub, which additionally has arguments set up so I have to handle those arguments, in this case the argument is for the text we're going to spam.

* - BahNahNah - Oct 4, 2015

(Oct 4, 2015 09:33 PM)Jackie Chun Wrote:
Code
Dim Lines() As String 'making our string name into an array by adding () at the end of it. Sub Spam(ByVal TextToSpam) 'Setting an argument for the Text To Spam Lines = TextToSpam 'Setting our array to our sub arguments If Lines.Count > 0 Then 'Checking if there is any lines of text For Each CurrentTextLine As String In Lines 'Loops through each line of text SendKeys.Send(CurrentTextLine) 'Sends the privately declared(it only can be called/exists inside this loop) string "CurrentTextLine" which is the current text line within this loop of each item in the array. SendKeys.Send("{ENTER}") Next 'Goes to the NEXT text line within the array End If End Sub

Usage,

Code
Spam(RichTextBox.Lines)'I am calling the sub, which additionally has arguments set up so I have to handle those arguments, in this case the argument is for the text we're going to spam.

You don't need to check if an array is empty when using for each. If the array is not null then it won't throw any errors.