呼哈之星的BLOG

Option Explicit
Dim oldpath,newpath

''''''''''''''''说明'''''''''''''''''
'作用：批量修改快捷方式的“目标”和“起始位置”
'使用方法：和需要修改的快捷方式放在同一个文件夹执行
'''''''''''''''说明完'''''''''''''''''

oldpath = 'x:\game'           '设置原路径中将被替换的内容
newpath = 'g:\game\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

首先申明，本人所采取的做法来源于网络和朋友的帮助，综合得来，并且该方案已经解决了本人所在网吧疯狂arp攻击导致掉线的问题。欢迎拍砖头！

   下面给点个人具体的几点做法，送给同行一点参考（只能算是一种参考了），但愿少走点弯路。

首先你得禁止彻底杜绝arp调用的祸害根源：

处理dllcache和system32目录下的npptools.dll，拒绝任何人访问：

*************************************************************************************************

@echo off
attrib +r +a +s +h c:\windows\system32\npptools.dll
echo y|cacls c:\windows\system32\npptools.dll /D everyone
echo y|cacls c:\windows\system32\npptools.dll /P everyone:N
attrib +r +a +s +h c:\windows\system32\dllcache\npptools.dll
echo y|cacls c:\windows\system32\npptools.dll /D everyone
echo y|cacls c:\windows\system32\npptools.dll /P everyone:N
cls
exit

*************************************************************************************************************