Welcome to Bo-Blog.
Mar
10
Option Explicit
Dim oldpath,newpath
''''''''''''''''说明'''''''''''''''''
'作用:批量修改快捷方式的“目标”和“起始位置”
'使用方法:和需要修改的快捷方式放在同一个文件夹执行
'''''''''''''''说明完'''''''''''''''''
oldpath = "D: etgame1" '设置原路径中将被替换的内容
newpath = "D:langame" '设置新路径中要使用的内容
Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ji_1,ji_2,Folder
ji_1 = 0
ji_2 = 0
Folder = Wsh.CurrentDirectory
if Ask("将要修改"&chr(34)& Folder &chr(34)&"里的所有快捷方,是否继续") then
Dim f,fc,f1,ext
Set f = fso.GetFolder(Folder)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
ji_1 = ji_1 + 1
call Doit(f1)
end if
Next
end if
Set WSH = Nothing
msgbox "找到 "&ji_1&" 个快捷方式"&vbCrLf&"修改 "&ji_2&" 个快捷方式",64,"执行完毕"
WScript.quit
Sub Doit(strlnk)
Dim oShlnk
Set oShlnk = Wsh.CreateShortcut(strlnk)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath)
oShLnk.WorkingDirectory = Replace(oShLnk.WorkingDirectory,oldpath,newpath)
oShLnk.Save
ji_2 = ji_2 + 1
End If
Set oShLnk=NoThing
End Sub
Function Ask(strAction)
Dim intButton
intButton = MsgBox(strAction,vbQuestion + vbYesNo,"询问")
Ask = intButton = vbYes
End Function
[down=attachment/month_0803/d2008310182638.rar]点击下载此文件[/down]
Dim oldpath,newpath
''''''''''''''''说明'''''''''''''''''
'作用:批量修改快捷方式的“目标”和“起始位置”
'使用方法:和需要修改的快捷方式放在同一个文件夹执行
'''''''''''''''说明完'''''''''''''''''
oldpath = "D: etgame1" '设置原路径中将被替换的内容
newpath = "D:langame" '设置新路径中要使用的内容
Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ji_1,ji_2,Folder
ji_1 = 0
ji_2 = 0
Folder = Wsh.CurrentDirectory
if Ask("将要修改"&chr(34)& Folder &chr(34)&"里的所有快捷方,是否继续") then
Dim f,fc,f1,ext
Set f = fso.GetFolder(Folder)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
ji_1 = ji_1 + 1
call Doit(f1)
end if
Next
end if
Set WSH = Nothing
msgbox "找到 "&ji_1&" 个快捷方式"&vbCrLf&"修改 "&ji_2&" 个快捷方式",64,"执行完毕"
WScript.quit
Sub Doit(strlnk)
Dim oShlnk
Set oShlnk = Wsh.CreateShortcut(strlnk)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath)
oShLnk.WorkingDirectory = Replace(oShLnk.WorkingDirectory,oldpath,newpath)
oShLnk.Save
ji_2 = ji_2 + 1
End If
Set oShLnk=NoThing
End Sub
Function Ask(strAction)
Dim intButton
intButton = MsgBox(strAction,vbQuestion + vbYesNo,"询问")
Ask = intButton = vbYes
End Function
[down=attachment/month_0803/d2008310182638.rar]点击下载此文件[/down]
Feb
3
关于HD声卡使用语音聊天软件MIC音量无法调节的解决方法(适用于REALTEK声卡芯片)
使用方法:把rtkhdaud.dat文件复制到C:WINDOWSsystem32drivers下,并重新启动计算机。
直接下载:[down=attachment/month_0802/v200823233834.rar]HD声卡补丁[/down]
当上面这个补丁可以下载的时候,请大家不要往下看了
==============================================
为了防止补丁下载地址过期,我给大家一个长期有效的方法获取补丁,其实这个补只有8个字节,我们可以手工创造,方法如下:
1、下载一个16进制编辑软件,UltraEdit或HEdit
UltraEdit下载地址:http://www.xdowns.com/soft/4/85/2006/Soft_32471.html(有注册码)
HEdit下载地址:http://www.skycn.com/soft/3651.html(不用安装,可以直接解压缩)
2、以HEdit来说明:
下载后,解压,打开文件HEdit.exe
点编辑-插入,在弹出的对话框字节数中输入8,确定
依次输入:A6 4E 05 80 00 00 20 00
点保存,取名为rtkhdaud.dat即得到该补丁,放入C:WINDOWSsystem32drivers下,重启即可。
http://hi.baidu.com/zhangqinxian86/blog/item/7cc3ba2b489c7efee7cd401f.html
以上地址为HD Audio 声卡麦克风的相关设置
使用方法:把rtkhdaud.dat文件复制到C:WINDOWSsystem32drivers下,并重新启动计算机。
直接下载:[down=attachment/month_0802/v200823233834.rar]HD声卡补丁[/down]
当上面这个补丁可以下载的时候,请大家不要往下看了
==============================================
为了防止补丁下载地址过期,我给大家一个长期有效的方法获取补丁,其实这个补只有8个字节,我们可以手工创造,方法如下:
1、下载一个16进制编辑软件,UltraEdit或HEdit
UltraEdit下载地址:http://www.xdowns.com/soft/4/85/2006/Soft_32471.html(有注册码)
HEdit下载地址:http://www.skycn.com/soft/3651.html(不用安装,可以直接解压缩)
2、以HEdit来说明:
下载后,解压,打开文件HEdit.exe
点编辑-插入,在弹出的对话框字节数中输入8,确定
依次输入:A6 4E 05 80 00 00 20 00
点保存,取名为rtkhdaud.dat即得到该补丁,放入C:WINDOWSsystem32drivers下,重启即可。
http://hi.baidu.com/zhangqinxian86/blog/item/7cc3ba2b489c7efee7cd401f.html
以上地址为HD Audio 声卡麦克风的相关设置
Nov
21
电影服务器及网吧游戏服务器硬盘因为使用率较高,日志里经常出现硬盘错误信息。
症状
在多次挂起并恢复计算机后,硬盘性能可能会下降。如果您使用设备管理器查看该驱动器连接到的 IDE 通道的属性,“高级设置”选项卡可能会显示该驱动器的当前传送模式为“PIO 模式”。
原因
在 Windows IDE/ATAPI 端口驱动程序 (Atapi.sys) 累积收到总共六个超时或循环冗余检验 (CRC) 错误后,驱动程序将把通信速度(传送模式)从最快的直接内存访问 (DMA) 模式分步骤降为较慢的 DMA 模式。如果驱动程序继续收到超时或 CRC 错误,则驱动程序最终将把传送模式降为最慢的模式(PIO 模式)。
若要为受影响的设备重新启用典型的或更快的传送模式,请执行以下操作:1. 双击“管理工具”,然后双击“计算机管理”。
2. 单击“系统工具”,然后单击“设备管理器”。
3. 展开“IDE ATA/ATAPI 控制器”节点。
4. 双击您要为其恢复典型 DMA 传送模式的控制器。
5. 单击“驱动程序”选项卡。
6. 单击“卸载”。
7. 当此过程完成后,重新启动您的计算机。当 Windows 重新启动后,将重新枚举硬盘控制器,同时与该控制器相连的每个设备的传送模式将重置为默认值。
按照下列步骤操作,然后退出注册表编辑器: 1. 单击“开始”,单击“运行”,键入 regedit,然后单击“确定”。
2. 在注册表中找到并单击以下注册表项:
HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlClass{4D36E96A-E325-11CE-BFC1-08002BE10318}
症状
在多次挂起并恢复计算机后,硬盘性能可能会下降。如果您使用设备管理器查看该驱动器连接到的 IDE 通道的属性,“高级设置”选项卡可能会显示该驱动器的当前传送模式为“PIO 模式”。
原因
在 Windows IDE/ATAPI 端口驱动程序 (Atapi.sys) 累积收到总共六个超时或循环冗余检验 (CRC) 错误后,驱动程序将把通信速度(传送模式)从最快的直接内存访问 (DMA) 模式分步骤降为较慢的 DMA 模式。如果驱动程序继续收到超时或 CRC 错误,则驱动程序最终将把传送模式降为最慢的模式(PIO 模式)。
若要为受影响的设备重新启用典型的或更快的传送模式,请执行以下操作:1. 双击“管理工具”,然后双击“计算机管理”。
2. 单击“系统工具”,然后单击“设备管理器”。
3. 展开“IDE ATA/ATAPI 控制器”节点。
4. 双击您要为其恢复典型 DMA 传送模式的控制器。
5. 单击“驱动程序”选项卡。
6. 单击“卸载”。
7. 当此过程完成后,重新启动您的计算机。当 Windows 重新启动后,将重新枚举硬盘控制器,同时与该控制器相连的每个设备的传送模式将重置为默认值。
按照下列步骤操作,然后退出注册表编辑器: 1. 单击“开始”,单击“运行”,键入 regedit,然后单击“确定”。
2. 在注册表中找到并单击以下注册表项:
HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlClass{4D36E96A-E325-11CE-BFC1-08002BE10318}



