Combobox-Inhalt auswählen

[autoit]

#include <PtB_ClickBMP.au3>

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

Opt("WinTitleMatchMode", 2)
Opt("MouseCoordMode", 0) ;aktives fenster-koordinaten

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

Run("C:\Programme\VideoLAN\VLC\vlc.exe")
WinWaitActive("VLC media player")
WinActivate("VLC media player")
Sleep(100)
Send("^c") ;Aufnahmegerät öffnen
WinWaitActive("Medien öffnen") ;
MouseClick("left", 400, 80) ;combobox öffnen
Sleep(100)

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

;*************************************************************************************
;ab hier wird per Bitmapsuche der Schriftzug in der Dropdownliste der Combobox gesucht
;man muss die einzelnen Zeilen durchsuchen, weil
$bitmap = "searcharea.bmp" ;dateiname suchbild, z.B mit PushTheButton zu erstellen, also die Zeile der Combobox
$koord = _PtB_clickbmp($bitmap,"Medien öffnen") ;sucht die Koordinaten des Hotspots der Bitmap, d.h. den Schriftzug
If @error Then MsgBox(0, 0, "Aufnahmemodus konnte nicht eingestellt werden")
;ab hier gehts ganz normal weiter
;*************************************************************************************

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

[autoit]

#include <Array.au3>
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>
#include <ScreenCapture.au3>
#include <StructureConstants.au3>
#include <WinAPI.au3>
#include-once

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

; #FUNCTION# ====================================================================================================================
; Name...........: _PtB_clickBMP
; Description ...: searches a Bitmap in the full Screen or in a Window and clicks at the found position of the Bitmap
; It is recommended to use the PushTheButton-Program for the creation of the Bitmap
; Syntax.........: _PtB_clickBMP($bitmapfile[, $hWin = "FULLSCREEN"])
; Parameters ....: $bitmapfile - Name of the Bitmap-File to search for
; $hWin - Title/Handle of the window to search in, or "FULLSCREEN"
;
; Return values .: Success - Array with coordinates of the Mouseclick x=array[0] y=array[1]
; - if "FULLSCREEN" then coordinates are absolute screen coordinates
; - otherwise relative coords to the active window
; Failure - @error is set
; Author ........: Andy @ http://www.autoit.de
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================

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

;_PtB_findbmp_click klickt mit der linken Maustaste auf eine auf dem Bildschirm oder in einem Fenster gefundene Bitmap
;Das Bitmapfile ist eine z.B. von PushTheButton gelieferte Bitmap
;Das Windowshandle sollte entweder der Titel oder die ID des Fensters sein bzw Classname, alternativ "FULLSCREEN"
;
;TODO: wenn vertikale scrollbalken im fenster/fullscreen sind, scrollen erlauben und nur scrollbalken auf bewegung checken

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

Func _PtB_ClickBMP($bitmapfile, $hWin = "FULLSCREEN") ;rückgabe x- und y-position des gefundenen hotspots in einem array [0]und[1]

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

Dim $aresult[2] ;return array x- and y-coords
Local $gefunden = 0, $maxanzahlpixel = 50, $exitflag = 0
$opt_m=Opt("MouseCoordMode") ;sichern der Optionen, werden am ende der Funktion wieder hergestellt
$opt_p=Opt("PixelCoordMode")
$ptbfile = StringTrimRight($bitmapfile, StringLen($bitmapfile) - StringInStr($bitmapfile, ".") + 1) & ".ptb"
;im ptbfile sind Parameter für das Suchen der Bitmaps abgelegt
FileOpen($ptbfile, 1) ;daten lesen
If @error Then ;fehler beim datenlesen, oder ptb-Datei nicht vorhanden
If FileExists($bitmapfile) Then ;wenn es aber eine Bitmap gibt, dann kann man auch nur mit der
$anzahl_bestpixel = 500 ;bitmapsuche suchen
Else ;wenn es weder Bitmap noch *.ptb-file gibt, fällt die Suche aus^^
MsgBox(262144+1, "Fehler in Funktion _PtB_ClickBMP()", "Keine Bitmap und keine *.ptb-Datei mit Informationen zur Suche gefunden!" & @CRLF & "Bitte benutzen Sie das Programm PushTheButton, um eine Bitmap zu erzeugen!")
SetError(1, 0, 1)
Return -1
EndIf
Else ;ansonsten daten aus der *.ptb-Datei einlesen
$check = FileReadLine($ptbfile, 1) ;pixelchecksum
$pixel = FileReadLine($ptbfile, 2) ;pixelfarbe in hex RGB
$anzahl_bestpixel = Number(FileReadLine($ptbfile, 3)) ;niedrigste Anzahl der gesuchten Pixel
$px = FileReadLine($ptbfile, 4) ;x-Versatz des Hotspots innerhalb des pics
$py = FileReadLine($ptbfile, 5) ;y-Versatz des Hotspots innerhalb des pics
$dx = FileReadLine($ptbfile, 6) ;breite in pixel
$dy = FileReadLine($ptbfile, 7) ;hoehe in pixel
FileClose($ptbfile)
EndIf
If $hwin = "FULLSCREEN" Then
Opt("PixelCoordmode", 1) ; für Fullscreen setzen
Opt("MouseCoordMode", 1) ;gesamter screen
$window_width = @DesktopWidth
$window_height = @DesktopHeight
Else
Opt("PixelCoordmode", 0) ;für lokales Fenster setzen
Opt("MouseCoordMode", 0) ;aktives Fenster
$xy = WinGetPos($hwin) ;breite und höhe des Fensters
$window_width = $xy[2]
$window_height = $xy[3]
EndIf

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

