麻烦版主或高手指点指点
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'定义窗口以及子窗口的类名

Private Const sTrayWindow = "Shell_TrayWnd"
Private Const sDesktopIcon = "ShellDll_DefView"
Private Const sProgman = "Progman"
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Dim wnd As Long, wnd1 As Long
Dim lbHide As Boolean
Private Sub Command1_Click()
    Dim i As Integer
    wnd1 = FindWindow(sTrayWindow, vbNullString)
   
    wnd = FindWindow(sProgman, vbNullString)
    wnd = FindWindowEx(wnd, 0, sDesktopIcon, vbNullString)
    If lbHide = False Then
        ShowWindow wnd, SW_HIDE
        ShowWindow wnd1, SW_HIDE
        lbHide = True
    Else
        ShowWindow wnd, SW_SHOW
        ShowWindow wnd1, SW_SHOW
        lbHide = False
    End If

End Sub

[[italic] 本帖最后由 ytsm0526 于 2007-12-22 10:18 编辑 [/italic]]

我就是想用VB还实现啊，你看看那错了

麻烦各位高手指点指点啊

谁帮我把这个修改成功我送谁QQ

那没办法啊，只能那样了，我不会啊，也没有人帮我啊

呵呵，那些高手都跑那去了啊，就留下不会的了

说是regcreatekey没有定义还有下面那个函数

谢谢了啊，有没有别的什么办法

还是不会的，哥们你能不能说完

还是不行啊，没有点通啊