Diagnosesicherheit nicht mehr voreinstellbar

[Kasimir]

Funktioniert auch nicht ...
Da habe ich Pech gehabt...

[Augendoc]

@ Thomas

Meine Helferinnen lieben Sie für das kleine Script und ich freue mich, dass Sie meine Helferinnen glücklich gemacht haben

Ich hoffe, Sie bleiben dem Forum noch lange erhalten.

Viele Grüße und einen sonnigen Start in den Mai wünscht der Augendoc

[RAMöller]

Viele Dank für das Script.

Vielleicht kann TM dieses Script für eine Premium-Version gebrauchen.

Premium Turbomed oder kurz Premmed hätte dann folgende Features:

Praxistauglich und benutzbar

Preis: Pro gespartem Maus Klick 1 Cent

Da kommen Tausende am Tag zusammen

Grüße
Möller

[premolar]

Hallo Kasimir,

das Skript und auch Turbomed als Administrator ausführen. Dann wird es funzen .

Schöne Grüße

[Kasimir]

Leider hilft das auch nicht

[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_inaktiv]

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_inaktiv]

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