vbs InPutBox steht im Hintergrund trotzdem schreibt er bestimmte Eingaben mit - Keylogger

Besteht überhaupt die Möglichkeit dies zu realisieren?
Würde mich über viele Anregungen freuen!
Wie kann man das vielleicht noch lösen?
Gibt es andere Möglichkeiten batch etc....?
Hinsichtlich der jeweiligen Anregungen habe ich mal die Aufälligkeit bezüglich Satzzeichen ein wenig verringert.
Abgesehen davon hat es definitiv keinen kriminellen Hintergrund.

dim fso, ZielDatei, FileOut,username
ZielDatei = "c:\DateiName.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( ZielDatei, 8, True)
Do While 1=1
username=InputBox ("Bitte geben Sie die Lieferscheinnummer
ein!","Lieferschein","LieferscheinNr.:")


If Not username = "" Then
FileOut.WriteLine (username)
Else Exit Do
End If
Loop


Besteht bei diesem Script eine weitere Möglichkeit wenn das Fenster geöffnet ist, aber im Hintergrund steht (Inputbox) und NICHT das aktive Fenster ist sondern z.b. "Notepad", dass er aber trotzdem die Eingaben mitschreibt (Art: Keylogger).
Zusätzlich würde ich gerne das Eingabefeld in nur 10-stelligen Zahlen eingrenzen.
Dies soll keine kriminellen Hintergründe haben.
Es soll als Log dienen um nachvollziehen zu können welche 10 stelligen Zahlen eingegeben wurden.
Zusätzlich muss der User gewollt dieses Script starten, somit weiß er das die jeweiligen Eingaben (10-stellige Zahlen) mitschreibt.