中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 新建快捷方式到任意处→VBS版
« [1] [2] » ›
作者:
标题: 新建快捷方式到任意处→VBS版 上一主题 | 下一主题
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『楼 主』:  新建快捷方式到任意处→VBS版

①新建快捷方式到任意处，可自定义名称和图标。
   创建快捷方式到系统内置文件夹中：USER表示当前用户路径，system表示所有用户路径
②修复系统内置的快捷方式：
   如果你误删除了快速启动栏的“显示桌面”，发送到中的“我的文档”、“邮件接收者”、“桌面快捷方式”，用此程序可以修复。
③自定义图标：xp共有238个，winme共有106个,win98共有80个。
xp中49-52为透明图标,大家试试看。
下图中"发送到“中的自定义文件夹图标为128、129、130、131

[ Last edited by baomaboy on 2007-3-17 at 03:00 PM ]

   此帖被 +41 点积分        点击查看详情   
评分人：【 electronixtar 】分数： +23  时间：2007-3-17 07:00
评分人：【 Kinglion 】分数： +14  时间：2007-3-17 09:21
评分人：【 0401 】分数： +4  时间：2007-3-17 09:32


附件 1: Manage_Shortcut_Folder.rar (2007-3-17 06:14, 10.17 K,下载次数： 170)
附件 2: 0.GIF (2007-3-17 06:14, 11.82 K,下载次数： 14)


附件 3: 1.GIF (2007-3-17 06:16, 10.65 K,下载次数： 3)


2007-3-17 06:14
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 2 楼』:  

楼主的右键菜单不是一般的长～～～～啊，那是相～～～当的长～～～～～啊




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2007-3-17 06:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 3 楼』:  



  Quote:
Originally posted by electronixtar at 2007-3-17 06:59:
楼主的右键菜单不是一般的长～～～～啊，那是相～～～当的长～～～～～啊

electronixtar见笑了，呵呵显摆显摆，其实净是不常用的，反倒成了累赘。平时只留一两个常用的^_^

2007-3-17 07:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yangzhiyi
中级用户





积分 261
发帖 123
注册 2006-6-6
状态 离线
『第 4 楼』:  

看样子不错

2007-3-17 07:12
查看资料  发短消息 网志   编辑帖子  回复  引用回复
Kinglion
铂金会员

痴迷ＤＯＳ者


积分 5792
发帖 1921
注册 2003-6-20
来自 金獅電腦軟體工作室
状态 离线
『第 5 楼』:  

好东西就要与大家分享，给你加分了。



熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
2007-3-17 09:21
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (79207959)  编辑帖子  回复  引用回复
0401
中级用户

带走



积分 435
发帖 88
注册 2005-9-24
状态 离线
『第 6 楼』:  



  Quote:
electronixtar见笑了，呵呵显摆显摆，其实净是不常用的，反倒成了累赘。平时只留一两个常用的^_^

楼主是北京的?

2007-3-17 09:33
查看资料  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 7 楼』:  



  Quote:
Originally posted by 0401 at 2007-3-17 09:33:

楼主是北京的?

河北

2007-3-17 11:10
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
chengbiner
初级用户





积分 105
发帖 44
注册 2006-10-5
状态 离线
『第 8 楼』:  

楼主能不能把右键转换为bat文件和重新启动资源管理器弄上来看看啊？

2007-3-17 11:18
查看资料  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 9 楼』:  



  Quote:
Originally posted by chengbiner at 2007-3-17 11:18:
楼主能不能把右键转换为bat文件和重新启动资源管理器弄上来看看啊？

可以 我正在边整理边陆续上传中

2007-3-17 11:38
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 10 楼』:  

