kurt_1925 Posted June 11, 2010 Share Posted June 11, 2010 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. Link to comment Share on other sites More sharing options...
muselmansuffe Posted June 11, 2010 Share Posted June 11, 2010 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. Link to comment Share on other sites More sharing options...
djonur007 Posted June 11, 2010 Share Posted June 11, 2010 Cevabın: aralarına + koyarak yazmayı dene. Link to comment Share on other sites More sharing options...
muselmansuffe Posted June 11, 2010 Share Posted June 11, 2010 Silinmedi, görünmez duruma getirildi. Bir üstteki iletiyi okursanız anlarsınız kardeşim. Link to comment Share on other sites More sharing options...
muselmansuffe Posted June 11, 2010 Share Posted June 11, 2010 Neyse bu seferlik ben düzenledim iletiyi ve başlığı. Bir dahaki sefere Caps Lock tuşunu da kapatınız ileti yazarken. Link to comment Share on other sites More sharing options...
kurt_1925 Posted June 11, 2010 Author Share Posted June 11, 2010 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ı ? Link to comment Share on other sites More sharing options...
blackman12 Posted June 12, 2010 Share Posted June 12, 2010 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] Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.