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

ygqiang

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

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

ygqiang

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

复制代码

ygqiang

已经解决。。

1. 
   
2. 
   
3. /*&cls
   
4. @echo off
   
5. echo 参考http://blog.csdn.net/xin_yu_xin/article/details/8807078
   
6. 
   
7. explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
   
8. explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
   
9. 
   
10. del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Windows Explorer.*"
    
11. del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Windows Explorer.*"
    
12. 
    
13. copy /y "Internet Explorer.*" "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
    
14. set "file1=%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Internet Explorer.lnk"
    
15. 
    
16. copy /y "我的电脑.*" "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
    
17. set "file2=%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\我的电脑.lnk"
    
18. 
    
19. cscript -nologo -e:jscript "%~f0" "%file1%"
    
20. cscript -nologo -e:jscript "%~f0" "%file2%"
    
21. exit
    
22. pause&exit/b
    
23. */
    
24. var file = WScript.Arguments(0);
    
25. var objShell = new ActiveXObject('Shell.Application');
    
26. var objFolder = objShell.Namespace(file.replace(/[^\\]*$/,''));
    
27. var objFolderItem = objFolder.ParseName(file.replace(/.*\\/,''));
    
28. var objItemVerbs = objFolderItem.Verbs();
    
29. for(var i=1; i<objItemVerbs.Count; i++){
    
30.           var str = objItemVerbs.Item(i).Name;
    
31.           //适用简体中文系统
    
32.           if (/到任务栏/.test(str))objItemVerbs.Item(i).DoIt();
    
33. }
    
34. 
    

复制代码

pcl_test

1. //&cls&cscript -nologo -e:jscript "%~f0"&pause&exit
   
2. 
   
3. var fso = new ActiveXObject('Scripting.FileSystemObject');
   
4. var ws = new ActiveXObject('Wscript.Shell');
   
5. var sa = new ActiveXObject('Shell.Application');
   
6. var linkname = 'My Computer.lnk';
   
7. 
   
8. var fd = fso.GetFile(WSH.ScriptFullName).ParentFolder.Path;
   
9. var link = ws.CreateShortcut(fd+'\\'+linkname);
   
10. link.TargetPath = '%windir%\\explorer.exe';
    
11. link.Arguments = '/e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
    
12. link.IconLocation = "%windir%\\System32\\imageres.dll,104"
    
13. link.Save();
    
14. 
    
15. var Folder = sa.Namespace(fd);
    
16. var FolderItem = Folder.ParseName(linkname);
    
17. var ItemVerbs = FolderItem.Verbs();
    
18. for(var i=0; i<ItemVerbs.Count; i++){
    
19.     if (/定到任|to\s*taskbar/i.test(ItemVerbs.Item(i).Name))ItemVerbs.Item(i).DoIt();
    
20. }
    
21. fso.DeleteFile(fd+'\\'+linkname);

复制代码

ygqiang

回复 4# pcl_test


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

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

pcl_test

回复 5# ygqiang

工具 Taskbar Pinner

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

[Taskbar]
Command=ToggleDesktop

ygqiang

回复 6# pcl_test


    多谢。

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