Results 1 to 10 of 10
  1. #1
    leeonardo
    leeonardo is offline
    Moderator leeonardo's Avatar
    Join Date
    2012 Jan
    Location
    Here I am.
    Posts
    2,219
    Thanks Thanks Given 
    48
    Thanks Thanks Received 
    3,122
    Thanked in
    737 Posts
    Rep Power
    15

    How to make a simple Auto Click.

    First add:

    2 Buttons (Standard tab)
    1 Timer (System tab)
    1 Edit (Standard tab)


    Click in the Form1 and change the "Caption" to "Auto Click".



    Click in the Timer and on the "Enabled", change the "True" to "False".



    Change the "Caption" from Button1 to "On" or "Enable."

    And add the following code:

    Code:
    timer1.interval:= strtoint(edit1.text);
    timer1.enabled:= true;


    Change the "Caption" from Button2 to "Off" or "Disable."

    And add the following code:

    Code:
    timer1.enabled:= false;


    Now in the Timer add the following code:

    Code:
    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
       mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);


    To avoid any possible errors at compile time, delete whatever is in the "Text" of Edit1, look in the "Object Inspector".



    Now make a nicer appearance. Click on the "Additional" and add an image. Click on "Picture" and add an image to your liking.



    Also I use the VCLSkin, add 1 SkinData and 1 SkinCaption, then just go and pick SkinStore.
    Do not forget to change in the SkinData "Active" to "True."

    After only give F9 and if nothing is wrong, Auto Click done.



    Then just save your project, done that open the new file "Project1", compile it and your program is ready to be used.

    How to Install VCLSkin





    É pra ficar com medo?



    Apenas observo...



    Não faço nenhum tipo de venda de hack no jogo, então se in game ver algum "Leonardo PGC" não acredite, pois será alguém tentando te roubar.

  2. The Following 3 Users Say Thank You to leeonardo For This Useful Post:


  3. #2
    Joaooo4x4
    Joaooo4x4 is offline
    New member Joaooo4x4's Avatar
    Join Date
    2012 Jun
    Posts
    10
    Thanks Thanks Given 
    6
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0
    Nice job, i'will use
    " '-' "
    Burnn him G_Zui

  4. #3
    Grooguz
    Grooguz is offline
    BanHammer Holder
    Grooguz's Avatar
    Join Date
    2010 May
    Posts
    678
    Thanks Thanks Given 
    152
    Thanks Thanks Received 
    537
    Thanked in
    167 Posts
    Rep Power
    15
    Good tutorial
    But don't forget about some unspoken rules - validate every input
    Code:
    timer1.interval:= strtoint(edit1.text);
    Should be checked for int val

    Reputation for good stuff

  5. The Following User Says Thank You to Grooguz For This Useful Post:


  6. #4
    leeonardo
    leeonardo is offline
    Moderator leeonardo's Avatar
    Join Date
    2012 Jan
    Location
    Here I am.
    Posts
    2,219
    Thanks Thanks Given 
    48
    Thanks Thanks Received 
    3,122
    Thanked in
    737 Posts
    Rep Power
    15
    Quote Originally Posted by Grooguz View Post
    Good tutorial
    But don't forget about some unspoken rules - validate every input
    Code:
    timer1.interval:= strtoint(edit1.text);
    Should be checked for int val
    Thanks for the tip, however I mainly use Delphi, I do not know some details like this.


    É pra ficar com medo?



    Apenas observo...



    Não faço nenhum tipo de venda de hack no jogo, então se in game ver algum "Leonardo PGC" não acredite, pois será alguém tentando te roubar.

  7. #5
    MrSmith
    MrSmith is offline
    Member-in-training
    Join Date
    2010 Aug
    Posts
    85
    Thanks Thanks Given 
    9
    Thanks Thanks Received 
    7
    Thanked in
    4 Posts
    Rep Power
    0

    Smile

    He means that you should have the program check if the value entered into the text box is a number or a character .

    Here is one way to do it.

    create a procedure;

    Procedure NumEdit(mEdit : TEdit);
    var
    editType: DWORD;
    begin
    editType := GetWindowLong(mEdit.Handle, GWL_STYLE);
    SetWindowLong(mEdit.Handle, GWL_STYLE, editType or ES_NUMBER);
    end;

    In form create you can set the edit box by using this simple line of code

    NumEdit(Edit1);

    this will force the edit box to accept only numbers and no other characters
    Ever Danced With The Devil By The Pale Moonlight ?

  8. #6
    gundulapek
    gundulapek is offline
    New member
    Join Date
    2012 Feb
    Posts
    24
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    1
    Thanked in
    1 Post
    Rep Power
    0
    for me i just used a very simple checking

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
    if key not in ['0'..'9'] then abort;
    end;

    you can add any others like "del" or backspace

  9. #7
    Healian
    Healian is offline
    Guest
    Join Date
    2012 Jul
    Posts
    2
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0
    man please your thread @ https://progamercity.net/code-tut/20...-requests.html

    is missing the project download link please help

  10. #8
    leeonardo
    leeonardo is offline
    Moderator leeonardo's Avatar
    Join Date
    2012 Jan
    Location
    Here I am.
    Posts
    2,219
    Thanks Thanks Given 
    48
    Thanks Thanks Received 
    3,122
    Thanked in
    737 Posts
    Rep Power
    15
    Quote Originally Posted by Healian View Post
    man please your thread @ Writing Bots for browser games based on http requests

    is missing the project download link please help
    It is not my topic, Grooguz started, should ask him.


    É pra ficar com medo?



    Apenas observo...



    Não faço nenhum tipo de venda de hack no jogo, então se in game ver algum "Leonardo PGC" não acredite, pois será alguém tentando te roubar.

  11. #9
    h4x0r
    h4x0r is offline
    h4x0r's Avatar
    Join Date
    2011 Aug
    Location
    ..\root\home\pgc
    Posts
    826
    Thanks Thanks Given 
    64
    Thanks Thanks Received 
    525
    Thanked in
    205 Posts
    Rep Power
    15
    omg VCL-Skin old VCL's .. Better to use Delphi XE2, there integrated VCL Styles. Examples

  12. The Following User Says Thank You to h4x0r For This Useful Post:


  13. #10
    leeonardo
    leeonardo is offline
    Moderator leeonardo's Avatar
    Join Date
    2012 Jan
    Location
    Here I am.
    Posts
    2,219
    Thanks Thanks Given 
    48
    Thanks Thanks Received 
    3,122
    Thanked in
    737 Posts
    Rep Power
    15
    Quote Originally Posted by h4x0r View Post
    Better to use Delphi XE2
    Indeed, much more practical and better, and not as old as the Skin VCL, which still does not stop being bad. Thanks for the tip.


    É pra ficar com medo?



    Apenas observo...



    Não faço nenhum tipo de venda de hack no jogo, então se in game ver algum "Leonardo PGC" não acredite, pois será alguém tentando te roubar.

Similar Threads

  1. [C++] How to make a simple bot
    By Dwar in forum Programming Tutorials
    Replies: 3
    Last Post: 2014-10-04, 12:53 PM
  2. [Release] Simple Auto Click for Agros
    By leeonardo in forum Aika Bots, Hacks, Cheats
    Replies: 44
    Last Post: 2012-08-09, 09:54 PM
  3. [C#] How to make a simple .Swf Player
    By XtremeLeecher in forum Programming Tutorials
    Replies: 1
    Last Post: 2012-06-19, 06:55 AM
  4. [Tutorial] Agros Auto Click uopilot
    By Iguinho90 in forum Aika Bots, Hacks, Cheats
    Replies: 14
    Last Post: 2012-04-12, 10:47 AM
  5. Simple tool for auto-click
    By sodami in forum Requiem Online
    Replies: 3
    Last Post: 2010-11-29, 04:08 PM

Posting Permissions

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