Skip to content

Instantly share code, notes, and snippets.

View eugrus's full-sized avatar

Evgeny Fishgalov eugrus

8 followers · 22 following
View GitHub Profile
@eugrus
eugrus / Vollrubrum.RA-MICRO
Created September 11, 2026 14:44
von <$13>, <$15>, <$16>, <$12>
– Kläger –
Verfahrensbevollmächtigte: <$23>, <$25>, <$26>
gegen
<$33>, <$35>, <$36>, <$32>
– Beklagte –
@eugrus
eugrus / FileSearch.ps1
Created September 9, 2026 09:13
faster than gci file search
param([string]$path, [string]$filter)
$stack = [System.Collections.Generic.Stack[string]]::new()
$stack.Push($path)
while ($stack.Count) {
$dir = $stack.Pop()
try {
[System.IO.Directory]::EnumerateFiles($dir, $filter)
foreach ($subDir in [System.IO.Directory]::EnumerateDirectories($dir)) {
@eugrus
eugrus / UIAEnumerator.ps1
Created September 8, 2026 07:35
<#
.SYNOPSIS
Lists UI Automation elements of all open top-level windows (incl. name, value, position).
This is the WPF/XAML counterpart to Get-HwndEnumerator.ps1: WPF draws its controls into a
single HWND, so EnumChildWindows returns nothing useful. UI Automation walks the logical
tree instead.
.PARAMETER TitleFilter
Substring filter for the window name (case-insensitive). Empty = all windows.
@eugrus
eugrus / repl.js
Created September 7, 2026 18:34
REPL for WSH JScript
(function () {
var stdin;
var stdout;
var stderr;
var line;
var command;
var buffer;
var inBlock;
var globalEval;
@eugrus
eugrus / hwndEnumerator.ps1
Last active September 8, 2026 08:25
<#
.SYNOPSIS
Lists HWNDs of all open top-level windows and their controls (incl. text and control IDs).
.PARAMETER TitleFilter
Substring filter for the window title (case-insensitive). Empty = all windows.
.PARAMETER ClassFilter
Wildcard filter (like -like) for the control class, e.g. "Edit", "*Edit*", "TMemo".
Empty/"*" = all classes.
@eugrus
eugrus / Adressebearbeiten.ps1
Last active September 7, 2026 17:05
RA-MICRO-Dialoge "Akte anlegen" und "Adresse bearbeiten" programmatisch auslesen und ausfüllen
param(
[string]$Adressnummer, # Index 0: Adressnummer (zeigt "neu" bei Neuanlage)
[string]$LKZ, # Index 1: LKZ (Länderkennzeichen, Combo-Text)
[string]$Anrede, # Index 2: Anrede (Combo-Text, z. B. "1 - Herr")
[string]$Bank, # Index 3: Konto - Bank
[string]$BLZ, # Index 4: Konto - BLZ
[string]$Kontonummer, # Index 5: Konto - Nummer
[string]$Adresszeile1, # Index 6: 1. Adresszeile (Anredewort, z. B. "Herrn")
[string]$BIC, # Index 7: Konto - BIC
[string]$IBAN, # Index 8: Konto - IBAN
@eugrus
eugrus / List-Pins.ps1
Created August 27, 2026 15:12
(New-Object -ComObject Shell.Application).Namespace('shell:::{679F85CB-0220-4080-B29B-5540CC05AAB6}').Items() | Select Path
@eugrus
eugrus / SemikolonZuPunkt.ps1
Created August 25, 2026 10:30
$wdFindStop = 0
$wdUpperCase = 1
try {
# An bereits laufendes Word anbinden
$word = [Runtime.InteropServices.Marshal]::GetActiveObject('Word.Application')
$doc = $word.ActiveDocument
if ($null -eq $doc) {
throw 'Es ist kein aktives Word-Dokument geöffnet.'
@eugrus
eugrus / in Perplexity standardmäßig Suche statt Computer aktivieren.js
Last active September 2, 2026 13:47
// ==UserScript==
// @name Perplexity: Standardmäßig 'Suche' aktivieren
// @namespace http://tampermonkey.net/
// @version 1.0
// @description Wählt automatisch die Option 'Suche' statt 'Computer' in der Perplexity-Oberfläche.
// @author Du
// @match https://www.perplexity.ai/*
// @grant none
// @run-at document-end
// ==/UserScript==
@eugrus
eugrus / Urlaubssimulator.html
Created August 7, 2026 16:15
<!doctype html>
<html lang="en">
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width,initial-scale=1">
<!-- Настраивает масштаб страницы на мобильных устройствах. -->