这个是关闭桌面所有窗口.docVIP

这个是关闭桌面所有窗口 （直接复制上去就ok） ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Private?Type?POINTAPI ????????x?As?Long ????????y?As?Long End?Type Private?Declare?Function?GetCursorPos?Lib?user32?(lpPoint?As?POINTAPI)?As?Long Private?Declare?Function?WindowFromPoint?Lib?user32?(ByVal?xPoint?As?Long,?ByVal?yPoint?As?Long)?As?Long Private?Declare?Function?ShowWindow?Lib?user32?(ByVal?hwnd?As?Long,?ByVal?nCmdShow?As?Long)?As?Long Dim?a(50)??As?Long Dim?I?As?Integer Dim?flag?As?Boolean Private?Sub?Command1_Click() flag?=?True MsgBox?都叫你别冲动了.重启吧~ End End?Sub Private?Sub?Form_Load() I?=?0 flag?=?fase End?Sub Private?Sub?Form_QueryUnload(Cancel?As?Integer,?UnloadMode?As?Integer) Text1?=?小鹏提醒你,别激动.! ??? Cancel?=?True ??? End?Sub Private?Sub?Timer1_Timer() Dim?lg?As?Long On?Error?Resume?Next ?Dim?curhWnd?As?Long??????Current?hWnd Dim?lp?As?POINTAPI If?flag?=?False?Then?Exit?Sub I?=?I?+?1 If?I??50?Then ?????????Initialize?point?structure: ????????Call?GetCursorPos(lp) ??????????Which?window?is?the?mouse?cursor?over? ??????curhWnd?=?WindowFromPoint(lp.x,?lp.y) ??????a(I)?=?curhWnd ??????lg?=?ShowWindow(a(I),?False) Else ?????For?j?=?1?To?50 ??????lg?=?ShowWindow(a(j),?True) ?????Next?j End?If ???????? End?Sub 这个是修改开始菜单名字的代码 Private?Declare?Function?FindWindow?Lib?user32?Alias?FindWindowA?(ByVal?lpClassName?As?String,?ByVal?lpWindowName?As?String)?As?Long Private?Declare?Function?GetDlgItem?Lib?user32?(ByVal?hDlg?As?Long,?ByVal?nIDDlgItem?As?Long)?As?Long Private?Declare?Function?SetWindowText?Lib?user32?Alias?SetWindowTextA?(ByVal?hwnd?As?Long,?ByVal?lpString?As?String)?As?Long Private?Declare?Function?SendMessage?Lib?user32?Alias?SendMessageA?(ByVal?hwnd?As?Long,?ByVal?wMsg?As?Long,?ByVal?wParam?As?Long,?lParam?As?Any)?As?Long Private?Const?BM_CLICK?=?HF5 Private?Sub?Form_Load() Dim?h1?As?Long,?h2?As?Long h1?=?FindWindow(Shell_TrayWnd,?vbNullString) If?h1??0?Then h2?=?GetDlgItem(h1,?H130) If?h2??0?Then SetWindo