Open notepad and type the following two lines :
set WshShell = CreateObject("wScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
and save the file as numlock.vbs ( you might have to change in order to save it as vbs ).
Every time you double click the file nothing appears on the screen, but the num lock function activates/deactivates.