Numlock Script

Start Kladblok.

Kopieer de volgende code en plak deze in het tekstbestand:


set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"

Sla het bestand op als “numlock.vbs” (met inbegrip van de aanhalingstekens). Deze eigenschap genereert het bestand met de extensie .vbs. Het pictogram verandert van het Kladblok-pictogram in een scriptpictogram.

2 Responses so far.

Hijlko says:

28/10/2009 at 11:58

Dat numlock script is blijkbaar een toggle-functie. Klik je hem aan dan zet ie je Numlock uit als die al aan staat of zet hem aan als die uit staat. Met onderstaand scriptje wordt gecontroleerd of die uit staat. Zo ja, dan wordt ie aangezet.
Beetje vreemd dat het nodig is een Word versie te activeren (wordt niet getoond want dat blijkt is nodig) maar dat lijkt niet echt anders te kunnen. Word wordt ook weer afgesloten.

Set objWord = CreateObject(“Word.Application”)
set WshShell = CreateObject(“WScript.Shell”)
if objWord.NumLock = False Then WshShell.SendKeys “{NUMLOCK}”
objWord.Quit
admin says:

28/10/2009 at 12:16

@Hijlko

ik gebruikt dit in een batch scriptje om de numlock aan te zetten binnen 1 of andere vage apllicatie. Bedankt voor je input.

wat bedoel je eigenlijk met Word te activeren ?

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Numlock Script

Numlock Script

2 Responses so far.

Leave a Reply

Categories