Hilfe: sinnvolle Nutzung von Pixelsearch

[autoit]

#include <SQLite.au3>
#include <SQLite.dll.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $DateiOut = @ScriptDir & "\Scanergebnis.txt"
Dim $Farbe = 0x000000
Dim $Schrittweite = 1

[/autoit] [autoit][/autoit] [autoit]

_pix_scan($Farbe, $Schrittweite, $DateiOut)

[/autoit] [autoit][/autoit] [autoit]

;------------------------------------------------------------------------------------------------------------
; Funktion _pix_scan($color, $step, $file)
;
; Beschreibung scannt Display nach gesuchter Farbe, Ausgabe in Datei
; Pixelbereiche 2-stufig sortiert
;
; Parameter $color: zu suchende Farbe
; $step: Rastergröße
; $file: Ausgabedatei
;
; Return Datei mit den gefundenen Pixelpositionen
;
; Erfordernisse Funktion: _Array2DSortFree( )
; Nach dem Funktionsaufruf wird der Scan erst mit {F9} gestartet
; um z.B. vorab ein Spiel starten zu können
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;------------------------------------------------------------------------------------------------------------
#include <File.au3>
#Include <Misc.au3>
Func _pix_scan($color, $step, $file)
Local $endX = @DesktopWidth, $endY = @DesktopHeight
Local $left = 0, $top = 0, $right = $step, $bottom = $step
Local $arPos, $arSort[1][1]
Do
Sleep(100)
Until _IsPressed("78") ; F9
$fh = FileOpen($file,1)
Do
For $left = 0 To $endX Step $step
$pos = PixelSearch($left, $top, $right, $bottom, $color, 0, $step)
If IsArray($pos) Then FileWriteLine($file, $pos[0] & "|" & $pos[1])
$right += $step
Next
$left = 0
$right = $step
$top += $step
$bottom += $step
Until $bottom > $endY
FileClose($fh)
Beep(500, 2000)
_FileReadToArray($file, $arPos)
FileDelete($file)
ReDim $arSort[UBound($arPos)][2]
For $i = 0 To UBound($arPos)-1
$var = StringSplit($arPos[$i], "|")
If ( IsArray($var) And UBound($var) = 3 ) Then
$arSort[$i][0] = Number($var[1])
$arSort[$i][1] = Number($var[2])
EndIf
Next
_Array2DSortFree($arSort, '0|0,1|0')
$fh = FileOpen($file,1)
For $i = 0 To UBound($arSort)-1
If $arSort[$i][0] <> "" And $arSort[$i][1] <> "" Then _
FileWriteLine($fh, "X: " & $arSort[$i][0] & " , Y: " & $arSort[$i][1])
Next
FileClose($fh)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;==================================================================================================
; Function Name: _Array2DSortFree($ARRAY, $sCOL_ASC)
; Description:: Sortierung von 1D/2D-Arrays nach freier Wahl
; 1D Sortierung Auf- oder Absteigend
; 2D mehrstufige Sortierung, Reihenfolge und Sortier-
; richtung (je Spalte) frei wählbar
; auch einzelne Spalte sortierbar
; Parameter(s): $ARRAY Das zu sortierende Array
; $sCOL_ASC String mit Sortierangaben "Spalte|Richtung [, Spalte|Richtung]"
; zu sortierende Spalte (0-Index)|Richtung (0-Asc, 1-Desc)
; z.B. Spalte 2 aufsteigend und in 2 absteigend Spalte 1
; _Array2DSortFree($ar2Sort, '2|0,1|1')
; Return Value(s): Erfolg 0
; Fehler 1 Set Error 1 $ARRAY ist kein Array
; 2 1D-Array, aber Spaltenangabe für 2D
; 3 SQL-Fehler
; 4 Angaben für Spalte|Sortierrichtung fehlerhaft
; Requirements: #include <SQLite.au3>
; #include <SQLite.dll.au3>
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _Array2DSortFree(ByRef $ARRAY, $sCOL_ASC)
If Not IsArray($ARRAY) Then Return SetError(1,0,1)
Local $tableStr = "CREATE TABLE tblTEST ("
Local $insertStr = '', $insertBase = "INSERT INTO tblTEST VALUES ("
Local $sortOrder = '', $sortStr = "SELECT * FROM tblTEST ORDER BY "
Local $aResult, $iRows, $iColumns, $iRval, $asc
$sCOL_ASC = StringStripWS($sCOL_ASC,
Local $ub2nd = UBound($ARRAY, 2)
If @error = 2 Then
If (StringLen($sCOL_ASC) > 3) Or (StringLeft($sCOL_ASC, 1) <> '0') Then Return SetError(2,0,1)
If StringRight($sCOL_ASC, 1) = 0 Then
_ArraySort($ARRAY)
Else
_ArraySort($ARRAY, 1)
EndIf
Return 0
Else
Local $aOut[UBound($ARRAY)][$ub2nd]
EndIf
_SQLite_Startup ()
If @error > 0 Then Return SetError(3,0,1)
$hSQL = _SQLite_Open ()
If @error > 0 Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
For $i = 0 To UBound($ARRAY, 2) -1
$tableStr &= "'field" & $i & "',"
Next
$tableStr = StringTrimRight($tableStr, 1) & ");"
For $i = 0 To UBound($ARRAY) -1 ; Erzeuge Insert-String
$insertStr &= $insertBase
For $k = 0 To UBound($ARRAY, 2) -1
$insertStr &= "'" & $ARRAY[$i][$k] & "',"
Next
$insertStr = StringTrimRight($insertStr, 1) & ");"
Next
; Erstelle Tabelle und füge Werte ein
If _SQLite_Exec ( $hSQL, $tableStr & $insertStr ) <> $SQLITE_OK Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
If StringInStr($sCOL_ASC, ',') Then
Local $aOrder = StringSplit($sCOL_ASC, ',')
For $i = 1 To UBound($aOrder) -1
If StringInStr($sCOL_ASC, '|') Then
Local $var = StringSplit($aOrder[$i], '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
$sortOrder &= 'field' & $var[1] & $asc & ','
Else
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
Next
$sortOrder = StringTrimRight($sortOrder, 1) & ';'
Else
If (StringLen($sCOL_ASC) = 3) And (StringInStr($sCOL_ASC, '|')) Then
Local $var = StringSplit($sCOL_ASC, '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
$sortOrder &= 'field' & $var[1] & $asc
Else
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
EndIf
$iRval = _SQLite_GetTable2d (-1, $sortStr & $sortOrder, $aResult, $iRows, $iColumns)
If $iRval = $SQLITE_OK Then
For $i = 1 To UBound($aResult) -1
For $k = 0 To UBound($aResult,2) -1
$aOut[$i-1][$k] = $aResult[$i][$k]
Next
Next
Else
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
_SQLite_Exec ($hSQL, "DROP TABLE tblTEST;")
_SQLite_Close ()
_SQLite_Shutdown ()
$ARRAY = $aOut
Return 0
EndFunc ;==> _Array2DSortFree

[/autoit]