Diagnosesicherheit nicht mehr voreinstellbar

[Thomas]

@Kasimir: Bitte PN lesen... vielleicht können wir das so direkt einfacher lösen. Sobald die Ursache klar und beseitigt ist, melde ich mir hier mit Infos für alle zurück.

[doc2810]

Hallo Thomas,
also auch von uns ein ganz herzliches Dankeschön für Ihre tolle Programmierarbeit. Darauf können Sie wirklich stolz sein. Aus der Übung kommen Sie mit Turbomed sicherlich nie, aber die Zeit muss man erst mal haben.
Nochmals vielen Dank!

Viele Grüße

doc2810


P.S. Hat überall geklappt, aber bei einem Rechner mit WIN 7, 32 bit hat´s bei der Installation gemeckert und abgebrochen.

[Thomas]

Hallo, doc2810,

ich habe in dem letzten Programmpaket auch für die Version 3 eine 32bit-Version kompiliert. Extra für Sie

Viele Grüße,
Thomas

[doc2810]

Hallo Thomas,
genial, es hat sofort auf dem 32 bit Rechner geklappt. Ich habe in unserem vorangegangenen Beitrag vergessen zu erwähnen, dass man nicht nur Zeit sondern insbesondere schon ein enormes Wissen angehäuft haben muss, um so etwas hin zu bekommen. Also Hut ab!

Wir wünschen eine schöne und ruhige Woche.

doc2810

[Relativist]

@Thomas
Hallo Zusammen,

ich wollte mich einfach mal erkundigen, ob das ein VB.Net Programm ist, da ich derzeit das Programm nicht ausführen kann.

Danke und Grüße

[Thomas]

Nein, das ist ein Autohotkey-Script. Wenn die kompilierten Programme nicht laufen sollten, dann bitte Autohotkey von http://www.autohotkey.com installieren und die Scripte (.ahk-Dateien) einfach so ausführen. Wobei ich mir nicht vorstellen kann, dass es ein grundsätzliches Problem mit den kompilierten Scripten geben sollte, mal von den 64bit Versionen abgesehen, die auf 32bit Systemen natürlich nicht laufen können. (Wohl aber umgekehrt.)

Viele Grüße,
Thomas

[draw]

@Thomas

besten Dank - funktioniert prima auf Anhieb.
Sie haben mir 30min Freizeit pro Tag geschenkt!

Mfg AW

[Thomas]

Bisher hatte ich das Paket mit den verschiedenen Programmen (alt und neue Version, 32 und 64 bit) bei Copy.com geparkt, weil ich hier im Forum nur Anhänge in sehr homöopathischen Dosen verwenden kann. Nun hat der automatische Virenscanner von copy.com angeschlagen, und den Link entfernt. Ich möchte betonen, dass das ein Fehlalarm ist, vermutlich ausgelöst durch irgendeine interne Funktion des verwendeten Autohotkey, das ja notwendigerweise (zur Maus- und Tastatursteuerung und zum Abgreifen von Bildschirminhalten) tiefer ins System eingreifen muss. Dennoch, mit einem Download-Link geht's halt nicht (mehr).

Ich bitte deshalb jeden, der in Zukunft dieses (oder andere meiner) Scripte einsetzen möchte, sich auf http://ahkscript.org/download den Installer herunterzuladen und den zu installieren. Danach einfach das entsprechende Autohotkey-Script von hier herunterladen und ausführen. Das Script kommt immer im Quelltext (mit einer .ahk Erweiterung). Das hat nebenbei den Vorteil, dass man den Autohotkey-Interpreter aktualisieren kann, und das Script dann immer den jeweils installierten benutzt (und nicht den, den ich vor mehr oder weniger langer Zeit zum Compilieren verwendet habe). Und wer zum einfacheren Verteilen auf mehrere Rechner dennoch einfach eine selbstständig laufende Version des Scripts haben will: Einfach das Script mit der rechten Maustaste anklicken und aus dem Kontextmenü "Compile Script" auswählen - fertig.

Viele Grüße,
Thomas

PS: Hier nochmal das Script, das im Anhang enthalten ist, zum direkten Anschauen:

Code: Alles auswählen

