Hello,
I've modified the "AppMon" script, but I don't understand why there's a Wordobject, I know what it does (make a list of processes), but not why Word is used. It takes a lot from my computer, so is there a way to do it on a different way?
code:
var monitorTime = 1000;
var prename = false;
var premsg = false;
var prestat = 0;
try{
var objWord = new ActiveXObject('Word.Application');
}catch(e){
objWord = new Object;
objWord.Tasks = function(){
var Exists = function(){
return false;
}
}
objWord.Fake = true;
}
var MsgStatus = ["Don't Change", "Offline", "Appear Offline", "Online", "Busy", "Be Right Back", "Idle", "Away", "In A Call", "Out to Lunch"];
function OnEvent_Initialize(MessengerStart){
MsgPlus.AddTimer ("app_monitor", monitorTime);
}
function OnEvent_Uninitialize(MessengerExit){
objWord.Quit();
}
function OnEvent_Timer(TimerId){
if (TimerId == 'app_monitor'){
var colTasks = objWord.Tasks;
if(colTasks.Exists("Microsoft Visual Basic 2008 Express Edition")){
var name = colTasks("Microsoft Visual Basic 2008 Express Edition").Name;
if (name != prename){
var RE = new RegExp("^(.+)\ - Microsoft Visual Basic 2008 Express Edition$",'i');
if (!prename){
premsg = Messenger.MyPersonalMessage;
}
Messenger.MyPersonalMessage = name.replace(RE, "Op dit moment ben ik programmerende met '$1' (Realtime gegevens)");
prename = name;
}
} else {
Messenger.MyPersonalMessage = "Op dit moment ben ik niet aan het programmeren (Realtime gegevens)";
}
}
MsgPlus.AddTimer ("app_monitor", monitorTime);
}
Kind regards,
Thomas
/ 
