用vbscript实现隐藏任务栏图标的脚本

Message = "To work correctly, the script will close" & vbCR
　　Message = Message & "and restart the Windows Explorer shell." & vbCR
　　Message = Message & "This will not harm your system." & vbCR & vbCR
　　Message = Message & "Continue?"
　　X = MsgBox(Message, vbYesNo, "Notice")
　　If X = 6 Then
　　On Error Resume Next
　　Dim WSHShell, n, MyBox, p, t, errnum, vers
　　Dim itemtype
　　Dim enab, disab, jobfunc
　　Set WSHShell = WScript.CreateObject("WScript.Shell")
　　p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
　　itemtype = "REG_DWORD"
　　enab = "ENABLED"
　　disab = "DISABLED"
　　jobfunc = "Notification Icons are now "
　　t = "Confirmation"
　　Err.Clear
　　n = WSHShell.RegRead (p)
　　errnum = Err.Number
　　if errnum <> 0 then
　　 WSHShell.RegWrite p, 0, itemtype
　　End If
　　If n = 0 Then
　　 n = 1
　　WSHShell.RegWrite p, n, itemtype
　　Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
　　ElseIf n = 1 then
　　 n = 0
　　WSHShell.RegWrite p, n, itemtype
　　Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
　　End If
　　Set WshShell = Nothing
　　On Error GoTo 0
　　For Each Process in GetObject("winmgmts:"). _
　　 ExecQuery ("select * from Win32_Process where name='explorer.exe'")
　　 Process.terminate(0)
　　Next
　　MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
　　Else 
　　MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
　　End If

赞 (0)

相关推荐

  • 用vbscript实现隐藏任务栏图标的脚本

    Message = "To work correctly, the script will close" & vbCR Message = Message & "and restart the Windows Explorer shell." & vbCR Message = Message & "This will not harm your system." & vbCR & vbCR Mess

  • iOS开发之隐藏导航栏线的简单代码

    iOS开发之隐藏导航栏线的简单代码

    去除navigationBar上那条线: ///隐藏navigationBar导航栏线(直接写在UINavigationController-viewDidLoad方法里面即可) UIView *backgroundView = [self.navigationBar subviews].firstObject; _lineView = backgroundView.subviews.firstObject; _lineView.hidden = YES; 去除前(效果图): 去除后(效果图):

  • 两种iOS隐藏导航栏的正确方法

    两种iOS隐藏导航栏的正确方法

    简介 在项目中经常碰到首页顶部是无限轮播,需要靠最上面显示.有的设置导航栏为透明等一系列的方法,这个可以借助第三方.或者干脆简单粗暴的直接隐藏掉导航栏.可是push到下一个页面的时候是需要导航栏的,如何做了,这里给出两种方法. 第一种做法 -注意这里一定要用动画的方式隐藏导航栏,这样在使用滑动返回手势的时候效果最好,和上面动图一致.这样做有一个缺点就是在切换tabBar的时候有一个导航栏向上消失的动画. - (void)viewWillAppear:(BOOL)animated { [super

  • Android 微信6.1 tab栏图标和字体颜色渐变的实现

    Android 微信6.1 tab栏图标和字体颜色渐变的实现

    相信大家都见到了微信图标颜色渐变的过程,是不是感觉很牛逼?不得不说微信团队确实是很厉害的团队,不管是从设计还是开发人员. 今天我带大家来看看,微信 tab 栏图标和字体颜色渐变的过程.先上图吧!今天学了一招制作 gif 动态图的快捷方法.刚好用的上,以前一直想写点什么东西, 苦于一直不知道怎么生成动态图,现在终于学会了,哈哈,让我偷偷的乐一会.额,还是上图吧... 好了,效果图也看到了,那么我也就不多啰嗦了,直接进入主题,看代码 [java] view plain copy package mo

  • Android 沉浸式状态栏与隐藏导航栏实例详解

    Android 沉浸式状态栏与隐藏导航栏实例详解

    1 前言 一般我们在Android的APP开发中,APP的界面如下: 可以看到,有状态栏.ActionBar(ToolBar).导航栏等,一般来说,APP实现沉浸式有三种需求:沉浸式状态栏,隐藏导航栏,APP全屏 沉浸式状态栏是指状态栏与ActionBar颜色相匹配, 隐藏导航栏不用多说,就是将导航栏隐藏,去掉下面的黑条. APP全屏是指将状态栏与导航栏都隐藏,例如很多游戏界面,都是APP全屏. 所以,在做这一步时,关键要问清楚产品狗的需求,免得白费功夫. 下面,分别来介绍这三种方式的实现. 2

  • 在vue中实现某一些路由页面隐藏导航栏的功能操作

    为了将导航栏显示在每一个页面中,可以将导航栏与<router-view>放在同一级显示,如下: <header> ... </header> <router-view></router-view> 但是,在某些时候,我们需要隐藏导航栏显示,比如登录界面,为了实现导航栏的隐藏,可以使用如下代码: <header v-show="$route.name!=='login'"> ... </header> &

  • Android 登录页面的实现代码(密码显示隐藏、EditText 图标切换、限制输入长度)

    Android 登录页面的实现代码(密码显示隐藏、EditText 图标切换、限制输入长度)

    效果演示 密码显示与隐藏 方法一 if(status){ etPassword.setInputType(InputType.TYPE_CLASS_TEXT | EditorInfo.TYPE_TEXT_VARIATION_NORMAL); //显示文本 status = false; }else { etPassword.setInputType(InputType.TYPE_CLASS_TEXT | EditorInfo.TYPE_TEXT_VARIATION_PASSWORD); //隐藏

  • C#超实用代码段合集

    本文实例总结了几个非常实用的C#代码.分享给大家供大家参考,具体如下: 1. C#在托盘显示图标 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace notifyI

  • python制作一个桌面便签软件

    # 2014.10.15 更新了memo.zip, 网盘的exe:修复:1.隔日启动不能正常加载json,加入:1.隐藏任务栏图标,2.通过垃圾桶进行窗口移动. # 2014.10.8 10.36更新了memo.zip # 2014.10.8 13.17 更新了memo.zip 在win10测试,基本没问题 运行widget.py文件. ubuntu: 在ubuntu上,memo.desktop文件可以放在desktop文件夹中,chmod +x,自己修改文件中对应的路径(很容易的).即可用作桌

  • 易语言通过按键模拟的方式实现QQ后台加人加群的代码

    易语言通过按键模拟的方式实现QQ后台加人加群的代码

    DLL命令表 .版本 2 .DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA" .参数 lpModuleName, 文本型 .DLL命令 GetDesktopWindow, 整数型, "user32.dll", "GetDesktopWindow" .DLL命令 CreateToolhelp32Snapshot, 整数型, "kernel32"

随机推荐