MSGBOX von externem Programm auslesen

Thomasb

Hallo,

gibt es eine Möglichkeit MSGBOX's in einem von Autoit gesteuerte Programm auszulesen? Im Anhang ist die MSGBOX die kommt, wenn bei einem Debitor die Mailadresse fehlt. Ich benötige den Teil mit der D* beginnent, um dann dort eine Hilfsmailadresse einzutragen.

MFG Thomas

**Xenobiologist**

Hi,

wie immer, was sagt Autoit Window Info?

So long,

Mega

**peethebee**

Hallo! WinGetText und dann StringRegExp würde ich sagen :). peethebee

Thomasb

hi,

mit WInGetText kann ich es mir micht vorstellen, da der D* Wert immer ein anderer sein kann. Diesen D* Wert benötige ich dann ja. AutoIT Windows Info gibt das im Anhang befindliche aus.

Mfg Thomas

sc4ry

dann ist wingettext doch genau das richtige für dich. der liest dir den text ja, unter angabe des fenster-titels, aus.

und mit StringRegExp sollteste dann deinen Teil rausschneiden können

**BugFix**

Wenn der Ausgabetext sich nur in der Debitor-Nr ändert kannst du auch _StringBetween verwenden.

[autoit]

#include <String.au3>
$text = WinGetText("Titel")
$suchbegriff = _StringBetween($text, 'Debitor ', ' fehlt', 1)
If IsArray($suchbegriff) Then MsgBox(0, 'gefunden', $suchbegriff[0])

[/autoit]

Thomasb

hi,
irgendwie will es mit dem WinGetText nicht klappen. Es wird die MSGBOX bei der Aktivierung nicht erkannt. Ich habe es in meinem Script so eingebaut, das es in einer Schleife liegt, da ich nicht weiß ob diese MSGBOX aitiviert wird. Auch weiß ich nicht bei welchem Debitor.

Spoiler anzeigen

[autoit]

#include <String.au3>
Opt("TrayIconDebug", 1)
Opt("WinTitleMatchMode", 2)
Opt("WinSearchChildren", 1)
Opt("WinSearchChildren", 1)
Opt("WinDetectHiddenText", 1)
Opt("WinTextMatchMode", 2)

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

$navision = @ProgramFilesDir & "\Microsoft Business Solutions-Navision\Client\fin.exe"
Run($navision)
WinWaitActive('Anmelden')
Sleep(1000)
Send('tester{ENTER}')
Sleep(500)
Send('test{ENTER}{ENTER}')
Sleep(2500)
Send("!xd"); Aufruf Objektdesinger
Sleep(900)
Send("!p")
Send("{Home}")
Sleep(2000)
Send("{Right}")
Send("{F7}")
Sleep(2000)
Send("50032")
Send("{Enter}")
Sleep(500)
Send("!r")
Send("{Enter}")
Sleep(5000)
Send("{UP 3}")
SleeP(5000)
;Send(StringFormat("%02d", @MON - 1)& " / " & @YEAR);wandelt das Datum, damit die Null erhalten bleibt
Sleep(5000)
Send("{Enter 2}")
Sleep(5000)
;Send($string[$i])
Sleep(5000)
Send("{Enter}")
Send("{Enter}")
Sleep(5000)
Send("{Space}")
Send("!u")
Sleep(5000)
send("{TAB 7}{Enter}")
If FileExists("C:\Thomas\EVN\bat\NaviDruckBLAT.BAT")Then
Send("{Down}{Space}")
sleep(500)
Send("{Enter}")
Else
Send("{Enter}")
EndIf
While 1
$debi = "D*"
$text = WinGetText("Microsoft Business Solutions-Navision","In Debitor "& $debi & "fehlt die E-")
If WinActivate ($text) Then
$suchbegriff = _StringBetween($text, 'Debitor ', ' fehlt', 1)
If IsArray($suchbegriff) Then MsgBox(0, 'gefunden', $text)
EndIf

WEnd
WinWaitClose("Microsoft Business Solutions-Navision","Drucke...")

[/autoit]

Habe mal den gesamten Code eingestellt. Wo liegt mein Fehler?

MFg Thomas

**bernd670**

Das WinAcivate in Zeile 56 ist Falsch, müsste eigentlch so heissen:

[autoit]

If WinActivate ("Microsoft Business Solutions-Navision",$text) Then

[/autoit]

Thomasb

hi Bernd,

