Seite 3 von 4
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Mittwoch 29. April 2015, 21:21
von Kasimir
Funktioniert auch nicht ...

Da habe ich Pech gehabt...
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Donnerstag 30. April 2015, 07:49
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Freitag 1. Mai 2015, 07:00
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Freitag 1. Mai 2015, 12:41
von premolar
Hallo Kasimir,
das Skript und auch Turbomed als Administrator ausführen. Dann wird es funzen

.
Schöne Grüße
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Freitag 1. Mai 2015, 20:27
von Kasimir
Leider hilft das auch nicht

Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Freitag 1. Mai 2015, 20:38
von 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.
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Montag 4. Mai 2015, 13:28
von 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.
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Montag 4. Mai 2015, 13:33
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Montag 4. Mai 2015, 14:02
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Montag 4. Mai 2015, 16:02
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Montag 4. Mai 2015, 18:21
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Dienstag 12. Mai 2015, 13:19
von draw
@Thomas
besten Dank - funktioniert prima auf Anhieb.
Sie haben mir 30min Freizeit pro Tag geschenkt!
Mfg AW
Re: Verteilen dieses (und anderer) Autohotkey-Scripts...
Verfasst: Dienstag 23. Juni 2015, 08:29
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Dienstag 21. Juli 2015, 22:45
von rfbdoc
Habe heute auch Autohotkey auf allen Rechnern installiert
Damit kann man endlich wieder flüssig arbeiten !
Danke !
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Freitag 14. August 2015, 08:26
von Andreas
Hallo Thomas,
prima Arbeit, funktioniert einwandfrei.
Vielen Dank!
Re: Verteilen dieses (und anderer) Autohotkey-Scripts...
Verfasst: Freitag 21. August 2015, 12:05
von Max
Thomas hat geschrieben: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?
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Freitag 21. August 2015, 12:30
von 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
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Freitag 21. August 2015, 13:24
von Max
Super, und dann auch noch so flott. Funktioniert, vielen lieben Dank!
Und ein schönes Wochenende.
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Dienstag 28. Mai 2019, 20:16
von 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!
Re: Diagnosesicherheit nicht mehr voreinstellbar
Verfasst: Dienstag 28. Mai 2019, 22:51
von rfbdoc
Diese kompilierten exe Dateien laufen hier jeweils unter 32 bzw. 64 bit ohne Probleme
TmDiagnosen.zip