How to check send() function

[ocensound]

I have this loop

While Send("{F6}",0)

If Int(PixelChecksum(26,609,142,609))=Int(4179088655) Then

ExitLoop

Else

MouseClick("LEFT",$test[0][$loop],$test[1][$loop],2,0)

EndIf

WEnd

I want press key F6 for every mouse click but it not work ,Sometime mouse clicked without press key F6

I think you can help

thx..

[martin]

I have this loop

While Send("{F6}",0)

If Int(PixelChecksum(26,609,142,609))=Int(4179088655) Then

ExitLoop

Else

MouseClick("LEFT",$test[0][$loop],$test[1][$loop],2,0)

EndIf

WEnd

I want press key F6 for every mouse click but it not work ,Sometime mouse clicked without press key F6

I think you can help

thx..

By the look of your code you will get Send before every mouse click, so I would say you are wrong.

[ocensound]

MouseClick("LEFT",$test[0][$loop],$test[1][$loop],1,0)

I try this too, not work

[martin]

MouseClick("LEFT",$test[0][$loop],$test[1][$loop],1,0)

I try this too, not work

I expect you have inadvertently overlooked the reciprical derivative of the last parameter in the API testloop function. It's an easy mistake to make.

But seriously, how could we help you with that? We have no idea how you have set $test[0][$loop] or $test[1][$loop].

[ocensound]

expandcollapse popup

Dim $test[2][10]

x()

Func x()
    Local $x=72
    Local $y=54
    Local $backx=426
    Local $backy=94
    For $loop=0 To 4 Step 1
        $test[0][$loop]=$backx-$x
        $test[1][$loop]=$backy+$y
        $backx=$backx-$x
        $backy=$backy+$y
    Next
    Local $fontx=60
    Local $fonty=478
    For $loop=5 To 9 Step 1
        $test[0][$loop]=$fontx+$x
        $test[1][$loop]=$fonty-$y
        $fontx=$fontx+$x
        $fonty=$fonty-$y
    Next
y()
EndFunc

Func y()
For $loop=0 To 9 Step 1
        MouseMove($test[0][$loop],$test[1][$loop],0)
        While Send("{F6}",0)
            If Int(PixelChecksum(26,609,142,609))=Int(4179088655) Then
                ExitLoop
            Else
                MouseClick("LEFT",$test[0][$loop],$test[1][$loop],1,50)
            EndIf
       WEnd
Next
EndFunc

Just click

Edited January 11, 2009 by ocensound