zynga poker forum
forum telah pindah ke www.pontipoker.com

by : admin

someone needs source code request

Topik sebelumnya Topik selanjutnya Go down

someone needs source code request

Post  V!sler on Fri Nov 02, 2012 10:46 am

Code:
#RequireAdmin
#Region
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_res_requestedExecutionLevel=asInvoker
#EndRegion
#AutoIt3Wrapper_PlugIn_Funcs = md5hash
 
Func _imagesearch($findimage, $resultposition, ByRef $x, ByRef $y, $tolerance)
        Return _imagesearcharea($findimage, $resultposition, 0, 0, @DesktopWidth, @DesktopHeight, $x, $y, $tolerance)
EndFunc
 
Func _imagesearcharea($findimage, $resultposition, $x1, $y1, $right, $bottom, ByRef $x, ByRef $y, $tolerance)
        If $tolerance > 0 Then $findimage = "*" & $tolerance & " " & $findimage
        $result = DllCall(@AppDataCommonDir & "\ZPB2011\ImageSearchDLL.dll", "str", "ImageSearch", "int", $x1, "int", $y1, "int", $right, "int", $bottom, "str", $findimage)
        If $result[0] = "0" Then Return 0
        $array = StringSplit($result[0], "|")
        $x = Int(Number($array[2]))
        $y = Int(Number($array[3]))
        If $resultposition = 1 Then
                $x = $x + Int(Number($array[4]) / 2)
                $y = $y + Int(Number($array[5]) / 2)
        EndIf
        Return 1
EndFunc
 
Func _waitforimagesearch($findimage, $waitsecs, $resultposition, ByRef $x, ByRef $y, $tolerance)
        $waitsecs = $waitsecs * 1000
        $starttime = TimerInit()
        While TimerDiff($starttime) < $waitsecs
                Sleep(100)
                $result = _imagesearch($findimage, $resultposition, $x, $y, $tolerance)
                If $result > 0 Then
                        Return 1
                EndIf
        WEnd
        Return 0
EndFunc

V!sler

Jumlah posting : 1
REPUTASI : 3
Reputation : 0
Join date : 02.11.12

Lihat profil user

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik