Beiträge von WildAutoIT

Hallo,

ich führe hier zwar Selbstgespräche aber vielleicht hilft es jemand. Ich konnte es jetzt mit

autoit.controlsend strTitWin, "", "[CLASS:ThunderRT6UserControlDC; INSTANCE:8]","{SPACE}"

erschlagen.

Grüße

Michael

Hallo,

ich habe inzwischen so ziemlich alle möglichen Funktionen auf Controls angewendet

ControlGetFocus, ControlGetHandle, GetPosX... alles funktioniert nur

ControlClick nicht.

Mit MouseClick geht es auch, aber das ist keine gute Lösung (denke ich).

Grüße

Michael

Hallo,

das war leider ein Übertragungsfehler ich habe schon probiert

autoit.ControlClick strTitWin, "", "[CLASS:ThunderRT6UserControlDC; INSTANCE:8]"
autoit.ControlClick strTitWin, "400", "[CLASS:ThunderRT6UserControlDC; INSTANCE:8]
"
autoit.ControlClick strTitWin, "Background", "[CLASS:ThunderRT6UserControlDC; INSTANCE:8] 
"
autoit.ControlClick strTitWin, "", "[CLASS:ThunderRT6UserControlDC; Text:400;INSTANCE:8] 
"

usw.

Leider keine Reaktion.

Ich habe im Netz schon einige Posts über Probleme mit ThunderRT6 gefunden, bin aber nicht

tief genug drin, um das zu verstehen. Danke für Eure Hilfe.

Grüße

Michael

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

SpecSW.jpg