欢迎来到福编程网,本站提供各种互联网专业知识!

小技巧打造拔U盘提示工具

发布时间:2014-08-19 作者:第十号员工 来源:互联网
第一步:首先在记事本程序中输入以下内容:OnerrorresumenextDimfso,d,dc,fSetfos=CreateObject(“Scripting.FileSystemObject”)Setdc=fso,DrivesForEachdindcSetf=fso.GetFile(d&”U盘.txt”)Ifleft(f,2)=dthenmsgbox“我是您的:

第一步:首先在记事本程序中输入以下内容:

On error resume next

Dim fso, d,dc,f

Set fos = CreateObject(“Scripting.FileSystemObject”)

Set dc = fso,Drives

For Each d in dc

Set f = fso.GetFile(d &”U盘.txt”)

If left(f,2)=d then msgbox “我是您的:”&d&”盘,请带我回家!”,vbcritical,”主人:您好!”

Next

输入好后,把文件保存在C盘根目录下,并取名为USBDISK..vbs.

第二步:单击开始—运行,输入gpedit.msc,按回车键,打开组策略编辑器。依次展开计算机配置—Windows设置—脚本(启动/关机),双击打开关机项,再点击添加,选择添加前面保存在C盘的USBDISK..vbs文件,确定后退出组策略编辑器。

第三步:在需要电脑关机时随身带走你的U盘或移动硬盘的要目录中,建立一个文件名为请带我回家.txt的文本文件。以后,如果你关机时没有拔出U盘或移动硬盘,系统就会弹出警告框提示你了!怎么样,很简单吧,试试看!

:更多精彩教程请关注全福编程网电脑教程栏目,全福编程网电脑办公群:189034526欢迎你的加入

相关推荐