If $anzahl_bestpixel > $maxanzahlpixel Then ;wenn wenige passende farbige pixel auf dem Bildschirm sind...
ConsoleWrite("Verfahren mit Bitmapsuche gewählt" & @CRLF) ;dann strings suchen (Bitmap2 in Bitmap1 suchen)
;If $windowshandle = "FULLSCREEN" Then

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

$start = TimerInit()
;~ Do
;~ If $exitflag Then ExitLoop ;esc gedrückt
;~ $alt = PixelChecksum(0, 0, $window_width, $window_height) ;bildschirminhalt sichern
$aresult = _findbmp($hwin, $bitmapfile) ;suchen per stringfunktion in der Bitmap
;~ If Not IsArray($aresult) Then ;nicht gefunden
;~ Send("{PGDN}");runterscrollen
;~ $tooltip = ToolTip("Suche läuft: Scollen...", $window_width / 2, $window_height / 2 + 50)
;~ Sleep(200) ;wartezeit, bis gescrollt wurde
;~ $neu = PixelChecksum(0, 0, $window_width, $window_height) ;bildschirminhalt nach dem scrollen
;~ EndIf
;~ Until IsArray($aresult); Or $alt = $neu ;solange bis true oder nicht mehr weiter zu scrollen
;~ ToolTip("") ;tooltip löschen
If IsArray($aresult) Then $gefunden = 1
Else ;wenn es nur wenige Pixel in der angegebenen Farbe gibt, ist diese Variante mit pixelsearxch schneller
ConsoleWrite("Verfahren mit Pixelsuche gewählt" & @CRLF)
;~ Do
;~ $alt = PixelChecksum(0, 0, $window_width, $window_height) ;bildschirminhalt sichern
Local $x = 0, $y = 0
While 1
$pix = PixelSearch($x, $y, $window_width, $window_height, Dec($pixel)) ;pixelfarbe suchen
If @error Or $exitflag Then ExitLoop ;nicht gefunden oder esc gedrückt, dann pagedown
;msgbox(0,"pix gefunden an",$pix[0]&" "&$pix[1])
While 1
$x = $pix[0] ;x- und y-koordinaten des gefundenen pixels (hotspot)
$y = $pix[1]
$prozent = ($y * $window_width + $x) * 100 / $window_width / $window_height
$tooltip = ToolTip(StringFormat("Suche läuft : %.0f%%", $prozent), $window_width / 2, $window_height / 2)
Local $p1x = $x - $px, $p1y = $y - $py ;umrechnen der hotspotkoordinaten für checksum
Local $p2x = $p1x + $dx - 1, $p2y = $p1y + $dy - 1
; msgbox(0,"pixel mit farbe "&$pixel,$p1x&" "&$p1y&@crlf&$p2x&" "&$p2y&@crlf&PixelChecksum($p1x,$p1y,$p2x,$p2y))
If PixelChecksum($p1x, $p1y, $p2x, $p2y) = $check Then ;wenn pixelchecksum gleich der gespeicherten pixelchecksum ist, dann gefunden
$gefunden = 1
$aresult[0] = $x
$aresult[1] = $y
ExitLoop
EndIf
$x += 1 ;ein pixel weiter in der zeile
$pix = PixelSearch($x, $y, $window_width, $y, Dec($pixel)) ;pixel suchen
If @error Or $exitflag Then ExitLoop ;wenn in der zeile kein pixel mehr, dann raus
WEnd
If $gefunden = 1 Then ExitLoop
$x = 0 ;neue spalte
;msgbox(0,"nächste zeile",0)
$y += 1 ;neue zeile
WEnd
;~ If $exitflag Or $gefunden = 1 Then ExitLoop ;esc gedrückt oder gefunden
;~ Send("{PGDN}") ;runterscrollen
;~ $tooltip = ToolTip("Suche läuft: Scollen...", $window_width / 2, $window_height / 2)
;~ Sleep(200)
;~ $neu = PixelChecksum(200, 200, $window_width, $window_height)
;~ Until $alt = $neu ;solange, bis nicht mehr gescrollt werden kann
EndIf
$exitflag = 0
ToolTip("")
If $gefunden = 0 Then ;gesuchte Pixel nicht gefunden
SetError(1, 0, 1)
Return -1
Else ;gefunden
MouseClick("left", $aresult[0], $aresult[1]) ;auf die koordinaten klicken
;_arraydisplay($aresult)
SetError(0, 0, 0)
Opt("MouseCoordMode",$opt_m)
Opt("PixelCoordMode",$opt_p)
Return $aresult ;array mit den hotspot-koordinaten zurückgeben
EndIf
EndFunc ;==>_PtB_findbmp

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