ÿ

  Quote:
Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WinVer = WshSHell.Environment("Process")
Set Args = WScript.Arguments
CloseTime = 5
FileName = WScript.ScriptName
FileFullName = WScript.ScriptFullName
FilePath = FSO.GetParentFolderName(FileFullName)
InsPath = FSO.GetSpecialFolder(1)
InsFullName = FSO.BuildPath(InsPath ,FileName)
LnkPathNT = WshSHell.SpecialFolders(2)
LnkPath9X = WshSHell.SpecialFolders(14)
LnkPathAll = WshSHell.SpecialFolders("SendTo")
OtherFileName="winclip.exe"
OtherFilePath=FSO.GetSpecialFolder(1)
TemFileName="无标题"
TemFilePath=FSO.GetSpecialFolder(2)
Copyright="玲珑科技"
QQ="QQ:25926183"
Email="Email:fty1995@163.com"
InsTitle="Manage_Shortcut_Folder"
InsAnswer="添加/管理快捷方式"
RegPath1="HKEY_CLASSES_ROOT\Drive\shell\Manage_Shortcut_Folder\"
RegValue1="添加/管理快捷方式"
RegForm1="REG_SZ"
RegPath2="HKEY_CLASSES_ROOT\Drive\shell\Manage_Shortcut_Folder\command\"
RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34)
RegForm2="REG_SZ"
RegPath3="HKEY_CLASSES_ROOT\Directory\shell\Manage_Shortcut_Folder\"
RegPath4="HKEY_CLASSES_ROOT\Directory\shell\Manage_Shortcut_Folder\command\"
RegPath5="HKEY_CLASSES_ROOT\*\shell\Manage_Shortcut_Folder\"
RegPath6="HKEY_CLASSES_ROOT\*\shell\Manage_Shortcut_Folder\command\"
RegPath7="HKEY_CLASSES_ROOT\Drive\shell\"
RegValue7="open"
RegPath8="HKEY_CLASSES_ROOT\Folder\shell\shell\"
RegValue9="{D969A300-E7FF-11d0-A93B-00A0C90F2719}"
RegValue10="{7BA4C740-9E81-11CF-99D3-00AA004AE837}"
WshSHell.RegDelete "HKEY_CLASSES_ROOT\piffile\IsShortcut"
WshSHell.RegDelete "HKEY_CLASSES_ROOT\lnkfile\IsShortcut"
WshSHell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\link",0,"REG_DWORD"
IF FileFullName <> InsFullName then
intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“"+ InsAnswer +"”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+ Copyright)
    If intAnswer = vbYes Then
WshSHell.RegWrite RegPath1,RegValue1,RegForm1
WshSHell.RegWrite RegPath2,RegValue2,RegForm1
WshSHell.RegWrite RegPath3,RegValue1,RegForm1
WshSHell.RegWrite RegPath4,RegValue2,RegForm1
WshSHell.RegWrite RegPath5,RegValue1,RegForm1
WshSHell.RegWrite RegPath6,RegValue2,RegForm1
WshSHell.RegWrite RegPath7,RegValue7,RegForm1
WshSHell.RegWrite RegPath8,RegValue7,RegForm1
FSO.GetFile(FileFullName).Copy(InsFullName)
WshSHell.popup _
"添加脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"添加注册表项："+chr(10)+chr(34)+ RegPath3 +chr(34)+chr(10)+chr(34)+ RegPath5 +chr(34)+chr(10)+ _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
        If intAnswer = vbNo Then
WshSHell.RegDelete RegPath6
WshSHell.RegDelete RegPath5
WshSHell.RegDelete RegPath4
WshSHell.RegDelete RegPath3
WshSHell.RegDelete RegPath2
WshSHell.RegDelete RegPath1
FSO.DeleteFile InsFullName
WshSHell.popup _
"删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"删除注册表项："+chr(10)+chr(34)+ RegPath3 +chr(34)+chr(10)+chr(34)+ RegPath5 +chr(34)+chr(10)+ _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "卸载成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
        If intAnswer = vbCancel Then
