Results 1 to 10 of 10

Thread: Auto-Typer + Auto-Clicker

  1. #1
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default Auto-Typer + Auto-Clicker

    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
    Code:
    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
    Code:
    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




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  2. #2
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

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

  3. #3
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

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




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  4. #4
    Join Date
    Dec 2011
    Location
    Sydney
    Posts
    1,284
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by R4nd0m View Post
    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.

  5. #5
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    Does it? My bad




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  6. #6
    Join Date
    Dec 2011
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

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

  7. #7
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    thanks, I am grateful for anyone who uses it haha




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  8. #8
    Join Date
    Feb 2012
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am using this and it auto clicks like a BOSS

  9. #9
    Join Date
    Mar 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

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

  10. #10
    Join Date
    Nov 2012
    Location
    N/A
    Posts
    185
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Exclamation

    Quote Originally Posted by herpsmate View Post
    Can you make it do like 8 lines of type? 8 different messages? <3
    I made this auto-typer a while ago(C#):
    Code:
    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: autotyper.PNG

    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •