Autoıt İle Bu 4 Değeri Nasıl Aynı Anda Yazarım?

[kurt_1925]

Global $iSitStuck = 0

Global $aTop[2]

Global $sTableChecksums = StringSplit(FileRead('..\data\table.txt'),',')

Global $iBlind = 0

Global $tableBuyin=20

Global $bPaused=False



Global $sTableChecksums = StringSplit(FileRead(@ScriptDir & '\data\table.txt'), ',')

Global $TableLastPos

Global Const $cTablePixelColor = 0x364C63 (BURAYA NASIL YAZILIR.)


Func _Table()

local $BlankArray[2]

$Windowhandle = wingethandle($browserTitle)

;first, check if the table has moved since we last checked

If _TableVerifyChecksum ($TableLastPos) Then

Return $TableLastPos

EndIf


;default - search screen

$SearchLeft =0

$searchRight = @DesktopWidth

$searchTop = 0

$searchBottom = @DesktopHeight


If IsHWnd($WindowHandle) Then

;search only in the window's area

$aWinPos = WinGetPos($WindowHandle)

If IsArray($aWinPos) Then

$SearchLeft =$aWinPos[0]

$searchRight =$aWinPos[0]+$aWinPos[2]

$searchTop = $aWinPos[1]

$searchBottom =$aWinPos[1]+$aWinPos[3]

EndIf

EndIf


;if the window is moved so only part of it is showing...

If $searchTop < 1 Then $searchTop = 1

If $SearchLeft < 1 Then $SearchLeft = 1

If $searchRight > @DesktopWidth Then $searchRight = @DesktopWidth

If $searchBottom > @DesktopHeight Then $searchBottom = @DesktopHeight


While $searchTop < $searchBottom

$aPos = PixelSearch($SearchLeft,$searchTop,$searchRight,$searchBottom, $cTablePixelColor)


If @error Then

Return $BlankArray

Else

If _TableVerifyChecksum($aPos) Then

$TableLastPos = $aPos

Return $TableLastPos

EndIf

EndIf

$searchTop = $aPos[1]+1;continue on from the next row

WEnd


Return $BlankArray

EndFunc



VEYA ,




Func _Table($iStart=0)

Local $aPosition[2]


Local $aWinPos = WinGetPos($browserTitle)

If IsArray($aWinPos) And $aWinPos[2] And $aWinPos[0]>0 Then

If $iStart==0 Then

$iStart = $iStart+$aWinPos[1]

EndIf

$aSearch = PixelSearch($aWinPos[0],$iStart,$aWinPos[2],$aWinPos[3], 0x081A0C); (VEYA BURAYA NASIL YAZILIR.)

Else

$aSearch = PixelSearch(0,$iStart,@DesktopWidth,@DesktopHeight, 0x081A0C); (VEYA BURAYA NASIL YAZILIR.)

EndIf


If @error <> 0 Then

Return $aPosition

EndIf

$iChecksum = PixelChecksum($aSearch[0]-1,$aSearch[1]-1,$aSearch[0],$aSearch[1])

For $i = 1 to $sTableChecksums[0]

If $iChecksum==Int($sTableChecksums[$i]) Then

$aPosition[0] = $aSearch[0]

$aPosition[1] = $aSearch[1]

EndIf

Next

If Not $aPosition[0] Then

$aPosition = _Table($aSearch[1]+1)

EndIf

Return $aPosition

EndFunc[/CODE]

BENİM YAPMAK İSTEDİĞİM İSE ŞU ŞU 4 DEĞERİ AYNI ANDA YAZMAK İSTİYORUM

(0x01030F , 0x081A0C , 0x29100B , 0x364C63 )

YANİ BU 4 DEĞERDEN BİRİNİ GÖRDÜĞÜNDE OKEY DİYİP DEVAM ETSİN. İNŞ ANLATABİLMİŞİMDİR YARDIMLAR İÇİN ŞİMDİDEN TEŞEKKÜRLER.

[muselmansuffe]

DİKKAT: Konu Başlığını forum Kurallarına gore yeniden düzenleyiniz. Aksi halde cope tasınacaktır.

