VBScript - Ereignis mitbekommen per Schleife?

Professor Bernd

Hallo, ich suche Hilfe in Sachen VB Script. Gerne auch über diesen einen Punkt hier hinaus.

In PSPad kann man per Script (VB, Java) Erweiterungen selbst schreiben. Mein derzeitiges Vorhaben ist das Highlighten von identischen Textstellen, so wie SciTE das macht. Wenn man einen Textbereich (z. B. ein Wort) markiert, sollen alle weiteren Vorkommen des Wortes farblich hervorgehoben werden. PSPad stellt dafür eine Schnittstelle bereit, die man grundsätzlich ansprechen kann mit

Code

set obj = NewEditor()
obj.assignActiveEditor()
...

Als nächstes bräuchte ich eine Möglichkeit, um zu bemerken wenn Text markiert wird. Da dachte ich an eine Schleife, die ständig läuft und das abfragt. Wäre eine Schleife dafür sinnvoll, oder verursacht die zuviel CPU-Last? Soll ich einfach ein "While 1 - Wend"-Schleife nehmen? Muss da ein Sleep rein, wegen der CPU-Last, oder ist das Unsinn? Welche Lösung würdet ihr vorschlagen?

**alpines**

Schau mal nach ob du nicht vielleicht Events registrieren kannst die ausgelöst werden wenn eine Textstelle markiert ist, dann ist die CPU-Zeit des Plugins praktisch 0.

Professor Bernd

Da habe ich auch schon dran gedacht, aber von VBS habe ich quasi keine Kenntnisse (mehr). Hier haben doch einige Erfahrung mit dem WSH und COM-Objekten, kann mir da jemand ein wenig helfen?

Nachtrag: Events sind vielleicht nicht so gut geeignet, denn es muss fortlaufend geprüft werden, wieviel markiert ist (Mindestlänge) und ob die Markierung entfernt wurde, ob sie überschrieben wurde, usw. All das mit Events zu erschlagen, dürfte schwierig sein. Wie siehts denn mit einem Timer aus? Der dürfte doch keine Last erzeugen?

**water**

Hast Du Google schon befragt? Du wirst ja weltweit nicht der erste sein, der das (oder was ähnliches) für PSPad schreiben will.
Vielleicht gibt’s ein PSPad-Forum wo Du nachfragen bzw. Anregungen kriegen kannst.
Hier sind ja primär die AutoIt-Nerds zu Hause

Professor Bernd

Ja, habe ich! Es gibt scheinbar nur ein einziges PSPad Forum, der Entwickler antwortet nicht in seinem eigenen Forum, die User sind scheinbar alle frustriert weggegangen, die Feature Requests sind Jahre alt, Google hat keine Ahnung, und ich bin mit meiner Weisheit echt am Ende! Aber gerade du solltest dich doch mit WSH auskennen, hast ja gerade erst die Task Planer UDF geschrieben. Oder ist das was anderes? Bin gerade recht frustriert, da ich nun ungelogen schon seit Wochen jede noch so kleine Information mühevoll zusammentragen muss. Niemand hat Interesse. So langsam verliere ich echt die Lust. SciTE ist steinzeit, sieht aus wie 1998, kann die einfachsten Sachen nicht, da helfen auf die tollen Features nichts, die es bietet, wenn es nochnichtmal grundsätzliches kann, wie z. B. scrollen, wenn man einen markierten Text über den unteren Rand zieht, Debugger und Formdesigner sind suboptimal, usw. PSPad interessiert keinen, AutoIt wird nicht mehr weiterentwickelt, und ich habe das Gefühl, für Hilfe betteln zu müssen. Anfragen zum Mitmachen werden höflich abgelehnt (ist jedem sein Recht) und ich habe das Gefühl, das Forum besteht nur aus einer Handvoll Mitglieder. So langsam nagt das an meiner Lust.

**autoiter**

Zitat von Professor Bernd

wie z. B. scrollen, wenn man einen markierten Text über den unteren Rand zieh

Alles andere wird schon so sein, wie du sagst. Aber das hier kann ich nicht nachvollziehen.

Professor Bernd

Öffne ein Script das mehr beinhaltet, als das SciTE-Fenster anzeigen kann, markiere Wörter oder 1, 2 Zeilen, dann versuche sie mit der Maus nach unten in den Bereich zu ziehen, der nicht angezeigt wird.

