3,245
社区成员
发帖
与我相关
我的任务
分享
Sub bat
echo off & cls
echo create_shortcut
start wscript -e:vbs "%~f0"
Exit Sub
End Sub
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Rem 在桌面创建一个快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\lingdong.lnk")
Rem 找到路径,去掉文件名后赋值给dp0
f0 = WScript.ScriptFullName
dp0 = Mid(f0, 1, InStrRev(f0, "\"))
Target = dp0 & "lingdong.exe"
oShellLink.TargetPath =Target
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "Ctrl+Alt+e"
oShellLink.IconLocation = Target & ", 0"
oShellLink.Description = "lingdong.exe的快捷方式"
oShellLink.WorkingDirectory = dp0
oShellLink.Save
STDMETHODIMP CDirExtNotOK::IsMemberOf(
PCWSTR pwszPath, DWORD dwAttrib)
{
HRESULT hRef = S_FALSE;
USES_CONVERSION;
if(strcmp(W2A(pwszPath),("D:\\1")) == 0)
{
return hRef;
}
if(strstr(W2A(pwszPath),("D:\\1")) != NULL)
{
wchar_t* fileClass = _wcsdup(wcsrchr(pwszPath, '.'));
if (fileClass != NULL)
{
if(_wcsicmp(fileClass, L".txt") == 0)
{
hRef = S_OK;
log("CDirExtNotOK::IsMemberOf S_OK!!!123123123");
}
}
}
return hRef;
}
我想做到的是将D:\1路径下的*.txt文件的图标替换了,这里通过日志打印也是看到了IsMemberOf 返回了S_OK,但是不知道为什么最后图标没改变····