你本善良 郭德纲mp3:怎样修改我的电脑属性的图标

来源:百度文库 编辑:神马品牌网 时间:2024/03/29 23:35:13
就是可以将微软的标志改成自已的

如何更改“我的电脑”图标的标题?

如果您希望自动更改“我的电脑”图标的标题,只需运行一个这样的脚本:

Const MY_COMPUTER = &H11&

Set objNetwork = CreateObject("Wscript.Network") strComputer =

objNetwork.ComputerName Set objShell = CreateObject

("Shell.Application") Set objFolder = objShell.Namespace(MY_COMPUTER)

Set objFolderItem = objFolder.Self objFolderItem.Name = strComputer
该脚本开始时声明一个名为 MY_COMPUTER 的常量并为其赋值 &H11&;这是

Windows Shell 对象用于定位“我的电脑”的值。然后使用这两行代码确定本地

计算机的名称并将其名称存储在 strComputer 变量中:

Set objNetwork = CreateObject("Wscript.Network") strComputer =

objNetwork.ComputerName
目前为止还好吧,对不对?下一步,创建 Shell Application 对象的实例,使用

Namespace 方法将其绑定到与“我的电脑”相应的特定文件夹。然后使用下面一

行代码绑定到“我的电脑”的 FolderItem 对象:

Set objFolderItem = objFolder.Self
绑定到 FolderItem 之后,我们就可以访问文件夹属性,如文件夹名称。要想将

“我的电脑”标题设置为计算机名称,仅需将名称属性设置为 strComputer 这一

包含计算机名称的变量:

objFolderItem.Name = strComputer
就这样,不仅桌面图标,还有“开始”菜单中“我的电脑”的链接名称都会更改



如果您以后决定再将标题改回“我的电脑”,可以运行该脚本:

Const MY_COMPUTER = &H11&

Set objShell = CreateObject("Shell.Application") Set objFolder =

objShell.Namespace(MY_COMPUTER) Set objFolderItem = objFolder.Self

objFolderItem.Name = "My Computer"
请记住,这不能更改您的计算机名称,它仅仅更改“我的电脑”特定文件夹的标

题。重新命名计算机完全是另外一回事,我们将在别的时间讨论。您大概也注意

到了,即使更改了“我的电脑”标题,如变为 atl-ws-01,Shell Application

脚本仍然可以轻易找到“我的电脑”特定文件夹。这是因为脚本并不使用字符串

值“My Computer”来定位“我的电脑”,而是使用常量 &H11& 来定位特定文件

夹。

你吃多了???!!!