作者： 老王

墨菲定律

　　墨菲定律是一种心理学效应，由爱德华·墨菲（Edward A. Murphy）提出，亦称墨菲法则、墨菲定理。

　　原文为：如果有两种或两种以上的方式去做某件事情，而其中一种选择方式将导致灾难，则必定有人会做出这种选择。根本内容是：如果事情有变坏的可能，不管这种可能性有多小，它总会发生。

　　墨菲定律（Murphy’s Law）主要内容有四个方面：

　　一、任何事都没有表面看起来那么简单；

　　二、所有的事都会比你预计的时间长；

　　三、会出错的事总会出错；

　　四、如果你担心某种情况发生，那么它就更有可能发生。

　　“墨菲定律”的根本内容是“凡是可能出错的事有很大几率会出错”，指的是任何一个事件，只要具有大于零的机率，就不能够假设它不会发生。

枚举进程

‘调用示例
Dim I As Integer
Dim ShowArray As Variant
ShowArray = ProcessArray
For I = LBound(ShowArray) To UBound(ShowArray)
Debug.Print ShowArray(I)
Next I

Option Explicit
Private Declare Function CreateToolhelp32Snapshot Lib “kernel32” (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib “kernel32” (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib “kernel32” (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib “kernel32” (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib “kernel32” (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Private Declare Function TerminateProcess Lib “kernel32” (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 1024
End Type

Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000

Private Function ProcessArray() As Variant ‘生成进程名数组
Dim pProcess As PROCESSENTRY32
Dim lRet As Long
Dim lRet1 As Long
Dim sName As String
Dim I As Integer
lRet = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If lRet Then
pProcess.dwSize = 1060
If (Process32First(lRet, pProcess)) Then ‘遍历第一个进程
Dim iCount As Integer
Dim TempArray() As String
Do
I = InStr(1, pProcess.szExeFile, Chr(0))
sName = LCase(Left(pProcess.szExeFile, I – 1))
ReDim Preserve TempArray(0 To iCount)
TempArray(iCount) = sName
iCount = iCount + 1
Loop Until (Process32Next(lRet, pProcess) < 1) ‘遍历所有进程知道返回值为False
End If
lRet1 = CloseHandle(lRet)
End If
ProcessArray = TempArray
End Function

独粒钻石棋(Solita)

一、介绍
独粒钻石是源于18世纪法国的宫廷贵族的自我挑战类单人棋游戏，可以锻炼逻辑思维能力。游戏玩法似中国跳棋，但不能走步，只能跳。棋子只能跳过相邻的格子到空位上，并且把被跳过的棋子吃掉。棋子可以沿格线横、纵方向跳，但是不能斜跳，剩下越少棋子越好。它与中国人发明的华容道、匈牙利人发明的魔方并称智力游戏界的三大不可思议。
二、别名
单身贵族、孔明棋
三、游戏规则
这游戏的棋盘有多种式样，不过最流行的式样，是一个圆形的板。板上有三行平行的小孔，和另外三行平行的小孔，相交织成十字形。每行的孔数有七个，故此一共有33个小孔。而棋子一般是一些头略粗的木粒子或玻璃弹子。
玩法是在棋盘33孔中，每孔都放下一棋，但是取中心的一孔是空着的。玩的时候是像跳棋一样行子。一棋子依直线在平行或垂直（不能依斜线）的方向跳过一棋子，而放在此棋子之后的一个空格内。故此，棋子后必要有空的孔才可跳过。每次棋子跳去一个空孔，被跳过的棋便移离棋盘。这时棋盘上便少了一只棋子。如此一直玩下去，使剩下来的棋子越少越好。
独立钻石的棋盘有很多种变形，十字棋盘就是最初的样子，走法就是按照跳棋的走法，但是被跳过的棋子全部被吃掉，这样每跳一下棋盘上的棋子就会少一颗，而如果像跳棋那样连跳，每步就可能吃掉很多颗棋子。游戏的目的是要使棋盘上留下来的棋子越少越好。如果最后剩一子，而且正好位于棋盘正中心的第44号洞孔上，那就是最好的结果。此种局势称为“独立（粒）钻石”。之所以把这种游戏取上这一名称，是因为人们喜爱“金鸡独立”，视为祥瑞之故。

下载见软件下载。

囚徒困境

　　囚徒困境（prisoner’s dilemma）是指两个被捕的囚徒之间的一种特殊博弈，说明为什么甚至在合作对双方都有利时，保持合作也是困难的。囚徒困境是博弈论的非零和博弈中具代表性的例子，反映个人最佳选择并非团体最佳选择；或者说在一个群体中，个人做出理性选择却往往导致集体的非理性。虽然困境本身只属模型性质，但现实中的价格竞争、环境保护、人际关系等方面，也会频繁出现类似情况。

　　“囚徒困境”是1950年美国兰德公司的梅里尔·弗勒德（MerrillFlood）和梅尔文·德雷希尔（MelvinDresher）拟定出相关困境的理论，后来由顾问艾伯特·塔克（AlbertTucker）以囚徒方式阐述，并命名为“囚徒困境”。

　　囚徒困境的故事讲的是，两个嫌疑犯作案后被警察抓住，分别关在不同的屋子里接受审讯。警察知道两人有罪，但缺乏足够的证据。警察告诉每个人：

　　如果两人都抵赖，各判刑一年；

　　如果两人都坦白，各判八年；

　　如果两人中一个坦白而另一个抵赖，坦白的放出去，抵赖的判十年。

　　于是，每个囚徒都面临两种选择：坦白或抵赖。

　　然而，不管同伙选择什么，每个囚徒的最优选择是坦白：如果同伙抵赖、自己坦白的话放出去，抵赖的话判一年，坦白比不坦白好；如果同伙坦白、自己坦白的话判八年，比起抵赖的判十年，坦白还是比抵赖的好。

　　结果，两个嫌疑犯都选择坦白，各判刑八年。

　　如果两人都抵赖，各判一年，显然这个结果好。

　　囚徒困境所反映出的深刻问题是，人类的个人理性有时能导致集体的非理性——聪明的人类会因自己的聪明而作茧自缚，或者损害集体的利益。

图片颜色屏蔽

Option Explicit
Private Declare Function TransparentBlt Lib “msimg32” _
(ByVal hdcDest As Long, ByVal nXOriginDest As Long, _
ByVal nYOriginDest As Long, ByVal nWidthDest As Long, _
ByVal nHeightDest As Long, ByVal hdcSrc As Long, _
ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, _
ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, _
ByVal crTransparent As Long) As Long
Private Declare Function GetPixel Lib “gdi32” (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

‘调用示例
‘添加一个 PictureBox,命名为 picSource,并加载图片
Dim TransparentColor As Long
TransparentColor = GetPixel(picSource.hdc, 0, 0) ‘选择左上角(0,0)的颜色为屏蔽色
‘thne simply draw with the transparent color equal to the value we found above
With picSource
TransparentBlt Me.hdc, 0, 0, .ScaleWidth, .ScaleHeight, .hdc, 0, 0, .ScaleWidth, .ScaleHeight, TransparentColor
End With
Me.Refresh

‘左图屏蔽(绿色)后显示为右图。