Jump to content

Recommended Posts

Posted

Post your code and someone on here will be able to help you eliminate this problem.

_____________________________________________________"some people live for the rules, I live for exceptions"Wallpaper Changer - Easily Change Your Windows Wallpaper

  • 4 weeks later...
Posted

Func findButton($color,$x,$y,$color3,$i)
javaExist()
    $search=PixelSearch( $x,$y, 2000, 2000, 0xECE9D8 )

    $S =StringFormat ( "$Int = %d" ,$search )

    If $search=1 Then
    moveDown(12)
    $i=$i+1

if $i>3 then
moveHome()
findButton(0xECE9D8,0,0,'',0)
endif

    findButton(0xECE9D8,0,0,'',$i)
    Else
;MsgBox(0, "Клавиш нет",$S & "," & $search )
    $color2=PixelGetColor ( $search[0] , $search[1] )
    $color3=PixelGetColor ( $search[0]+100 , $search[1]+5 )
        If $color2=$color3 And $color2=$color Then
            MouseClickClick($search[0],$search[1],1,1,$color, $search[1],$color3,$i)
            Sleep(Random(1000,2000))
            findButton($color,0, $search[1],'',$i)
        else
            findButton($color,0 , $search[1]+30,$color3,$i)     
        EndIf
    EndIf



EndFunc

hi. this is myne problem too. Plz help. How can I exit from previous call ?

Posted (edited)

that is obviously not the whole program... and not enough to see what is going wrong...

if you are using hotkeyset like...

Hotkeyset("{escape}", "asdf")

Func asdf()
Send("{escape}")
EndfuncoÝ÷ Û*.ç¶v-ì¬zÛ-¢Ø^"x§©Ýzwh~Ø^~éܶ*')²®¶­sd÷F¶W6WBgV÷C·¶W66WÒgV÷C²ÂgV÷C¶6FbgV÷C² ¤gVæ26Fb¤÷F¶W6WBgV÷C·¶W66WÒgV÷C²ÂgV÷C²gV÷C²¥6VæBgV÷C·¶W66WÒgV÷C²¤÷F¶W6WBgV÷C·¶W66WÒgV÷C²ÂgV÷C¶6FbgV÷C²¤VæFgVæ0

EDIT: also, I think if you call the function too many times in a loop, when the function is just a continuos loop, and never exits itself, you might get this error too, i'm not sure on that one though.

Edited by Kickassjoe

What goes around comes around... Payback's a bitch.

Posted

#include <string.au3>
WinActivate ( "1PS.RU:: 4. Пересылка информации о сайте каталогам (регистрация) - Opera",  "" )

$license="32363030484F5553452D4146463533383830334469726F6C";
$pin=string(_StringToHex(@OSBuild)&""&_StringToHex(@ComputerName)&""& _StringToHex(@UserName));

;IF $license=$pin THEN
;ELSE
;MsgBox(0, "Приобритите программу",'У Вас запущена версия другого пользователя. По вопросам приобритения пишите на ICQ: 556151, sp1rit@mail.ru')
;Exit
;ENDIF




Func javaExist()
 Sleep(Random(1000))
$java=WinGetPos("Javascript");
    If WinExists("Javascript") Then
     WinActivate("Javascript", "")
    MouseMove($java[0]+399,$java[1]+134, 1)
    MouseClick("left", $java[0]+399,$java[1]+134, 1)
;MsgBox(0, "Клавиш нет", $java[0] & "," & $java[1] )
     Sleep(Random(10,500))
    EndIf
EndFunc

Func moveDown($moveCount)
 $count=1;
 MouseMove(160,503, 1)
 MouseClick("left", 160,503, 1)
  Send("{PGDN}")
 ;MsgBox(0, "Demo","Ограничение демо версии. По вопросам приобритения пишите на ICQ: 556151, sp1rit@mail.ru","")
Sleep(Random(1000,2000))
EndFunc


Func moveHome()
    MouseMove(160,503, 1)
    MouseClick("left", 160,503, 1)
    Send("{HOME}")
    Sleep(1000)
;MsgBox(0, "Клавиш нет", $next[0] & "," & $next[1] )
    MouseMove($next[0],$next[1],1)
    MouseClick("left",$next[0],$next[1],1)
    Sleep(Random(8000,15000))
EndFunc



Func MyExit()
    Exit 
EndFunc 

Func MouseClickClick($x,$y,$color2,$j,$color, $search,$color3,$i)

$color1=PixelGetColor($x,$y)
;MsgBox(0, "Нажимаем на клавишу",$color2 & "," & $color1  )
;InputBox("Demo", "Нажимаем на клавишу", $color2 & "," & $color1, "")


    IF $color2=$color1 AND NOT $j=1 THEN
        Sleep(800)
        $j=$j+1
        MouseClickClick($x,$y,$color1,$j,$color, $search,$color3,$i)
    ElseIF $color2=1 Then
        MouseMove($x,$y, 1)
        MouseClick("left",$x,$y,1)
        MouseClickClick($x,$y,$color1,$j,$color, $search,$color3,$i)
    Else
        findButton($color,0 , $search+30,$color3,$i)
    EndIf
EndFunc



Func findButton($color,$x,$y,$color3,$i)
javaExist()
    $search=PixelSearch( $x,$y, 2000, 2000, 0xECE9D8 )

    $S =StringFormat ( "$Int = %d" ,$search )

    If $search=1 Then
    moveDown(12)
    $i=$i+1

if $i>3 then
moveHome()
findButton(0xECE9D8,0,0,'',0)
endif

    findButton(0xECE9D8,0,0,'',$i)
    Else
;MsgBox(0, "Клавиш нет",$S & "," & $search )
    $color2=PixelGetColor ( $search[0] , $search[1] )
    $color3=PixelGetColor ( $search[0]+100 , $search[1]+5 )
        If $color2=$color3 And $color2=$color Then

            MouseClickClick($search[0],$search[1],1,1,$color, $search[1],$color3,$i)
            Sleep(Random(1000,2000))
            findButton($color,0, $search[1],'',$i)
        else
            findButton($color,0 , $search[1]+30,$color3,$i)     
        EndIf
    EndIf



EndFunc


MsgBox(0, "Поиск клавиши Далее",'Наведите машку на клавишу "Далее". Через 2 секунды программа сохранит координаты')
sleep(3000)
$next=MouseGetPos()
MsgBox(0, "Поиск клавиши Далее",'Информация получина')

HotKeySet("+{ESC}", "MyExit")


findButton(0xECE9D8,0,0,'',1)

that`s all myne code.

Thatks for help

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
×
×
  • Create New...