Paint bot error

[SmokNiszczyciel]

I dont know why but my script makes mouse go to position 0,0 and keeps clicking it, ctrl+pause_break doesnt stop it, heres script;d:

$s1=62 ;; where starts [pixel, 0]
$s2=53 ;; where starts [pixel, 1]
$k1=799 ;; where ends [pixel,0]
$k2=493 ;; where ends [pixel,1]
$l0=Random($s1,$s2,1) 
$l1=Random($k1,$k2,1)
$m=2
$l2=Random($s1,$s2,1)
$l3=Random($k1,$k2,1)
While 1 ;;main loop
    WinActivate("- Paint") ;;activates my paint;d
    While $m=0 ;;starts loop which just clicks at start[0,1] and end[0,1]
        MouseClick("left",$l0,$l1,1,1) ;; clicks at random start to max
        $l0=Random($s1,$s2,1) ;; generates new randoms for click
        $l1=Random($k1,$k2,1) ;; generates new randoms for click
        $m=Random(0,2,1) ;;generates new random which choose action
        If $m <> 0 Then ;;chooses if exit loop
            ExitLoop
        EndIf
    WEnd ;;ends clicking loop
    While $m=1 ;;starts drawing loop
        $l0=Random($s1,$s2,1) ;; from [0]
        $l1=Random($k1,$k2,1) ;; from [1]
        $l2=Random($s1,$s2,1) ;; to [0]
        $l3=Random($k1,$k2,1) ;; to [1]
        MouseClickDrag("left",$l0,$l1,$l2,$l3,1) ;; drags at just generated numbers
        $m=Random(0,2,1) ;; like last loop
        If $m <> 1 Then ;; same o_o
            ExitLoop
        EndIf
    WEnd ;;ends drawing loop
    $m=Random(0,2,1) ;;chooses new action [here will be color choosing actions]
WEnd ;;main loop end

I will be happy if someone help me cause im just learning and this script was training for me:P

[bogQ]

You probably mesedup starting and ending positions

To add some other way to exit try hotkey func, i addad to thisone while paint win is active

expandcollapse popup

$s1=62 ;; where starts [pixel, 0]
$s2=53 ;; where starts [pixel, 1]
$k1=799 ;; where ends [pixel,0]
$k2=493 ;; where ends [pixel,1]
$l0=Random($s1,$k1,1) 
$l1=Random($s2,$k2,1)
$m=2
$l2=Random($s1,$k1,1)
$l3=Random($s2,$k2,1)
MsgBox(0,$s2,$s1)
MsgBox(0,$k2,$k1)

WinActivate("untitled - Paint") ;;activates my paint;d
WinSetState("untitled - Paint","",@SW_MAXIMIZE)
WinWaitActive("untitled - Paint")
While WinActive("untitled - Paint")
    While $m=0 ;;starts loop which just clicks at start[0,1] and end[0,1]
        MouseClick("left",$l0,$l1,1,1) ;; clicks at random start to max
$l0=Random($s1,$k1,1) 
$l1=Random($s2,$k2,1)
        $m=Random(0,2,1) ;;generates new random which choose action
        If $m <> 0 Then ;;chooses if exit loop
            ExitLoop
        EndIf
    WEnd ;;ends clicking loop
    While $m=1 ;;starts drawing loop
$l0=Random($s1,$k1,1) 
$l1=Random($s2,$k2,1)
$l2=Random($s1,$k1,1)
$l3=Random($s2,$k2,1)
        MouseClickDrag("left",$l0,$l1,$l2,$l3,1) ;; drags at just generated numbers
        $m=Random(0,2,1) ;; like last loop
        If $m <> 1 Then ;; same o_o
            ExitLoop
        EndIf
    WEnd ;;ends drawing loop
    $m=Random(0,2,1) ;;chooses new action [here will be color choosing actions]
WEnd ;;main loop end

[SmokNiszczyciel]

thanks, l also had problem with it's speed cause it was running very slow, can u explain me why?

[bogQ]

Dont know if you ask me

Larger loop = more time

$s1=62 ;; where starts [pixel, 0]
$s2=53 ;; where starts [pixel, 1]
$k1=799 ;; where ends [pixel,0]
$k2=493 ;; where ends [pixel,1]
HotKeySet("{ESC}","_exit")

WinActivate("untitled - Paint") ;;activates my paint;d
WinSetState("untitled - Paint","",@SW_MAXIMIZE)
WinWaitActive("untitled - Paint")
While 1
    MouseClickDrag("left",Random($s1,$k1,1) ,Random($s2,$k2,1),Random($s1,$k1,1),Random($s2,$k2,1),0)
WEnd
    
Func _exit()
    Exit    
EndFunc

You can try to put your last mousedrag parametar(speed) to 0 "A speed of 0 will move the mouse instantly"

Well on my comp it isnt so instantly

you can try it like this

$s1=62 ;; where starts [pixel, 0]
$s2=53 ;; where starts [pixel, 1]
$k1=799 ;; where ends [pixel,0]
$k2=493 ;; where ends [pixel,1]
HotKeySet("{ESC}","_exit")

WinActivate("untitled - Paint") ;;activates my paint;d
WinSetState("untitled - Paint","",@SW_MAXIMIZE)
WinWaitActive("untitled - Paint")
While 1
    MouseMove(Random($s1,$k1,1) ,Random($s2,$k2,1),0)
    MouseDown ( "left" )
    MouseMove(Random($s1,$k1,1) ,Random($s2,$k2,1),0)
    MouseUp ( "left" )
;   Sleep(10)
WEnd
    
Func _exit()
    Exit    
EndFunc

Maby i shud put some sleep in a lop so that it dont go that fast but thats not fun :0)

(if you dont put sleep dont call me if it messup your comp when you forgot to hit esc to stop the script ^^ )

Edited July 4, 2010 by bogQ

[SmokNiszczyciel]

lols:P

Can u explain me what this part does?

While 1

MouseMove(Random($s1,$k1,1) ,Random($s2,$k2,1),0)

MouseDown ( "left" )

MouseMove(Random($s1,$k1,1) ,Random($s2,$k2,1),0)

MouseUp ( "left" )

; Sleep(10)

WEnd

Btw thx, i learned another trick - i dont have to make 9999 lines instead of 1 o_o

[bogQ]

it teleport mouse to the start position, press it down teleport mouse to end position, and relise mouse

Did you tested it? if you did not pls put sleep(10) to b on the safe side