**BugFix**

Zitat

Hier haben doch einige Erfahrung mit dem WSH und COM-Objekten, kann mir da jemand ein wenig helfen?

Wir wissen ja nicht, welches Objekt du behandeln möchtest, welche Methoden und Eigenschaften dieses besitzt. Insofern nützt die Kenntnis vom Umgang mit Objekten rein gar nichts.

Zur Verwendung von Events: Diese sind effektiver als jede Schleife. Sie werden NUR ausgelöst, wenn ein Ereignis (Taste gedrückt, Taste gelöst, Zeichen in Editor eingefügt etc.) eintritt. Mittels Callback Funktion wird dann ausgewertet.

**water**

Zitat von Professor Bernd

Google hat keine Ahnung ...

Ein wenig findet man schon: https://forum.pspad.com/read.php?2,57695,57696#msg-5769 oder hier: https://forum.pspad.com/read.php?2,70140

Zitat

Aber gerade du solltest dich doch mit WSH auskennen, hast ja gerade erst die Task Planer UDF geschrieben. Oder ist das was anderes?

Richtig! Es ist was anderes.

Zitat

Niemand hat Interesse. ... PSPad interessiert keinen.

Das würde mir in Deiner Situation zu denken geben Vielleicht bist Du auf der falschen Baustelle unterwegs (falsche Sprache, falsches Projekt)? Nicht alles, was einen selbst interessiert, muss auch den Rest der Menschheit in Verzückung stürzen.

Zitat

SciTE ist Steinzeit, sieht aus wie 1998, kann die einfachsten Sachen nicht, da helfen auf die tollen Features nichts, die es bietet, wenn es nochnichtmal grundsätzliches kann.
Debugger und Formdesigner sind suboptimal, usw.

Kann es sein, dass Deine Ansprüche zu hoch sind? Wenn alle Welt mit AutoIt/SciTE (großteils) zufrieden ist, was sagt Dir das?

BTW: hast Du Dir das ISN AutoIt Studio schon angesehen? Ich vermute stark, dass diese auf AutoIt ausgerichtete IDE mehr kann als alle anderen Editoren wie SciTE, NPP, PSPad ...
Da könntest Du Viel Zeit und Nerven sparen.

Zitat

und ich habe das Gefühl, für Hilfe betteln zu müssen

Nochmal: Deine Ansprüche sind zu hoch. Wer sagt Dir, dass das, was Dich interessiert, jemand anderen interessieren muss. Oder wie es bei uns heißt: "Wo sind die Busladungen von Leuten, die das interessiert?"

Abgesehen davon, hast Du einige sehr interessierte Poster hier, die mit Ausdauer Deine Fragen beantworten - soweit sie sich in Deinen Spezialthemen auskennen. Ich hätte da manchmal schon WO gegeben. Also bleib auf dem Boden - auch wenn Du gerade genervt bist.

**BugFix**

Zitat von Professor Bernd

Öffne ein Script das mehr beinhaltet, als das SciTE-Fenster anzeigen kann, markiere Wörter oder 1, 2 Zeilen, dann versuche sie mit der Maus nach unten in den Bereich zu ziehen, der nicht angezeigt wird.

Ja und? Wo soll jetzt das Problem sein. Wenn du nicht gewillt bist dir SciTE zu eigen zu machen (steht dir frei), solltest du dir aber ersparen darauf herum zu hacken. Ich habe zig AddOns für SciTE geschrieben, aber in der Regel nachdem jemand fragte "Könnte man das in SciTE realisieren?". Auf "Mist das SciTE das nicht kann!" werde ich dann auch nicht gewillt sein anzuspringen.

Zitat von Professor Bernd

Debugger und Formdesigner sind suboptimal

Ähm, es liegt in der Natur von AutoIt als Interpretersprache, dass man es NICHT und in KEINEM Editor debuggen kann, wie man es vielleicht von C++ kennt.

Professor Bernd

BugFix

~~Kennst du Dbug?~~

Zum Debuggen kann man Dbug nehmen.

Zitat von Raupi

Was wird dann das jetzt?
Erst alle Posts incl. Startpost löschen und dann weiter im Thread fragen?

