Auto-Typer + Auto-Clicker

[[XoL]]

Right a LONG time ago I made an auto-typer and an auto-clicker (Before I knew about GarysHood) I personally think they are very basic but they get the job done!

I will also post the code so if anybody wants to learn off it they can.

The Auto-Clicker



Public Class Form1
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
'Honestly, I had no idea what the above line was until I looked up a tutorial on how to make an autoclicker/basically this is what calls upon the mouseclicking it also works with user64 (but, I am guessing it will only work on 64bit computers)
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Integer) As Short
'this gives the option to get keys (like in c# but a little differently)
Private Const mouseclickup = 4
Private Const mouseclickdown = 2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = TextBox1.Text
mouse_event(mouseclickup, 0, 0, 0, 0)
mouse_event(mouseclickdown, 0, 0, 0, 0)
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If GetAsyncKeyState(Keys.F4) Then
If CheckBox1.Checked = True Then
Timer1.Start()
End If
End If
If Getasynckeystate(Keys.F6) Then
Timer1.Stop()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Text = Val(Button3.Text) + Val(1)
End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

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

End Sub
End Class


The Auto-Typer


Public Class Form1
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Integer) As Short
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = TextBox2.Text * 1000
Timer1.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If GetAsyncKeyState(Keys.F4) Then
Timer1.Start()
End If
If Getasynckeystate(Keys.F6) Then
Timer1.Stop()
End If
End Sub

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

End Sub
End Class

[P1nky]

Naice, but as far as I know Gary's clicker doesn't get many people banned.
Will this?

[[XoL]]

Well this has a random statement inside so I guess it would be harder to get banned; I know garys does not randomize

[DeiJaiVui]

Well this has a random statement inside so I guess it would be harder to get banned; I know garys does not randomize

It does, lol. :duh:

[[XoL]]

Does it? My bad :p

[Gushers]

Haha yeah his does randomize. But this is still very nice, I'll use this when I'm trying to sell something! Thanks.

[[XoL]]

:D thanks, I am grateful for anyone who uses it haha

[Franju]

I am using this and it auto clicks like a BOSS

[herpsmate]

Can you make it do like 8 lines of type? 8 different messages? <3

[CRASH_OVERRIDE]

Can you make it do like 8 lines of type? 8 different messages? <3

I made this auto-typer a while ago(C#):

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace autotyper2
{
public partial class Form1 : Form
{
int count = 0;
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
SendKeys.Send("%{TAB}");

timer1.Enabled = true;
}

private void timer1_Tick(object sender, EventArgs e)
{
Random randomnum = new Random();

timer1.Interval = randomnum.Next(125, 225);

if (count < textBox1.Text.Length)
{
SendKeys.Send(textBox1.Text.Substring(count, 1));

count++;
}

else
{
count = 0;

int interval = 0;
bool success = Int32.TryParse(listBox1.Text, out interval);

if (success)
{
timer1.Interval = interval;
}

progressBar1.Minimum = 0;
progressBar1.Maximum = 100;
progressBar1.Step = 3;
progressBar1.PerformStep();
SendKeys.Send("{Enter}");
if (progressBar1.Value == 100)
{
progressBar1.Value = 0;
}
}
}

private void button2_Click(object sender, EventArgs e)
{
timer1.Enabled = false;
progressBar1.Value = 0;
}
}
}


Images: 20606

Download link(again too large for this forum): http://www.mediafire.com/?2m9po976w2wkhmy

My download files are always clean and always have been. If you don't trust me scan the above with anything you want. What you see is what you get. This Auto-typer will type every new line you have in the text window, not to mention mediafire itself has virus scanners when you upload content. Thought i would add a download link for those who cant use C#.

-Crash.