Jump to content

whatever-click-bot


Nuffilein805
 Share

Recommended Posts

;whatever-click-bot;not safe
dim $a = "", $b = "", $coord = "", $c = 0, $d[100]

HotKeySet("!{f10}", "getcolor")
HotKeySet("!{f11}", "getmorecolor")
HotKeySet("!{f9}", "start")
HotKeySet("!{f8}", "stop")
HotKeySet("!{f7}", "defposset")

while 1
    sleep (50)
WEnd

func getcolor()
    $a = MouseGetPos ()
    $b = hex(pixelgetcolor($a[0],$a[1]),6)
    IniWrite ("color.ini", "color", "found0", "0x"&$b)
EndFunc

func getmorecolor()
    $a = MouseGetPos ()
    $b = hex(pixelgetcolor($a[0],$a[1]),6)
    $c = $c + 1
    IniWrite ("color.ini", "color", "found"&$c, "0x"&$b)
EndFunc

func start()
    $get = inireadsection ("color.ini", "color")
    if iniread("color.ini", "color", "found0", "") = "" then
        msgbox(0, "", "No color pre-selected! - Exiting programm")
        Exit
    EndIf
    for $i = 0 to $get[0][0]-1 step 1
        $d[$i] = iniread ("color.ini", "color", "found", "")
    next
    While 1
        $j = -1
        do
        $j = $j + 1
        $coord = PixelSearch(0,0,@desktopwidth,@desktopheight,$d[$j],0,2)
        until not @error
        MouseClick ("left", $coord[0],$coord[1],1,1)
        MouseMove (iniread("color.ini", "mousepos", "x", 0), iniread("color.ini", "mousepos", "y", 0))
        sleep (5000)
    WEnd
EndFunc

func stop()
    while 1
        sleep (50)
    WEnd
EndFunc

func defposset()
    $a = mousegetpos()
    iniwrite("color.ini", "mousepos", "x", $a[0])
    iniwrite("color.ini", "mousepos", "y", $a[1])
EndFunc

updated the script a bit

now it searchs for more than 1 color, moves faster, returns to defaultpos (preset 0,0)

Edited by Nuffilein805
Link to comment
Share on other sites

on the first bot u made me can u just add some code in so that it stays in 1 position? so when it runs around it runs back to the original position given (automatically) that would be great

Original:

hotkeyset("!{f9}", "start");alt+f9

hotkeyset("!{f8}", "stop");alt+f8

while 1

sleep (50)

wend

func start()

while 1

$coord = pixelsearch(0,0,@desktopwidth,@desktopheight,"0x"&hex(4351430,6),0,2)

if not @error then

mouseclick("left",$coord[0],$coord[1],1)

sleep(1200);sleeps 5 sec before next click

endif

wend

endfunc

func stop()

while 1

sleep (50)

wend

endfunc

Link to comment
Share on other sites

just a short explanation what my program does

1. start the prog

2. select the first color to search for alt+f10

3. select all the other colors you want to search for alt+f11

4. select a defaultposition alt+f7

5. run the clickbot alt+f9

6. to stop the bot from clicking hit alt+f8

thats all you have to have in mind

the second time you start the script (if you still run the same prog) you can start by using 5. no need for something more

so far, have fun

changing the sleeptime to 50 will make it incredibly fast :o

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...