Forum Kuralları - [ Madde 10-16 ]

Konu düzenlenene kadar yazılan tüm iletiler silinecektir.

[djonur007]

Cevabın: aralarına + koyarak yazmayı dene.

[muselmansuffe]

Silinmedi, görünmez duruma getirildi. Bir üstteki iletiyi okursanız anlarsınız kardeşim.

[muselmansuffe]

Neyse bu seferlik ben düzenledim iletiyi ve başlığı.

Bir dahaki sefere Caps Lock tuşunu da kapatınız ileti yazarken.

[kurt_1925]

djonur sağol söylediğini denicem bide bu au3 exeye sorunsuz bi şekilde nasıl çevirebiliriz o zaman anlayabilirim çalışıp çalışmadığını ?

[blackman12]

Global $iSitStuck = 0

Global $aTop[2]

Global $sTableChecksums = StringSplit(FileRead('..\data\table.txt'),',')

Global $iBlind = 0

Global $tableBuyin=20

Global $bPaused=False



Global $sTableChecksums = StringSplit(FileRead(@ScriptDir & '\data\table.txt'), ',')

Global $TableLastPos

Global Const $cTablePixelColor[4] = [0x01030F , 0x081A0C , 0x29100B , 0x364C63]


Func _Table()

local $BlankArray[2]

$Windowhandle = wingethandle($browserTitle)

;first, check if the table has moved since we last checked

If _TableVerifyChecksum ($TableLastPos) Then

Return $TableLastPos

EndIf


;default - search screen

$SearchLeft =0

$searchRight = @DesktopWidth

$searchTop = 0

$searchBottom = @DesktopHeight


If IsHWnd($WindowHandle) Then

;search only in the window's area

$aWinPos = WinGetPos($WindowHandle)

If IsArray($aWinPos) Then

$SearchLeft =$aWinPos[0]

$searchRight =$aWinPos[0]+$aWinPos[2]

$searchTop = $aWinPos[1]

$searchBottom =$aWinPos[1]+$aWinPos[3]

EndIf

EndIf


;if the window is moved so only part of it is showing...

If $searchTop < 1 Then $searchTop = 1

If $SearchLeft < 1 Then $SearchLeft = 1

If $searchRight > @DesktopWidth Then $searchRight = @DesktopWidth

If $searchBottom > @DesktopHeight Then $searchBottom = @DesktopHeight


While $searchTop < $searchBottom

for $i in $cTablePixelColor

$aPos = PixelSearch($SearchLeft,$searchTop,$searchRight,$searchBottom, $i)


If @error Then

Return $BlankArray

Else

If _TableVerifyChecksum($aPos) Then

$TableLastPos = $aPos

Return $TableLastPos

else

continueloop

EndIf

EndIf

$searchTop = $aPos[1]+1;continue on from the next row

next

WEnd


Return $BlankArray

EndFunc



VEYA ,




Func _Table($iStart=0)

Local $aPosition[2]


Local $aWinPos = WinGetPos($browserTitle)

If IsArray($aWinPos) And $aWinPos[2] And $aWinPos[0]>0 Then

If $iStart==0 Then

$iStart = $iStart+$aWinPos[1]

EndIf

$aSearch = PixelSearch($aWinPos[0],$iStart,$aWinPos[2],$aWinPos[3], 0x081A0C); (VEYA BURAYA NASIL YAZILIR.)

Else

$aSearch = PixelSearch(0,$iStart,@DesktopWidth,@DesktopHeight, 0x081A0C); (VEYA BURAYA NASIL YAZILIR.)

EndIf


If @error <> 0 Then

Return $aPosition

EndIf

$iChecksum = PixelChecksum($aSearch[0]-1,$aSearch[1]-1,$aSearch[0],$aSearch[1])

For $i = 1 to $sTableChecksums[0]

If $iChecksum==Int($sTableChecksums[$i]) Then

$aPosition[0] = $aSearch[0]

$aPosition[1] = $aSearch[1]

EndIf

Next

If Not $aPosition[0] Then

$aPosition = _Table($aSearch[1]+1)

EndIf

Return $aPosition

EndFunc[/CODE]