;untersucht, ob Bitmap2 in Bitmap1 enthalten ist
;Originalfunc by JunkEW , modified by Andy@ http://www.autoit.de, finds the exact match
Func _FindBMP($BMP1, $BMP2)
Dim $BMP1Data = "", $BMP1Width = 0, $BMP1Height = 0, $BMP1LineWidth = 0;
Dim $BMP2Data = "", $BMP2Width = 0, $BMP2Height = 0, $BMP2LineWidth = 0
Dim $koord[2]
Local $searchFor, $line, $iPos = 1, $imgBytes = 3
; Load the bitmap to search in
_GetImage($BMP1, $BMP1Data, $BMP1Width, $BMP1Height, $BMP1LineWidth)
$BMP1Data = BinaryToString($BMP1Data)
_GetImage($BMP2, $BMP2Data, $BMP2Width, $BMP2Height, $BMP2LineWidth)
$BMP2Data = BinaryToString($BMP2Data)
$fillbyte=mod($BMP1LineWidth,3); aufgefüllte nullen am ende der bitmapzeile

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

If $BMP2Height = 0 Then
SetError(1, 0, 0)
Return False
EndIf
Local $searchFor1 = StringMid($BMP2Data, 1, ($BMP2Width * $imgBytes)) ;1. pixel-zeile in der bitmap2 (string)
$iPos = StringInStr($BMP1Data, $searchFor1, 2, 1) ;1. fundstelle des strings in Bitmap2

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

;zeilenweises vergleichen der beiden bitmaps, ist bitmap2 in bitmap1 enthalten?
While 1
Local $flag = 0
If $iPos <> 0 Then ;nur, wenn es eine übereinstimmung gibt weitermachen
$koord[0] = Mod(($iPos - 1) , $BMP1lineWidth) ;position innerhalb des Strings
If $koord[0] / $imgBytes = Int($koord[0] / $imgBytes) Then ;prüfen ob ipos am anfang eines farbbits steht
$prozent = $iPos / 3 * 100 / $BMP1Width / $BMP1Height
$tooltip = ToolTip(StringFormat("Suche läuft : %.0f%%", $prozent) & @CRLF & "Zeile " & Int($iPos / $imgBytes / $BMP1Width), $BMP1Width / 2, $BMP1Height / 2)
For $s = 2 To $BMP2Height ;zeilenweise das suchbild mit dem screen vergleichen
$searchFor = StringMid($BMP2Data, 1 + (($s - 1) * $BMP2LineWidth), $BMP2Width * $imgBytes) ; s-te zeile aus dem ausschnitt
$line = StringMid($BMP1Data, $iPos + (($s - 1) * $BMP1LineWidth), $BMP2Width * $imgBytes) ;zeile "unter" der gefundenen zeile im screen
If $searchFor <> $line Then ;zeilen nicht gleich,
$flag = 1
ExitLoop ;exit for/next
EndIf
Next
If $flag = 0 Then ;alle Zeilen haben übereingestimmt, Bitmap gefunden
$koord[0] = Mod(($iPos - 1), $BMP1lineWidth) / $imgBytes
$koord[1] = Int(($iPos - 1) / $BMP1lineWidth)
Return $koord
EndIf
$iPos = StringInStr($BMP1Data, $searchFor1, 2, 1, $iPos + $imgBytes)
If $iPos = 0 Then ExitLoop ;nicht gefunden
Else ;ipos ist innerhalb eines farbbits und nicht am anfang
$iPos = StringInStr($BMP1Data, $searchFor1, 2, 1, $iPos + 1)
If $iPos = 0 Then ExitLoop
EndIf
Else
ExitLoop
EndIf
WEnd
SetError(1, 0, 0)
Return 0 ;
EndFunc ;==>_FindBMP

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

