[系统相关] [已解决]win7系统，批处理如何实现将“计算机/我的电脑”锁定到任务栏

ygqiang

[已解决]win7系统，批处理如何实现：将(我的电脑)锁定到任务栏，单击就打开我的电脑界面

以前装ghost版本的win7系统，任务栏左下角（靠近开始菜单的地方），
默认就锁定了1个文件夹，单击打开就是我的电脑界面。

ygqiang

回复 6# pcl_test


    多谢。

你4楼的代码。win7 64系统下好用。
但在win7 32系统不好用。没效果。任务栏上并没有添加/锁定“我的电脑”项目

pcl_test

回复 5# ygqiang

工具 Taskbar Pinner

显示桌面.scf[code][Shell]
Command=2
IconFile=explorer.exe,3

[Taskbar]
Command=ToggleDesktop

ygqiang

回复 4# pcl_test


非常感谢。还是你这个代码牛。。。

另外有个问题。能否将win7系统右下角的“显示桌面”，跟“我的电脑”一起，同时锁定在任务栏的左下角（开始菜单旁边）呢？

pcl_test

//&cls&cscript -nologo -e:jscript "%~f0"&pause&exit

var fso = new ActiveXObject('Scripting.FileSystemObject');
var ws = new ActiveXObject('Wscript.Shell');
var sa = new ActiveXObject('Shell.Application');
var linkname = 'My Computer.lnk';

var fd = fso.GetFile(WSH.ScriptFullName).ParentFolder.Path;
var link = ws.CreateShortcut(fd+'\\'+linkname);
link.TargetPath = '%windir%\\explorer.exe';
link.Arguments = '/e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
link.IconLocation = "%windir%\\System32\\imageres.dll,104"
link.Save();

var Folder = sa.Namespace(fd);
var FolderItem = Folder.ParseName(linkname);
var ItemVerbs = FolderItem.Verbs();
for(var i=0; i<ItemVerbs.Count; i++){
    if (/定到任|to\s*taskbar/i.test(ItemVerbs.Item(i).Name))ItemVerbs.Item(i).DoIt();
}
fso.DeleteFile(fd+'\\'+linkname);
复制代码

ygqiang

已经解决。。

/*&cls
@echo off
echo 参考http://blog.csdn.net/xin_yu_xin/article/details/8807078

explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"

del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Windows Explorer.*"
del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Windows Explorer.*"

copy /y "Internet Explorer.*" "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
set "file1=%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Internet Explorer.lnk"

copy /y "我的电脑.*" "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
set "file2=%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\我的电脑.lnk"

cscript -nologo -e:jscript "%~f0" "%file1%"
cscript -nologo -e:jscript "%~f0" "%file2%"
exit
pause&exit/b
*/
var file = WScript.Arguments(0);
var objShell = new ActiveXObject('Shell.Application');
var objFolder = objShell.Namespace(file.replace(/[^\\]*$/,''));
var objFolderItem = objFolder.ParseName(file.replace(/.*\\/,''));
var objItemVerbs = objFolderItem.Verbs();
for(var i=1; i<objItemVerbs.Count; i++){
	  var str = objItemVerbs.Item(i).Name;
	  //适用简体中文系统
	  if (/到任务栏/.test(str))objItemVerbs.Item(i).DoIt();
}
复制代码

ygqiang

explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
复制代码