Discord Server Red Security Twitter Donation to Red Security Red Security Youtube Channel Red Security Tumblr Profile
Login or Register to Hide ads and Accessing all features on the forum
Thread Rating:
  • 10 Vote(s) - 2.6 Average
  • 1
  • 2
  • 3
  • 4
  • 5
vb.net spammer
not ie did not make the design of this spammer i just did source code


1 textbox 2 button 1 label funny thing there is no timer in source

Public Class Form1

    Private mPrevPos As New Point
    Private Sub moveme(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
        If (e.Button = MouseButtons.Left) Then
            Me.Location += delta
            mPrevPos = e.Location - delta
            mPrevPos = e.Location
        End If
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        If bg1.IsBusy = True Then bg1.CancelAsync()
    End Sub

    Private Sub Label2_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.MouseEnter
        Label2.ForeColor = Color.Red
    End Sub

    Private Sub Label2_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.MouseLeave
        Label2.ForeColor = Color.White
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Length > 1 = True Then
            TextBox1.Enabled = False
            If bg1.IsBusy = False Then
                MessageBox.Show("You have 3 seconds to click the window you want to spam", "!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Button1.Text = "Stop"
            Else : bg1.CancelAsync()
                Button1.Text = "Start"
                TextBox1.Enabled = True
            End If
        Else : MessageBox.Show("Enter some text!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Sub work() Handles bg1.DoWork
        While True
            If bg1.CancellationPending = True Then Exit Sub
            SendKeys.SendWait(TextBox1.Text & "{Enter}")
        End While
    End Sub

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

    End Sub
End Class

image of spammer

Thank you Virus for sharing with us your codes.
* Thankful to Allah *

Possibly Related Threads…
Thread Author Replies Views Last Post
  Basic vb.net spammer viruss 2 2,274 06-18-2017, 11:46 AM
Last Post: viruss

Users browsing this thread: 1 Guest(s)