Edit: Weil Raupi das nicht verstanden hat, umformuliert von Frage zu Aussage. Das ist als freundliche Hilfestellung gedacht, falls Dbug nicht bekannt ist.

**Raupi**

Was wird dann das jetzt?

Erst alle Posts incl. Startpost löschen und dann weiter im Thread fragen?

Ich habe alle Posts wieder hergestellt.

**BugFix**

Zitat von Professor Bernd

Kennst du Dbug?

Ja. Wo ist der Zusammenhang? Ich sagte doch:

"Ähm, es liegt in der Natur von AutoIt als Interpretersprache, dass man es NICHT und in KEINEM Editor debuggen kann, wie man es vielleicht von C++ kennt."

Und Dbug arbeitet nicht im Editor selbst, sondern kopiert den Inhalt des Editors in ein Schattenskript, fügt in dieses Skript Auswertezeilen ein um Werte zu debuggen und führt das Skript ausserhalb des eigenen Editors aus.

Debuggen im Editor selbst funktioniert z.B. mit VBA-Skripten im VBA-Editor. Kannst du ja mal in Excel oder Word ausprobieren um den markanten Unterschied zu sehen.

Professor Bernd

Zitat von Raupi

Was wird dann das jetzt?
Erst alle Posts incl. Startpost löschen und dann weiter im Thread fragen?

Meine Güte, ist das so schwer zu verstehen!? Das war eine Hilfestellung! Ich passe mein Posting an, damit es verständilcher wird.

Professor Bernd

Zurück zum Thema. Die Frage wurde wieder hergestellt und ist noch offen.

Ich kenne mit mit VBScript und WSH nicht aus, und werde auch nicht soviel damit machen, dass es sich lohnt, von Grund auf anzufangen. Kennt sich jemand damit aus, und kann mir dabei weiterhelfen? Es reicht, wenn ich ein paar Routinen habe, die mir die Kommunikation mit der Editor-Schnittstelle ermöglichen.

**alpines**

Zitat von Professor Bernd

Ich kenne mit mit VBScript und WSH nicht aus, und werde auch nicht soviel damit machen, dass es sich lohnt, von Grund auf anzufangen. Kennt sich jemand damit aus, und kann mir dabei weiterhelfen? Es reicht, wenn ich ein paar Routinen habe, die mir die Kommunikation mit der Editor-Schnittstelle ermöglichen.

Meine Philosophie ist es sich immer Sachen anzuschauen die bereits funktionieren und u. A. das machen was ich möchte, statt direkt Bücher zu wälzen oder sich Tutorials durchzusehen.

Es gibt doch für PSPad bestimmt Plugins die OpenSource sind oder? Schau mal da rein, vielleicht kannst du da ja einfach paar Code-Blöcke rauskopieren und rumprobieren um so ein Gefühl dafür zu bekommen.

Und Plugins die die Editor-Schnittstelle ansprechen gibts bestimmt ein paar.

Dann werden dir auch lückenbehaftete Tutorials einfacher fallen, ich spreche da aus Erfahrung, weil ich selber grad was ähnliches durchmache.

Professor Bernd

Die Plugins und viele, viele Website-Snippets habe ich mir schon angesehen, leider ohne Erfolg. Für mich sieht das so aus, als ob da etwas "aus dem Nichts kommt" und dann irgendwas macht, wo ich nicht durchblicke. Für mich sind das böhmische Dörfer, deshalb frage ich ja hier. Man hat z. B.

set obj = NewEditor()

obj.assignActiveEditor()

und dann? Man kann im Editor ja obj. eingeben und hoffen, dass man vielleicht einen CallTip bekommt mit den Eigenschaften und Events, aber da passiert nichts. Ist ja klar, ist einfach ein Editor, keine IDE. Aber ich komme so halt nur mühselig weiter. Deshalb ja die Frage, ob mir da jemand helfen kann, alleine komme ich da nicht weiter.

Dennoch vielen Dank für deine Tipps.

**alpines**

Du hattest mir doch per PN letztens eine Referenz geschickt, dort ist das doch enthalten? Die Webseite ist grad down, deshalb muss man momentan mit einer waybackmachine drauf http://web.archive.org/web/2019022100…d/functions.htm

