一．概述
一些重要的程序，必须让它一直跑着；而且还要时时关心它的状态——不能让它出现死锁现象。当然，如果一个主程序会出现死锁，肯定是设计或者编程上的失误。我们首要做的事是，把这个Bug揪出来。但如果时间紧迫，这个Bug又“飘忽不定”，那么，我们还是先写一个软件“看门狗”，暂时应一下急吧。
“看门狗”的需求描述：“看门狗”的运行不出现界面窗口，具有一定的隐蔽性；定时判断目标进程是否运行在当前系统中，如果没有则启动目标进程；判断目标进程是否“没有响应”，如果是则终止目标进程；如果目标进程“没有响应”的次数超过一定的数量，则将计算机系统重启。
二．预备知识
首先要介绍两个主要的函数，能够判断目标进程是否“没有响应”。在User32.dll中（没有文档公开），Win2k/NT下的IsHungAppWindow和Win9X下的IsHungThread；前者是以一个窗口句柄作为参数，后者是以线程ID作为参数。我们可以通过VC开发工具的Depends查到这两个函数。
要使用这两个函数，我们必须先动态导入，如下：
if (m_hUser32 == NULL)
{
m_hUser32 = GetModuleHandle("USER32.DLL");
}
if (m_hUser32)
{
m_IsHungNT = (HUNG_FUNNT) GetProcAddress(m_hUser32, "IsHungAppWindow");
m_IsHung9X = (HUNG_FUN9X) GetProcAddress(m_hUser32, "IsHungThread");
}
另外，还有如下知识点：
1. 如何让窗口隐藏（当然通过Windows任务管理器还是可以看到的）
在框架窗口类的PreCreateWindow中修改窗口风格，如下：
BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
if( !CFrameWnd::PreCreateWindow(cs) )
return FALSE;
// TODO: Modify the Window class or styles here by modifying
// the CREATESTRUCT cs
cs.dwExStyle |= WS_EX_TOOLWINDOW; // Make invisible in taskbar
cs.style = WS_POPUP; // Hide the main window
return TRUE;
}
2. 如何让“看门狗”只运行一个进程
使用互斥量。在CWatchDogApp::InitInstance()中，执行如下代码：
bool CWatchDogApp::IsUniqueCopyInProc()
{
m_Mutex = CreateMutex(NULL, TRUE, "System Watch Dog");
if (GetLastError() == ERROR_ALREADY_EXISTS)
{
return false;
}
return true;
}
该函数如果返回false，说明已经有一个WatchDog进程在运行了，当前进程就没有必要再执行下去了。在InitInstance如下处理：
if (!IsUniqueCopyInProc())
return FALSE;
3. 如何判断当前操作系统类型
bool CWatchDogApp::IsWinNT()
{
OSVERSIONINFO OSVersionInfo;
OSVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(&OSVersionInfo);
if (OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
{
return true;
}
return false;
}
4. 如何自动重启计算机
在Win9x和Win2k/NT下，重启计算机的处理略有不同：
if (theApp.IsWinNT())
{
// 在Win NT/2000下赋予关闭系统的权限
static HANDLE hToken;
static TOKEN_PRIVILEGES tp;
static LUID luid;
::OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES|TOKEN_QUERY, &hToken ) ;
::LookupPrivilegeValue( NULL, SE_SHUTDOWN_NAME, &luid );
tp.PrivilegeCount = 1;
tp.Privileges[0].Luid = luid;
tp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
::AdjustTokenPr
|
