度娘别吞！
--------------------------------------------------
这个是关闭桌面所有窗口
（直接复制上去就ok）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PrivateTypePOINTAPI
xAsLong
yAsLong
EndType
PrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLong
PrivateDeclareFunctionWindowFromPointLib"user32"(ByValxPointAsLong,ByValyPointAsLong)AsLong
PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong
Dima(50)AsLong
DimIAsInteger
DimflagAsBoolean
PrivateSubCommand1_Click()
flag=True
MsgBox"都叫你别冲动了.重启吧~"
End
EndSub
PrivateSubForm_Load()
I=0
flag=fase
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
Text1="小鹏提醒你,别激动.!"
Cancel=True
EndSub
PrivateSubTimer1_Timer()
DimlgAsLong
OnErrorResumeNext
DimcurhWndAsLong'CurrenthWnd
DimlpAsPOINTAPI
Ifflag=FalseThenExitSub
I=I+1
IfI<50Then
'Initializepointstructure:
CallGetCursorPos(lp)
'Whichwindowisthemousecursorover?
curhWnd=WindowFromPoint(lp.x,lp.y)
a(I)=curhWnd
lg=ShowWindow(a(I),False)
Else
Forj=1To50
lg=ShowWindow(a(j),True)
Nextj
EndIf
EndSub