    ʵֽдС           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  ʵֽдС     ʵֽдС ڣ200767 ߣ 鿴:[     С ]        
һЩӦṩһַĹܣֻҪһͿԽWindowsϵдСȣҪϵдڣΣҪжϴͣϵĺܶര޷СߴǲɼģWin 
 95е뷨ڡ󣬽ͷϵĴС           ͨʵֹܡ 
ȣProjectмһModuleļȻModuleм´룺 
 
Public Declare Function EnumWindows Lib "user32" _ 
 (ByVal lpEnumFunc As Long, ByVal lParam _ 
 As Long) As Long 
Declare Function GetWindowLong Lib "user32" Alias _ 
 "GetWindowLongA" (ByVal hwnd As Long, _ 
 ByVal nIndex As Long) As Long 
Declare Function ShowWindow Lib "user32" (ByVal _ 
 hwnd As Long, ByVal nCmdShow As Long) As Long 
 
Public Const WS_MINIMIZEBOX = &H20000 
Public Const WS_VISIBLE = &H10000000 
 
Public Const GWL_STYLE = (-16) 
Public Const SW_MINIMIZE = 6 
 
úEnumWindowsĻصEnumWindows 
ھݵhwnd 
Function EnumWindowsProc(ByVal hwnd As Long,_ 
 ByVal lParam As Long) As Long 
 
 Dim l As Long 
 Dim ld As Long 
 
 ld = GetWindowLong(hwnd, GWL_STYLE) 
 ھСťҴǿɼľͽôС 
 If ((ld And WS_MINIMIZEBOX) = WS_MINIMIZEBOX) Then 
 If ((ld And WS_VISIBLE)) Then 
 If ShowWindow(hwnd, SW_MINIMIZE) Then 
 End If 
 End If 
 End If 
 EnumWindowsProc = True 
End Function 
ȻForm1һCommandButtonForm1Ĵ봰´룺 
Private Sub Command1_Click() 
 Dim l As Long 

 [1]   [2]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   ʵֽдС £   ʵֽдС  ʵֽдС   
һƪ: ȡļVB̼  
һƪ: VBӦʵֶЧ  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBѧ±ܼӴ    VBʹDirectXļ̳    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    API޸עģ    VB쳬Ի˵    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    webbrowser 2ղأ    VB6DataGridʵͨõӱ    FindWindow    VB6.0ͼ    VB̳ ڶ£ؼѧϰ    VB֮·ý     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       