;aus einer Datei oder einem Screenshot die Pixeldaten im BGR-Format in einen String schreiben
;Originalfunc by JunkEW , modified by Andy@ http://www.autoit.de gets the Bitmapdata
Func _GetImage($BMPFile, ByRef $BMPDataStart, ByRef $Width, ByRef $Height, ByRef $Stride)
_GDIPlus_Startup()
Local $Scan0, $pixelData, $hbScreen, $pBitmap, $handle, $imgBytes = 3
; Load the bitmap to search in
If StringUpper($BMPFile) = "FULLSCREEN" Then
$hbScreen = _ScreenCapture_Capture("", 0, 0, -1, -1, False)
If @error Then MsgBox(0, "", "Fehler Screencapture FULLSCREEN")
$pBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hbScreen); returns memory bitmap
If @error Then MsgBox(0, "", "Fehler Bitmapcreate_FromHBITMAP")
Else
;try to get a handle
$handle = WinGetHandle($BMPFile)
If @error Then
;Assume its an unknown handle so correct filename should be given
$pBitmap = _GDIPlus_BitmapCreateFromFile($BMPFile)
Else ;aktuelles fenster
$xy = WinGetPos($BMPFile)
;_arraydisplay($xy)
$hbScreen = _ScreenCapture_CaptureWnd("", $handle, 0, 0, $xy[2], $xy[3], False)
If @error Then MsgBox(0, "", "Fehler Screencapturewnd")
$pBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hbScreen); returns memory bitmap
If @error Then MsgBox(0, "", "Fehler BitmapCreateFromHBITMAP")
EndIf
EndIf

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

;_GDIPlus_BitmapLockBits gibt $tagGDIPBITMAPDATA-Struktur zurück
$BitmapData = _GDIPlus_BitmapLockBits($pBitmap, 0, 0, _GDIPlus_ImageGetWidth($pBitmap), _GDIPlus_ImageGetHeight($pBitmap), $GDIP_ILMREAD, $GDIP_PXF24RGB)
If @error Then MsgBox(0, "", "Error locking region " & @error)
$Stride = DllStructGetData($BitmapData, "Stride");Stride - Offset, in bytes, between consecutive scan lines of the bitmap. If the stride is positive, the bitmap is top-down. If the stride is negative, the bitmap is bottom-up.
$Width = DllStructGetData($BitmapData, "Width");Image width - Number of pixels in one scan line of the bitmap.
$Height = DllStructGetData($BitmapData, "Height");Image height - Number of scan lines in the bitmap.
$pixelFormat = DllStructGetData($BitmapData, "PixelFormat");Pixel format - Integer that specifies the pixel format of the bitmap
$Scan0 = DllStructGetData($BitmapData, "Scan0");Scan0 - Pointer to the first (index 0) scan line of the bitmap.
$pixelData = DllStructCreate("ubyte lData[" & (Abs($Stride) * ($Height)) & "]", $Scan0)
$BMPDataStart = DllStructGetData($pixelData, "lData") ;string, in dem die pixeldaten im BGR-Format stehen
_GDIPlus_BitmapUnlockBits($pBitmap, $BitmapData)
_GDIPlus_ImageDispose($pBitmap)
_WinAPI_DeleteObject($pBitmap)
EndFunc ;==>_GetImage

[/autoit]