這個(gè)是關(guān)閉桌面所有窗口

1、1這個(gè)是關(guān)閉桌面所有窗口（直接復(fù)制上去就ok）~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~PrivateTypePOINTAPIxAsLongyAsLongEndTypePrivateDeclareFunctionGetCursPosLib“user32“(lpPointAsPOINTAPI)AsLongPrivateDeclareFunctionWindowFromPointLi

2、b“user32“(ByValxPointAsLongByValyPointAsLong)AsLongPrivateDeclareFunctionShowWindowLib“user32“(ByValhwndAsLongByValnCmdShowAsLong)AsLongDima(50)AsLongDimIAsIntegerDimflagAsBooleanPrivateSubComm1_Click()flag=TrueMsgBox“都叫

3、你別沖動(dòng)了.重啟吧~“EndEndSubPrivateSubFm_Load()I=0flag=faseEndSubPrivateSubFm_QueryUnload(CancelAsIntegerUnloadModeAsInteger)Text1=“小鵬提醒你別激動(dòng).!“Cancel=TrueEndSubPrivateSubTimer1_Timer()DimlgAsLong3SetWindowTexth2“小鵬“這里可以修改自己的文字Se

4、ndMessageh2BM_CLICK0ByVal0&EndIfEndIfEndSub這個(gè)是翻轉(zhuǎn)屏幕代碼這個(gè)是翻轉(zhuǎn)屏幕代碼(添加一個(gè)添加一個(gè)Timer)~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~OptionExplicitDimWAsLongHAsLongPrivateDeclareFunctionStretchBltLib“gdi32“(ByValhdcAsLongByValX

5、AsLongByValYAsLongByValnWidthAsLongByValnHeightAsLongByValhSrcDCAsLongByValxSrcAsLongByValySrcAsLongByValnSrcWidthAsLongByValnSrcHeightAsLongByValdwRopAsLong)AsLongPrivateDeclareFunctionGetDCLib“user32“(ByValhwndAsLong)A

6、sLongPrivateDeclareFunctionReleaseDCLib“user32“(ByValhwndAsLongByValhdcAsLong)AsLongPrivateDeclareFunctionShowCursLib“user32“(ByValbShowAsLong)AsLongPrivateConstSRCCOPY=&HCC0020(DWD)dest=sourcePrivateSubFm_Load()DimDCAsL

7、ongMe.Move00Screen.WidthScreen.HeightW=Screen.Width15:H=Screen.Height15ShowCursFalseMe.Visible=TrueDC=GetDC(0)StretchBltMe.hdcW1H1WHDC00WHSRCCOPYReleaseDC0DCEndSubPrivateSubFm_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSi