Hallo,
ich will eine zweite Anwendung, die ein Messgerät steuert von Excel aus mit VBA und der AutoIX3.dll steuern.
Mit dem unten gezeigten Code kann ich das Fenster aktivieren, Text in Textfelder schreiben..
Allerdings kann ich die Buttons nicht bedienen, um die Messung zu starten. Mit dem AutoIt Window Info tool bekomme
ich leider keinen Text und keine ID des Buttons angezeigt. Wie komme ich an den Button ran?
Screenshot des Fensters im Anhang.
Vielen Dank für Eure Tipps.
Michael
Sub autoit()
Dim autoit As AutoItX3
Dim strTitWin As String, strClaWin As String, strHaWin As String
Set autoit = New AutoItX3
'Titel, Class, Handle des Fensters
strTitWin = "Bestimmung des Emissionsgrades nach EN 12898 Ver. 1.87"
strClaWin = "[Class:ThunderRT6FormDC]"
strHaWin = autoit.WinGetHandle(strTitWin, "")
‘aktivierung funktioniert
autoit.WinActivate strHaWin
‘schreiben in Textfelder funktioniert
autoit.ControlSetText strWin, "[CLASS:ThunderRT6TextBox; INSTANCE:3]", “”, “TestDatName”
autoit.ControlSetText strWin, "[CLASS:ThunderRT6TextBox; INSTANCE:5]", “TestProbInfo”
‘Button klick funktioniert nicht
autoit.ControlClick strTitWin, "", [CLASS:ThunderRT6UserControlDC; INSTANCE:8]……
Summary des Button, der geklickt werden soll....
>>>> Window <<<<
Title: Bestimmung des Emissionsgrades nach EN 12898 Ver. 1.87
Class: ThunderRT6FormDC
Position: 248, 74
Size: 880, 705
Style: 0x16CF0000
ExStyle: 0x00040100
Handle: 0x00000000000402D4
>>>> Control <<<<
Class: ThunderRT6UserControlDC
Instance: 8
ClassnameNN: ThunderRT6UserControlDC8
Name:
Advanced (Class): [CLASS:ThunderRT6UserControlDC; INSTANCE:8]
ID:
Text:
Position: 538, 576
Size: 146, 53
ControlClick Coords: 76, 29
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x0000000000030326
>>>> Mouse <<<<
Position: 870, 709
Cursor ID: 0
Color: 0xF6D387
>>>> StatusBar <<<<
>>>> ToolsBar <<<<
>>>> Visible Text <<<<
Laborant
10Spec
Strahl
Extern
Intern
Probenparameter
Glas
DatTest
ProbInfo
Methodenspezif. Probenparameter
1
...\0716AuA korr1....
10Spec
10Spec
>>>> Hidden Text <<<< 400
