Jump to content
Sign in to follow this  
wendellgun

Help on AutoClick

Recommended Posts

It is not clear what you want:

- is this shown window from your script?

- what do you want to click?

Jos

Share this post


Link to post
Share on other sites

I did this drawing in koda

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 280, 106, 324, 298)
$Input1 = GUICtrlCreateInput("Input1", 72, 24, 65, 21)
$Label1 = GUICtrlCreateLabel("Auto Click Left", 0, 24, 73, 17)
$Button1 = GUICtrlCreateButton("F2 Start", 16, 56, 105, 41)
$Label2 = GUICtrlCreateLabel("(X Clicks with sleep 1000)", 144, 24, 125, 17)
$Button2 = GUICtrlCreateButton("F3 Pause", 144, 56, 105, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd

Now I need to plan to do exactly as the design

I need to streamline my work

Share this post


Link to post
Share on other sites

Im sooo noob in program

I will try to explain in pascal

----------------

enter the amount of clicks

read(input1);

first = 0

While first < input1

Do

MouseClick("Left")

Sleep(1000)

can someone do this program for me?

Edited by wendellgun

Share this post


Link to post
Share on other sites

Im trying with no pause becouse i dont know the comand

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Auto Click", 282, 58, 192, 124)
$Button1 = GUICtrlCreateButton("F2 para iniciar", 8, 8, 113, 41)
$Button2 = GUICtrlCreateButton("F3 para pausar", 136, 8, 129, 41)
Dim $Form1_AccelTable[2][2] = [["{F2}", $Button1],["{F3}", $Button2]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
         Global $First
$First = 0
Do
   MouseClick("Left")
   Sleep(1000)
   $First += 1
Until $First = 100
EndSwitch
WEnd

and working but i dont want this way :/

Edited by wendellgun

Share this post


Link to post
Share on other sites

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Auto Click", 282, 120, 192, 124)
$Button1 = GUICtrlCreateButton("F2 para iniciar", 8, 8, 113, 41)
$Button2 = GUICtrlCreateButton("F3 para pausar", 136, 8, 129, 41)
$label = GUICtrlCreateLabel("Number: ", 130, 85)
$input = GUICtrlCreateInput("", 180,80,80,25)
Dim $Form1_AccelTable[2][2] = [["{F2}", $Button1],["{F3}", $Button2]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   $First = 0
   Do
    MouseClick("Left")
    Sleep(1000)
    $First += 1
   Until $First = GUICtrlRead($input)
 EndSwitch
WEnd


I feel nothing.It feels great.

Share this post


Link to post
Share on other sites

I would do it like this if i was you. This is how you can toggle it.

HotKeySet("s", "_start")
HotKeySet("p", "_pause")
HotKeySet("e", "_exit")
$Active = 0
$button = "left"

While (True)
 If $Active = 1 Then
  MouseClick($button)
  Sleep(1000)
 EndIf
WEnd
Func _start()
 $Active = 1
EndFunc
Func _pause()
 $Active = 0
EndFunc
Func _exit()
 Exit
EndFunc

I feel nothing.It feels great.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...