关机时提醒别忘拔U盘

关机时提醒别忘拔U盘 如果你电脑要经常使用U盘, 又会忘记拔走, 那你可以使用提示电脑关机时自动卸载U盘～ 是否经常在网吧上网下机时却忘了带走你心爱的U盘呢～下面告诉你让你程序提示你自动卸载U盘吧～(此版本绝对能用，根据网上的版本改的 网上有不少符号不对的，无法使用。) 最恐怖到该是上了飞机发现U盘没带。555 flying…. 总共有3步，别漏了。 第一步:首先在记事本程序中输入以下内容 (所有符号为全英文半角符号切换到英文输入法模式下): On error resume next Dim fso,d,dc,f Set fso = CreateObject("scripting.fileSystemObject") Set dc=fso.Drives For Each d in dc Set f=fso.GetFile(d &"\请带我回家.txt") If left(f,2)=d then msgbox "我是您的:"&d&"盘，请带我回家～",vbcritical,"主人:您好～" Next 输入好后，把文件保存在C盘根目录下，并取名为USBDISK.vbs. 第二步: 单击开始—运行，输入gpedit.msc，按回车键，打开组策略编辑器。 依次展开计算机配置—Windows设置—脚本(启动/关机)， 双击打开关机项，在关机属性里点击添加，选择添加前面保存在C盘的USBDISK.vbs文件 ，确定应用后退出组策略编辑器。 第三步:在需要电脑关机时随身带走你的U盘或移动硬盘的根目录中，建立一个文件名为“请带我回家.txt”的文本文件。 以后，如果你关机时没有拔出U盘或移动硬盘，系统就会弹出警告框提示你了～ (程序中汉字为提醒时显示字符随便改都行。) 怎么样，很简单吧，试试看～ ---以下复制为文本文件 保存为C盘根目录下，并取名为USBDISK.vbs --- On error resume next Dim fso,d,dc,f Set fso = CreateObject("scripting.fileSystemObject") Set dc=fso.Drives For Each d in dc Set f=fso.GetFile(d &"\请带我回家.txt") If left(f,2)=d then msgbox "我是您的:"&d&"盘，请带我回家～",vbcritical,"主人:您好～" Next