Hast du das vielleicht übersehen? Wenn du auf eine Funktion klickst kriegst du sogar teilweise Beispiele geliefert oder wenigstens eine Erklärung was das genau macht.

selText wäre doch das was du im 1. Post gesucht hast oder irre ich mich?

Du kannst sogar die Positionsangaben vom markierten Text holen.

Professor Bernd

Zitat von alpines

Die Webseite ist grad down

Kann ich bestätigen, komme auch nicht drauf. Später wird das bestimmt wieder funktionieren, deshal hier schonmal die Links für Interessierte :

PSPad - Script Language Reference und PSPad - Actions

Zitat von alpines

selText wäre doch das was du im 1. Post gesucht hast oder irre ich mich?

Soweit bin ich noch nicht. Klar habe ich das in den Referenzen schon studiert, aber ich meine: Programmiertechnisch brauche ich vorher eine Idee, wie man im VBScript mitbekommt, dass Text markiert wurde. ... Der Rest geht dann wie von selbst.

Wie im Posting #1 geschrieben, brauche ich einen Einstieg um ein Monitoring zu etablieren. Meine ersten Ideen waren eine Do-Loop Schleife, oder ein (API-)Timer. Nun habe ich mir VBSedit installiert und dort z. B. in den Beispielen andere Methoden gefunden. Leider sind die zu hoch für mich.

Beispiel 1: Monitor File Creation

' Monitor File Creation

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & _

strComputer & "\root\cimv2")

Set colMonitoredEvents = objWMIService.ExecNotificationQuery _

("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _

& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _

& "TargetInstance.GroupComponent= " _

& "'Win32_Directory.Name=""c:\\\\scripts""'")

Do

Set objLatestEvent = colMonitoredEvents.NextEvent

Wscript.Echo objLatestEvent.TargetInstance.PartComponent

Loop

Beispiel 2: Monitor Processor Use

' Monitor Processor Use

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

set objRefresher = CreateObject("WbemScripting.Swbemrefresher")

Set objProcessor = objRefresher.AddEnum _

(objWMIService, "Win32_PerfFormattedData_PerfOS_Processor").objectSet

intThresholdViolations = 0

objRefresher.Refresh

Do

For Each intProcessorUse in objProcessor

If intProcessorUse.PercentProcessorTime > 90 Then

intThresholdViolations = intThresholdViolations + 1

If intThresholdViolations = 10 Then

intThresholdViolations = 0

Wscript.Echo "Processor usage threshold exceeded."

End If

Else

intThresholdViolations = 0

End If

objRefresher.Refresh

Loop

Ich werde mal testen, ob ich mit der Do-Loop Schleife arbeiten kann, ohne dass die CPU ausgelastet wird. Wäre halt schön, wenn jemand ein wenig mit VBScript helfen könnte, anstatt dass ich da rumstochere.

Dir nochmals vielen Dank für deine Tips!

**alpines**

Mach dir um die CPU-Last erstmal keine Sorgen. Ich weiß nicht wie PSPad seine Plugins behandelt, ob die x mal in der Sekunde ausgeführt werden oder parallel laufen, aber wenn die Auslastung in die Höhe schnellt einfach ein Sleep 10ms rein und fertig.

Ich denke du machst dir da zu viele Gedanken, versuch erstmal zu erfassen wenn ein neuer Text markiert wurde und lass dir dann eine MsgBox oder etwas anderes ausgeben und arbeite dich dann weiter.

Wenn du fit in der Materie bist kannst du das ganze auch besser strukturieren, keine erwartet von dir, und das solltest du auch von dir nicht, dass du direkt alles von Anfang an beherrscht. Es ist noch kein Meister vom Himmel gefallen, und wird auch nicht.

Wenn du ständig überlegst wie du was strukturieren könntest wirst du irgendwann keine Lust mehr haben und aufhören, fang einfach mal an zu basteln und bring den Stein ins Rollen.

Nach paar Tagen hast du alles im Griff und kriegst es auch alleine auf die Kette, einfach machen, der Rest kommt schon von allein.

Und solltest du absolut keine Ahnung haben wie dein Skript ausgeführt wird, dann klau dir einfach ein OpenSource Plugin und strip soweit alles runter bis du in einer Einstiegsroutine bist und arbeite dich von da aus nach weiter.