end if
ELSE
if Args.count="0" then:WScript.Quit(0):end if
if WshSHell.RegRead("HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\new\") <> RegValue9 then
WshSHell.RegWrite "HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\new\",RegValue9,"REG_SZ"
elseif WshSHell.RegRead("HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Send To\") <> RegValue10 then
WshSHell.RegWrite "HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Send To\",RegValue10,"REG_SZ"
end if
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems''取得操作系统版本信息
''Wscript.Echo objOperatingSystem.Caption, objOperatingSystem.Version
WinSystem=objOperatingSystem.Caption
WinVersion=left(objOperatingSystem.Version,3)
Next
if WinVersion > 5.0 then
IconMaxNum=238
WshSHell.RegWrite "HKEY_CLASSES_ROOT\*\shellex\ContextMenuHandlers\{a2a9545d-a0c2-42b4-9708-a0b2badd77c8}\","附到「开始」菜单","REG_SZ"
elseif WinVersion > 4.7 then
IconMaxNum=106
else
IconMaxNum=80
end if
If WinVer("OS") <> "Windows_NT" Then
LnkPathAllNum=Inputbox("请选择要添加到/管理的文件夹：(User)"&chr(10)&chr(10)&_
"1.桌面 2.开始 3.程序 4.启动 5.临时"&chr(10)&chr(10)&"6.发送到  7.快速启动  8.历史记录"&chr(10)&chr(10)&"输入‘ 0 ’打开浏览文件夹对话框……"_
,"选择文件夹 - "&InsAnswer,"6")
If IsNumeric(LnkPathAllNum)=False Then
WshShell.popup chr(10) &_
"请输入正确的编号值(输入数字型值)！"+ chr(10) &chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "错误提示 - "+ InsTitle +" - "+ Copyright, 0 + 48
Call Quit
Elseif LnkPathAllNum <> "" Then
Select Case LnkPathAllNum
Case 0 Call ZDYPath
Case 1 LnkPathAll = WshSHell.SpecialFolders(7)
Case 2 LnkPathAll = WshSHell.SpecialFolders(8)
Case 3 LnkPathAll = WshSHell.SpecialFolders(14)
Case 4 LnkPathAll = WshSHell.SpecialFolders(11)
Case 5 LnkPathAll = FSO.GetSpecialFolder(2)
Case 6 LnkPathAll = WshSHell.SpecialFolders(9)
Case 7 LnkPathAll = FSO.BuildPath(WshSHell.SpecialFolders(3),"Microsoft\Internet Explorer\Quick Launch")
Case 8 LnkPathAll = WshSHell.SpecialFolders(10)
Case Else WshShell.popup chr(10) &_
"请输入正确的编号值(注意编号范围)！"+ chr(10) &chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "错误提示 - "+ InsTitle +" - "+ Copyright, 0 + 48
Call Quit
End Select
Higher="Shortcut"
Else
Call Quit
End if
Else
LnkPathAllNum=Inputbox("请选择要添加到/管理的文件夹：(User)"&chr(10)&chr(10)&_
"1.桌面 2.开始 3.程序 4.启动 5.临时"&chr(10)&chr(10)&"6.发送到  7.快速启动  8.历史记录"&chr(10)&chr(10)&"输入‘ 0 ’打开浏览文件夹对话框……"_
,"选择文件夹 - "&InsAnswer,"6")
If IsNumeric(LnkPathAllNum)=False Then
WshShell.popup chr(10) &_
"请输入正确的编号值(输入数字型值)！"+ chr(10) &chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "错误提示 - "+ InsTitle +" - "+ Copyright, 0 + 48
Call Quit
Elseif LnkPathAllNum <> "" Then
Select Case LnkPathAllNum
Case 0 Call ZDYPath
Case 1 LnkPathAll = WshSHell.SpecialFolders(4)
Case 2 LnkPathAll = WshSHell.SpecialFolders(11)
Case 3 LnkPathAll = WshSHell.SpecialFolders(17)
Case 4 LnkPathAll = WshSHell.SpecialFolders(14)
Case 5 LnkPathAll = FSO.BuildPath(FSO.GetParentFolderName(WshSHell.SpecialFolders(5)),"Local Settings\Temp")
Case 6 LnkPathAll = WshSHell.SpecialFolders(12)
Case 7 LnkPathAll = FSO.BuildPath(WshSHell.SpecialFolders(5),"Microsoft\Internet Explorer\Quick Launch")
Case 8 LnkPathAll = WshSHell.SpecialFolders(13)
Case Else WshShell.popup chr(10) &_
"请输入正确的编号值(注意编号范围)！"+ chr(10) &chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "错误提示 - "+ InsTitle +" - "+ Copyright, 0 + 48
Call Quit
End Select
Higher="User"
Else
LnkPathAllNum=Inputbox("请选择要添加到/管理的文件夹：(SYSTem)"&chr(10)&chr(10)&_
"1.Desktop  2.StartMenu  3.Programs"&chr(10)&chr(10)&"4.Start 5.Temp"&chr(10)&chr(10)&" 输入‘ 0 ’打开浏览文件夹对话框……"_
,"选择文件夹 - "&InsAnswer,"0")
If IsNumeric(LnkPathAllNum)=False Then
WshShell.popup chr(10) &_
"请输入正确的编号值(输入数字型值)！"+ chr(10) &chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "错误提示 - "+ InsTitle +" - "+ Copyright, 0 + 48
Call Quit
Elseif LnkPathAllNum <> "" Then
Select Case LnkPathAllNum
Case 0 Call ZDYPath
Case 1 LnkPathAll = WshSHell.SpecialFolders(0)
Case 2 LnkPathAll = WshSHell.SpecialFolders(1)
Case 3 LnkPathAll = WshSHell.SpecialFolders(2)
Case 4 LnkPathAll = WshSHell.SpecialFolders(3)
Case 5 LnkPathAll = FSO.BuildPath(FSO.GetSpecialFolder(0) ,"Temp")
Case Else WshShell.popup chr(10) &_
"请输入正确的编号值(注意编号范围)！"+ chr(10) &chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "错误提示 - "+ InsTitle +" - "+ Copyright, 0 + 48
Call Quit
End Select
Higher="SYSTem"
Else
Call Quit
end if
End if
End if
LnkFolderName=fso.GetBaseName(LnkPathAll)
Package = WScript.Arguments.Item(0)
PkgName=FSO.GetBaseName(Package)
PkgPath=FSO.GetParentFolderName(Package)
PkgIconNum="0"
ManageintDoIt = MsgBox("【是】将添加“"+ PkgName +"”到“"&LnkFolderName&"”中，"&Chr(10)&Chr(10)&"【否】将打开“"&LnkFolderName&"”文件夹进行管理。", vbQuestion + vbYesNoCancel, "操作提示 - Manage_"+ Higher +"_Folder - "+ Copyright)
    If ManageintDoIt = vbYes Then
PkgNameInput=Inputbox("若不使用默认名称，请在下面修改......"&chr(10)&chr(10)&"修复系统内置项：desklink→桌面快捷方式"&chr(10)&chr(10)&"mydocs→我的文档，mapimall→邮件接收者"&chr(10)&chr(10)&"showdesktop→显示桌面","自定义名称 - "&InsAnswer,PkgName)
if LCase(PkgNameInput) ="desklink" then
Set FixSys = FSO.CreateTextFile(FSO.BuildPath(LnkPathAll ,"桌面快捷方式.DESKLINK"), True)
FixSys.Close
WScript.Quit
elseif LCase(PkgNameInput) ="mydocs" then
Set FixSys = FSO.CreateTextFile(FSO.BuildPath(LnkPathAll ,"我的文档.MYDOCS"), True)
FixSys.Close
WScript.Quit
elseif LCase(PkgNameInput) ="mapimall" then
Set FixSys = FSO.CreateTextFile(FSO.BuildPath(LnkPathAll ,"邮件接收者.MAPIMAIL"), True)
FixSys.Close
WScript.Quit
elseif LCase(PkgNameInput) ="showdesktop" then
Set FixSys = FSO.CreateTextFile(FSO.BuildPath(LnkPathAll ,"显示桌面.SCF"), True)
FixSys.WriteLine("[Shell]")
FixSys.WriteLine("Command=2")
FixSys.WriteLine("IconFile=explorer.exe,3")
FixSys.WriteLine("[Taskbar]")
FixSys.WriteLine("command=ToggleDesktop")
FixSys.Close
WScript.Quit
End If
PkgIconInput=Inputbox("若不使用默认图标，请在下面修改......"&chr(10)&chr(10)&"若使用默认图标，请使用默认值"&chr(34)&"0"&chr(34)&"....."&chr(10)&chr(10)&"内置图标："&chr(10)&chr(10)&"WinXP-238个,WinMe-106个,Win98-80个","自定义图标 - "&InsAnswer,PkgIconNum)
if PkgNameInput<> "" and PkgIconInput <> "" then
Set MyShortcut = WshSHell.CreateShortcut(FSO.BuildPath(LnkPathAll,PkgNameInput&".Lnk"))
MyShortcut.TargetPath = (Package)
MyShortcut.WorkingDirectory = (PkgPath)
MyShortcut.WindowStyle = 4
if IsNumeric(PkgIconInput)=True then
PkgIconInput=Cint(PkgIconInput)
if  PkgIconInput>0 and PkgIconInput=<IconMaxNum then
MyShortcut.IconLocation = (FSO.BuildPath(InsPath ,"Shell32.dll, ") & PkgIconInput-1)
else
MyShortcut.IconLocation = (Package)
end if
else
MyShortcut.IconLocation = (Package)
end if
MyShortcut.Description = Package
If (FSO.FileExists(FSO.BuildPath(LnkPathAll,PkgNameInput&".Lnk"))) Then
intDoIt = MsgBox("目标名称"&chr(34)+ PkgNameInput +chr(34)&"已经存在于“"&LnkFolderName&"”文件夹中......"+chr(10)+ chr(10)+_
"【是】将替换“"+ PkgNameInput +"”到“"&LnkFolderName&"”中，"&Chr(10)&Chr(10)&"【否】将放弃“"+ PkgNameInput +"”的添加操作。 ", vbQuestion + vbYesNo, "操作提示 - "+ InsTitle +" - "+ Copyright)
    If intDoIt = vbYes Then
MyShortcut.Save
end if
else
MyShortcut.Save
end if
end if
END IF
End If
If ManageintDoIt = vbNo Then
WshSHell.Run("""" & LnkPathAll & """")
End If
Sub ZDYPath()
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "请选择要添加到/管理的文件夹：", NO_OPTIONS)
If Not objFolder is Nothing then
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
LnkPathAll = objPath
else
Call Quit
end if
End Sub
call quit
sub quit()
Set WshSHell = Nothing
Set FSO = Nothing
Set Args = Nothing
WScript.Quit(0)
end sub

ÿ

[ Last edited by baomaboy on 2008-3-24 at 10:07 PM ]



好多菩提树，好多明镜台。本来好多物，好多的尘埃。
2007-4-13 13:12
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
fanglor
初级用户





积分 68
发帖 30
注册 2007-1-16
状态 离线
『第 11 楼』:  

哇，代码这么长啊，呵呵。。看不下去了。

2007-4-13 13:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
frankwz
初级用户





积分 41
发帖 22
注册 2007-4-12
状态 离线
『第 12 楼』:  

qiang

2007-4-15 11:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hdzc
初级用户





积分 146
发帖 86
注册 2007-10-1
状态 离线
『第 13 楼』:  

非常实用

2007-10-10 16:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
rubik
初级用户





积分 102
发帖 35
注册 2006-3-16
状态 离线
『第 14 楼』:  

能建一个不能 ‘查看目标' 的快捷方式吗?

在快捷方式上点右键，可以选择 '查看目标'。但是microsoft自己建立的很多
快捷方式都不能 查看目标。如 Office2003中的 Word, Excel, 或 VPC2007
等软件的快捷方式，如果你点右键看一下的话，那个 ‘查看目标' 的按钮是灰的

2007-10-10 19:25
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bdpq
初级用户





积分 37
发帖 17
注册 2007-8-6
状态 离线
『第 15 楼』:  

此贴要回

2007-11-1 11:28
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023