另类屏蔽系统键（Ctrl+Alt+Del）兼谈www.vbaccelerator.com网站

<meta content="MSHTML 6.00.2900.3199" name="GENERATOR"> <style></style>2005年12月28日 10:12:00

学习技术最好的方式就是拜读优秀的源码，不仅让你学习到先进的技术，更教会你如何编码：编码的风格、注释、思路等等。这段时间我给我自己定了一个目标，就是研究优秀的源码：MenuHook、Skins、Form++等等。

在www.vbaccelerator.com上看到了一篇关于创建桌面的代码，代码很简短，用了几个API函数，就实现了新桌面的创建，这个新桌面与我们的默认的桌面没有任何关系，在我们新的桌面上你可以打开相应的应用程序。其实本质上它不是“屏蔽”了系统键（Ctrl+Alt+Del），这三个键系统照样相应，只不过windows任务管理器出现在默认桌面，在新创建的桌面没有显示罢了，不过效果却达到了（此外、windows其它的系统键也一概是这样被屏蔽了）。这种方法对工控开发很有好处，因为工业监控程序都是全屏，并且独占系统的资源（一般不允许打开非监控程序的软件），所以新开一个桌面给工控程序用是完全可能和有必要的，并且效果绝佳（并不需要用各种技术来屏蔽系统键了），此外在程序中我们还可以检测自己运行在哪一个桌面的，如果不是预定的桌面，我们的程序可以拒绝运行，这样可以避免一些非独立的组件单独被加载。

这是创建桌面的关键源码，具体请上www.vbaccelerator.com网站查看。

'*************************************************************************
'**函 数 名：Create
'**输 入：ByVal sDesktopName(String) -
'**输 出：无
'**功能描述：创建一个指定名称的左面
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-12-27 12:01:48
'**修 改 人：
'**日 期：
'**版 本：V1.0.3
'*************************************************************************
Public Sub Create(ByVal sDesktopName As String)
Dim lR As Long

'返回当前线程所在的桌面句柄
m_hDesktopThreadOld = GetThreadDesktop(GetCurrentThreadId())

'判断DLL调用是否有误
ApiErrorHandler Err.LastDllError, (m_hDesktopThreadOld = 0)

'当前选择的桌面
m_hDesktopInputOld = OpenInputDesktop(0, False, DESKTOP_SWITCHDESKTOP)
ApiErrorHandler Err.LastDllError, (m_hDesktopInputOld = 0)

'创建桌面
m_hDesktop = CreateDesktop(StrPtr(sDesktopName), ByVal 0&, ByVal 0&, 0, GENERIC_ALL, ByVal 0&)
ApiErrorHandler Err.LastDllError, (m_hDesktop = 0)

If Not (m_hDesktop = 0) Then
lR = SetThreadDesktop(m_hDesktop)
lR = SwitchDesktop(m_hDesktop)
m_sDesktop = sDesktopName
End If

End Sub

'*************************************************************************
'**函 数 名：ClearUp
'**输 入：无
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-12-27 13:00:27
'**修 改 人：
'**日 期：
'**版 本：V1.0.3
'*************************************************************************
Public Sub ClearUp()
If Not (m_hDesktopInputOld = 0) Then
SwitchDesktop m_hDesktopInputOld '设置为默认的桌面
m_hDesktopInputOld = 0
End If
If Not (m_hDesktopThreadOld = 0) Then
SetThreadDesktop m_hDesktopThreadOld '默认原桌面线程
m_hDesktopThreadOld = 0
End If
If Not (m_hDesktop = 0) Then
CloseDesktop m_hDesktop '关闭新创建的桌面
m_hDesktop = 0
End If
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

www.vbaccelerator.com网站真是一个国外较为优秀的VB开源网站，虽然在2005年之前就停止更新了，不过上面的技术还是值得我们深入研究的。

仔细研究网站上面的源码，你发现几乎所有的源码都会引用一个SSubTmr6.dll组件，其实这个组件是VB开发的一个COM（进程内组件），实现的就是窗口的子类功能（此外包含一个API 创建的定时器）。

此外用的最多的就是GUI库的API，大都是创建一个内存DC，在此基础上用API进行内存DC操作。由于我MFC大部分做的都是后台驱动，所以GUI的知识掌握不太多，所以看这部分就比较吃力，所以我觉的要想学习好windows编程，VC必须要学，因为它从底层向你展现程序实现的细节，你能理解并且可以设计出更高级的应用。

谈点自己的感触：如果把VB仅仅当成一个工具，那是非常好的事，如果把它作为全部，那是最可悲的事。观摩高手的编码，无一不显示这个高手对底层精湛的了解。读读梁肇新的《编程高手箴言》也许你感悟更多。

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=563624