SetTitleMatchMode, Slow
Loop
{
  SetTitleMatchMode, RegEx
  WinWaitActive, ^Diagnose$|^\QTURBOMED - [Gestellte Diagnose]\E$|Gestellte Diagnose
  SetTitleMatchMode, 3
  WinGetText, strFenstertext
  IfWinExist, Diagnose
  {
    OutputDebug, Wir sind in einem "alten" Diagnosefenster
    loop, 1
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "-")
      Send, g
    WinWaitclose, Diagnose
  }
  Else IfWinExist, TURBOMED - [Gestellte Diagnose]
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster
    loop, 9
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }
  Else IfWinExist, Gestellte Diagnose
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster
    loop, 9
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }
}
Return

[rfbdoc]

Habe heute auch Autohotkey auf allen Rechnern installiert

Damit kann man endlich wieder flüssig arbeiten !

Danke !

[Andreas]

Hallo Thomas,
prima Arbeit, funktioniert einwandfrei.
Vielen Dank!

[Max]

Bisher hatte ich das Paket mit den verschiedenen Programmen (alt und neue Version, 32 und 64 bit) bei Copy.com geparkt, weil ich hier im Forum nur Anhänge in sehr homöopathischen Dosen verwenden kann. Nun hat der automatische Virenscanner von copy.com angeschlagen, und den Link entfernt. Ich möchte betonen, dass das ein Fehlalarm ist, vermutlich ausgelöst durch irgendeine interne Funktion des verwendeten Autohotkey, das ja notwendigerweise (zur Maus- und Tastatursteuerung und zum Abgreifen von Bildschirminhalten) tiefer ins System eingreifen muss. Dennoch, mit einem Download-Link geht's halt nicht (mehr).

Ich bitte deshalb jeden, der in Zukunft dieses (oder andere meiner) Scripte einsetzen möchte, sich auf http://ahkscript.org/download den Installer herunterzuladen und den zu installieren. Danach einfach das entsprechende Autohotkey-Script von hier herunterladen und ausführen. Das Script kommt immer im Quelltext (mit einer .ahk Erweiterung). Das hat nebenbei den Vorteil, dass man den Autohotkey-Interpreter aktualisieren kann, und das Script dann immer den jeweils installierten benutzt (und nicht den, den ich vor mehr oder weniger langer Zeit zum Compilieren verwendet habe). Und wer zum einfacheren Verteilen auf mehrere Rechner dennoch einfach eine selbstständig laufende Version des Scripts haben will: Einfach das Script mit der rechten Maustaste anklicken und aus dem Kontextmenü "Compile Script" auswählen - fertig.

Viele Grüße,
Thomas

PS: Hier nochmal das Script, das im Anhang enthalten ist, zum direkten Anschauen:

Code: Alles auswählen

SetTitleMatchMode, Slow
Loop
{
  SetTitleMatchMode, RegEx
  WinWaitActive, ^Diagnose$|^\QTURBOMED - [Gestellte Diagnose]\E$|Gestellte Diagnose
  SetTitleMatchMode, 3
  WinGetText, strFenstertext
  IfWinExist, Diagnose
  {
    OutputDebug, Wir sind in einem "alten" Diagnosefenster
    loop, 1
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "-")
      Send, g
    WinWaitclose, Diagnose
  }
  Else IfWinExist, TURBOMED - [Gestellte Diagnose]
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster
    loop, 9
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }
  Else IfWinExist, Gestellte Diagnose
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster
    loop, 9
    {
      strDiagnosenSicherheit := SubStr(strFenstertext, 1, InStr(strFenstertext, "`r`n")-1)
      strFenstertext:= SubStr(strFenstertext, InStr(strFenstertext, "`r`n")+2)
    }
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }
}
Return

Hallo,

vielen Dank für das Script, echt toll. Allerdings funktioniert das nicht mit eingeschalteten AKR und der Version 15.3.1. Kann das sein? Probehalber habe ich die Kodierrichtlinien deaktiviert, dann funktioniert es sofort, mit dem "neuen" Diagnosenfenster hingegen nicht.
Im Quelltext des Scripts habe ich schon ein wenig probiert, leider bislang ohne nennenswerten Erfolg.
Was kann ich noch probieren?

[Thomas]

Hallo Max,

da hat sich wohl was an der Maske geändert. Ich habe das Script angepasst, es sollte jetzt universell(er) funktionieren:

