 复制targeturl="/archives/2761.html"受攻击网站的日志URL地址。b2b信息网 logfilepath="C:\LogFiles\W3SVC\ex110813.log"受攻击网站的免费信息发布网文件日志路径。免费源码下载 OnErrorResumeNext Setfileobj=CreateObject("scripting.filesystemobject") Setfileobj2=CreateObject("scripting.filesystemobject") Setmyfile=fileobj2.opentextfile(logfilepath,分析1,False) DoWhilemyfile.atendofstream<>True myline=myfile.readline() myline2=Split(myline,"") newip=myline2(9) myurl=myline2(5) Iftargeturl=myurlThen writelognewip EndIf Loop myfile.Close Setfileobj2=Nothing Msgbox"结束." Subwritelog(errmes) ipfilename="blockip.txt" Setlogfile=fileobj.opentextfile(ipfilename,8,True) logfile.writelineerrmes logfile.Close Setlogfile=Nothing EndSub 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.41.42.43.44.45.46.47.48.49.50. |