zoukankan      html  css  js  c++  java
  • 窗体最小化后在任务栏不显示


    将以下代码保存为 .vbs 文件后,双击,确定,重启。


    'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
    '?Kelly Theriot and Doug Knox - 8/22/2003
    '翻译:Smallfrogs。翻译内容:将英文提示改为简体中文
    '来源:Microsoft Windows XP NewsGroup

    Set WSHShell = WScript.CreateObject("WScript.Shell")
    Message = "本脚本用于修复Windows XP中当最小化程序时,无法在任务栏显示图标的问题。"& vbCR & vbCR
    Message = Message & "为了正常工作,本脚本将关闭和重启 Windows Explorer 外壳,这个操作不会损坏你的系统。" & vbCR & vbCR
    Message = Message & "请关闭所有杀毒软件的实时监控!并保存所有打开的文件。"& vbCR & vbCR
    Message = Message & "是否继续?"

    X = MsgBox(Message, vbYesNo+vbExclamation, "注意")

    If X = 6 Then

    On Error Resume Next

    WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2\"
    WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamsMRU\"
    WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\"

    WshShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize"

    P1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"

    WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD"
    WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD"
    WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
    WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD"
    WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
    WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD"
    WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
    WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD"
    WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD"
    WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD"

    p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"

    WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
    WshShell.RegDelete p1 & "NoMovingBands"

    p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"

    WshShell.RegWrite p1, "explorer.exe", "REG_SZ"

    p1 = "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\"
    WshShell.RegDelete p1 & "BarSize"
    WshShell.RegWrite p1, "Media Band", "REG_SZ"

    On Error Goto 0

    For Each Process in GetObject("winmgmts:"). _
    ExecQuery ("select * from Win32_Process where name='explorer.exe'")
      Process.terminate(0)
    Next

    MsgBox "完成!" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "完成"

    Else

    MsgBox "没有对你的系统进行任何改变。" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "用户取消了"

    End If



  • 相关阅读:
    php实现求链表中倒数第k个节点
    在python正在使用mysql
    1002. 写这个号码 (20)(数学啊 ZJU_PAT)
    Lua 环境结构 --Linux
    Java程序猿JavaScript学习笔记(4——关闭/getter/setter)
    C/C++数据对齐汇总
    多线程
    11gRAC CHM 管理
    hdu 4059 The Boss on Mars(纳入和排除)
    模板方法模式分析、图表和基本代码
  • 原文地址:https://www.cnblogs.com/677/p/541890.html
Copyright © 2011-2022 走看看