Code: Alles auswählen

SetTitleMatchMode, Slow
Loop
{
  SetTitleMatchMode, RegEx
  WinWaitActive, ^Diagnose$|^\QTURBOMED - [Gestellte Diagnose]\E$|Gestellte Diagnose
  SetTitleMatchMode, 3
  IfWinExist, Diagnose
  {
    OutputDebug, Wir sind in einem "alten" Diagnosefenster
    ControlGet, strDiagnosenSicherheit, Choice, , Combobox1
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "-")
      Send, g
    WinWaitclose, Diagnose
  }
  Else IfWinExist, TURBOMED - [Gestellte Diagnose]
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster (AKR aktiv)
    ControlGet, strDiagnosenSicherheit, Choice, , Combobox1
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }
  Else IfWinExist, Gestellte Diagnose
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster (AKR aktiv)
    ControlGet, strDiagnosenSicherheit, Choice, , Combobox1
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }
}
Return

Das Script hängt auch an:

Diagnosensicherheit v4.zip

[Max]

Super, und dann auch noch so flott. Funktioniert, vielen lieben Dank!

Und ein schönes Wochenende.

[Pimpfi]

Hallo allerseits,

mit den vorbeschriebenen Varianten war durch das entsprechende Skript unter Win7 32 und 64bit die Voreinstellung der gesicherten Diagnose kein Problem.

Unter Win10 64bit funktioniert bei mir mit der letzten Version 4 (oder auch den vorherigen) leider nichts mehr...

Gibt es denn jemanden der ein Skript vielleicht so modifiziert hat, dass es auch mit dem akutellen Win10 64bit läuft???
Würde mich riesig freuen!

Herzlichen Dank im Voraus!

[rfbdoc]

Diese kompilierten exe Dateien laufen hier jeweils unter 32 bzw. 64 bit ohne Probleme

TmDiagnosen.zip

[Pimpfi]

Vielen Dank für die schnelle Antwort und den Download!

Paradoxon:
Unter Win7 64bit lief alles wie geschmiert.
Nach Upgrade auf Win10 64bit keine Diagnosen-Voreinstellung mehr und auch kein TMKartei-Drucker.

Die Lösung:
TM wurde immer standartmäßig als Administrator gestartet - damit öffneten die einzelnen Fenster immer in der zuletzt geöffneten Position und Größe. Dafür kapitulieren unter Win 10 die beiden Tools.

Öffnet man TM unter Win10 nicht als Admin, laufen die Tools - dafür öffnen die Fenster jedes Mal an einer anderen Stelle. Ist doch ein schlechter Witz...

Kennt jemand die sinnvolle Verknüpfung von beiden Effekten ???

[rfbdoc]

Kennt jemand die sinnvolle Verknüpfung von beiden Effekten ???

Nein


Bei mir steht die jeweilige exe Datei in der Autostart. Sie läuft unabhängig davon wie und ob TurboMed gestartet wird und steht im Systray sowohl unter Win7 als auch unter Win10 egal ob 32- oder 64 bit
Eventuell auch einmal unter Eigenschaften im Register Sicherheit die Einstellungen für die exe Datei überprüfen ?

[Landarzt21]

Im oben angepassten Script muss glaube ich noch eine weitere Anpassung rein ein weiteres Else If,
Turbomed hat innerhal eines Komplexes ein Fenstern mit "TURBOMED - Gestellte Diagnose" ohne "Gestellte Diagnose" in [] aufgemacht, da hat es nicht funktioniert., mit dem weiteren Elseif müsste es gehen.

Code: Alles auswählen

Else IfWinExist, TURBOMED - Gestellte Diagnose
  {
    OutputDebug, Wir sind in einem "neuen" Diagnosefenster (AKR aktiv)
    ControlGet, strDiagnosenSicherheit, Choice, , Combobox1
    OutputDebug, %strDiagnosenSicherheit%
    If (strDiagnosenSicherheit = "?")
      Send, g
    WinWaitclose, TURBOMED - [Gestellte Diagnose]
  }

[Landarzt21]

zum Kontext passend, kann ich im Rahmen einer Komplexauslösung eine Diagnosesicherheit voreinstellen. Z.b. Komplex für Langzeit EKG dann Diagnosesicherhiet bei Herzrhythmusstörung V.a. ?