ok geändert wird jetzt erkannt. Leider aber nicht mit dem Erfolg den ich erhoft habe.

Ich habe diesen Teil zum Testen der alles ordentlich zurück gibt.

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <array.au3>

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

$text =("In Debitor D10000 fehlt die E-Mail-Adresse"); die quelle $text ist der ist-zustand, also kein anderer input vorhanden
$array = StringRegExp($text, "(?i)Debitor(.*?)(?i)fehlt",1)
ConsoleWrite($array & @CRLF)
MsgBox(64,"",$array[0])

[/autoit]

Wenn ich $text um WingetText erweitere bekomme ich einen Fehler.

C:\Programme\AutoIt3\Include\Strinregexp.au3 (7) : ==> Subscript used with non-Array variable.:
MsgBox(64,"",$array[0])
MsgBox(64,"",$array^ ERROR
Das gleiche geschieht auch in meinem Code. liegt hier ein Fehler?

Thomas

**BugFix**

Der Fehler: Es wurde kein String selektiert - $array ist leer.

[autoit]

#include <String.au3>
#include <array.au3>

$text =("In Debitor D10000 fehlt die E-Mail-Adresse"); die quelle $text ist der ist-zustand, also kein anderer input vorhanden
$array = StringRegExp($text, "(?i)Debitor(.*?)(?i)fehlt",1)
If IsArray($array) Then
MsgBox(64,"",$array[0])
Else
MsgBox(0, '', "Array leer!")
EndIf

[/autoit]

Probier malo dieses Pattern, bei mir klappt es damit:

[autoit]

$array = StringRegExp($text, "((?<=Debitor )(.*?)(?= fehlt))",1)

[/autoit]

Thomasb

hi,

leider hast du nicht richtig gelesen. dieser Teil funzt. erweitere den Teil

[autoit]

$text =("In Debitor D10000 fehlt die E-Mail-Adresse")

[/autoit]

um

[autoit]

$text =WinGetTExt("In Debitor D10000 fehlt die E-Mail-Adresse")

[/autoit]

und schaue was bei dir geschieht.
Nach langem üben kommt bei mir momentan 1 raus.

mfg Thomas

**BugFix**

[autoit]

$text = WinGetText($Title [,Text])

[/autoit]

$Title ist bei dir aber: "Microsoft Business Solutions-Navision", also:

[autoit]

$text = WinGetText("Microsoft Business Solutions-Navision")

[/autoit]

Thomasb

hi,

ja das war ja nur ein Versuch. ich habe es so gemacht dann kommt 1 raus

[autoit]

While 1
$debi = "******"
$text = WinGetText("Microsoft Business Solutions-Navision","In Debitor D10035 fehlt die E-Mail-Adresse")
If Not WinActivate($text) Then
WinWaitClose("Microsoft Business Solutions-Navision","Drucke...")
Else
MsgBox(0,"",StringRegExp($text, "(?i)Debitor(.*?)(?i)fehlt",1) )

ExitLoop

EndIf

WEnd

[/autoit]

was ich noch nicht geschaft habe ist das die Nummer D10035 als Variable funzt und dementsprechend ausgegeben wird.

thomas

**BugFix**

Sag mal, wieso eigentlich WinActivate() ?
Du willst doch wissen ob das Fenster aktiv ist, also WinActive().
Oder liege ich da falsch?

Thomasb

hi,

ne es kann plötzlich kommen, dann muss ich ein SydowAdresse eintragen bei dem Debitor.

Thomas

**bernd670**

Hallo,

ersetzte mal die While-Schleife am Ende durch folgende und probiers dann noch mal!

[autoit]

While 1
If WinExists("[Title:Microsoft Business Solutions-Navision;CLASS:#32770]") Then
$text = WinGetText("[Title:Microsoft Business Solutions-Navision;CLASS:#32770]")
$suchbegriff = _StringBetween($text, 'Debitor ', ' fehlt', 1)
If IsArray($suchbegriff) Then MsgBox(0, 'gefunden', $text)
EndIf
WEnd

[/autoit]

Thomasb

hi,

also nun es geschieht nixxxxxxxxxx. Ich habe keine Kennung mehr was noch möglich ist. :weinen: bei meinem Versuch kam 1 heraus was aber nicht stimmt. Es wurde auch in der Schleife früher aktiviert als MBS NAV war. Ich habe keinen Plan mehr.

Ok ich habe das Problem anders über einen Zwischenschritt In Navision gelöst.
Trotzdem danke für die Mühe.

Thomas