hallo, ich haette da gerne mal eine Frage... :hammer:
gesucht: ControlID in einer Fremdanwendung
gegeben: ein dynamischer Text (jedes mal anders)
Schwierigkeit:
AutoIT Window Info zeigt leider nichts an, auch wenn man das entsprechende Objekt mit der Maus versucht anzuklicken.
Kennt sich jemand aus?
Danke
@Berti
Welche Anwendung ist es denn? Kann man es irgendwie nachstellen?
Welcher Control-Typ (Label, Combobox, Button, ...)?
Screenshot von Programm und Window Info Tool wäre evtl. hilfreich.
peethebee
hallo peethebee, :rofl_devil:
es scheint ein edit oder label zu sein, das die erreichte Punktzahl anzeigt.
AutoIT Window Info zeigt leider nichts an, auch wenn man das entsprechende Objekt mit der Maus versucht anzuklicken.
Gruss @Berti
Hi,
vielleicht hilft dies:
;~ Return values
;~ [N][1] = 'Title of Window'
;~ [N][2] = 'Handle of Window'
;~ [N][3] = 'Text of Window'
;~ [N][4] = 'Window Pos X'
;~ [N][5] = 'Window Pos y'
;~ [N][6] = 'Window ClientSize Width
;~ [N][7] = 'Window ClientSize Height
;~ [N][8] = 'Window Class List
$aWinArray = _WinGetInfoByPID('Deineexe.exe')
If IsArray($aWinArray) Then
For $i = 1 To UBound($aWinArray, 1) - 1
MsgBox(64, 'Info:', 'The title of window ' & $i & ' is: ' & @CR & $aWinArray[$i][1] & @CR & @CR & _
'The handle of window ' & $i & ' is: ' & @CR & $aWinArray[$i][2] & @CR & @CR & _
'The text of window ' & $i & ' is: ' & @CR & $aWinArray[$i][3] & @CR & @CR & _
'The X Screen Pos of window ' & $i & ' is: ' & @CR & $aWinArray[$i][4] & @CR & @CR & _
'The Y Screen Pos of window ' & $i & ' is: ' & @CR & $aWinArray[$i][5] & @CR & @CR & _
'The Client Width of window ' & $i & ' is: ' & @CR & $aWinArray[$i][6] & @CR & @CR & _
'The Client Height of window ' & $i & ' is: ' & @CR & $aWinArray[$i][7] & @CR & @CR & _
'The Class List for window ' & $i & ' is: ' & @CR & $aWinArray[$i][8])
Next
Else
MsgBox(64, 'Info:', 'Executable Not Found')
EndIf
Func _WinGetInfoByPID($sExe)
Local $aPList = ProcessList(), $iPID
For $iiCount = 1 To $aPList[0][0]
If $aPList[$iiCount][0] = $sExe Then
$iPID &= $aPList[$iiCount][1] & Chr(01)
EndIf
Next
$iPID = StringSplit($iPID, Chr(01))
If $iPID = 0 Then Return SetError(1, 0, 0)
Local $aStoreHwndAndText[2][9], $nCount = 1
$OptWSC = Opt('WinSearchChildren', 1)
$OptWDHT = Opt('WinDetectHiddenText', 1)
Local $aWinList = WinList()
For $iCount = 1 To $aWinList[0][0]
For $xCount = 1 To $iPID[0]
If WinGetProcess($aWinList[$iCount][1]) = $iPID[$xCount] And _
$aWinList[$iCount][0] <> '' Then
Local $aWinPos = WinGetPos($aWinList[$iCount][1])
Local $aWinClient = WinGetClientSize($aWinList[$iCount][1])
$nCount += 1
ReDim $aStoreHwndAndText[$nCount][9]
$aStoreHwndAndText[$nCount - 1][1] = $aWinList[$iCount][0]
$aStoreHwndAndText[$nCount - 1][2] = $aWinList[$iCount][1]
$aStoreHwndAndText[$nCount - 1][3] = WinGetText($aWinList[$iCount][1])
$aStoreHwndAndText[$nCount - 1][4] = $aWinPos[0]
$aStoreHwndAndText[$nCount - 1][5] = $aWinPos[1]
$aStoreHwndAndText[$nCount - 1][6] = $aWinClient[0]
$aStoreHwndAndText[$nCount - 1][7] = $aWinClient[1]
$aStoreHwndAndText[$nCount - 1][8] = WinGetClassList($aWinList[$iCount][1])
EndIf
Next
Next
Opt('WinSearchChildren', $OptWSC)
Opt('WinDetectHiddenText', $OptWDHT)
If $nCount = 1 Then Return SetError(2, 0, 0)
Return $aStoreHwndAndText
EndFunc ;==>_WinGetInfoByPID
So long,
Mega
hallo meger, :hm:
koenntest Du das Programm so umschreiben, das man nur das entsprechende Fenster aktiviert ?
Danke @Berti
HI,
warum? Hat dein Problemfenster keine exe?
So long,
Mega
hallo , :hm:
danke fuer die Anregungen. Das Script funktioniert leider nicht.
Gibt es eine Funktion, die alle ControlID's des aktuellen Fensters auflisted?
Gruss @Berti
hallo AutoIT-Gemeinde, :keks:
es ist mir nun doch geglückt, alle ControlID`s
des gerade markierten Fensters anzuzeigen.
#cs----------------------------------------------------------
; 1)starte dieses exe
; 2)markiere gewünschtes Fenster
; 3)drücke nach dem Start die taste ALT+h
; dadurch zeigt das aktuelle Fenster alle seine ControlID's
#ce----------------------------------------------------------
#include <Array.au3>
HotKeySet("{ESC}", "Terminate")
HotKeySet("!h", "fensterAbfrage")
While 1
sleep(200)
;tue nix
Wend
func fensterAbfrage()
;fenstertitel
local $h = WinGetHandle("")
;print
Run ("Notepad")
WinWaitActive("Unbenannt - Editor")
Send(";Auswertung")
Send("{Enter}")
Send(";visible-controID-Text--------------------------------------------")
Send("{Enter}")
local $i = 1
While $i < 9999
$textID = ControlGetText($h,"",$i)
$isVisible = ControlCommand($h,"",$i,"isVisible") ;1=true
$isEnabled = ControlCommand($h,"",$i,"isEnabled") ;1=true
;$getSelected = ControlCommand($h,"",$i,"getSelected") ;zeigt Text des Edit
IF not @error Then
Send(" ["&$isVisible&"]")
Send(" ["&$isEnabled&"] ")
Send($i&" ")
Send($textID)
Send("{Enter}")
EndIF
$i = $i + 1
WEnd
;terminate
terminate()
EndFunc
Func terminate()
Exit 0
EndFunc
Für meine Zwecke reicht das. Aber es scheint noch ein Unterfenster mit einigen Label's zu geben.
AutoITWindowInfo zeigt diese Label leider nicht an.
Wie komme ich an diese Daten?
Danke @Berti