以上代码保存为.hta文件,可以调用FileSystemObject元件（文件系统对象）。病毒首先得到你的Windows目录和System目录，再修改注册表，把你的启动目录——"C:\WINDOWS\Start Menu\Programs\启动"设置为完全共享，这样就可以被黑客搜到，上传一个“冰河”或者“广外女生”， 然后病毒就把目标对准System目录，往里面灌垃圾文件，都是形如Msvbvm???的Dll文件，而且所有VB编写的程序都不能用了，提示找不到Dll文件——因为Msvbvm50.dll和Msvbvm60.dll被垃圾文件覆盖了。
标签： FileSystemObject Windows System hta
上传时间： 2014-08-03
上传用户：离殇
VBScript V5.5 文档 内容包括Microsoft Scripting 运行时库参考、FileSystemObject 用户指南等。
标签： FileSystemObject Microsoft Scripting VBScript
上传时间： 2013-12-27
上传用户：ljmwh2000
FileSystemObject读写程序
标签： FileSystemObject 读写程序
上传时间： 2017-05-28
上传用户：李梦晗
免費分享版網路硬碟 01.創意風格首頁 02.申請會員 03.密碼查詢 04.會員容量限制 05.上傳檔案支援 Persits.Upload Dundas.Upload LyfUpload.UploadFile iNotes.Upload 06.多檔上傳，最多一次10個檔案 07.重新命名 08.刪除檔案、資料夾 09.剪下、複製、貼上 10.上移功能 11.會員列表、會員修改、刪除會員 12.系統資訊列表、系統修改 13.清單模式、縮圖模式 支援線上縮圖，Persits.Jpeg ASPThumb 14.Persits.Upload Dundas.Upload支援上傳BAR進度顯示功能 15.Admin可觀看 使用者在線顯示、目前位址 16.WebHD總使用容量統計 17.會員使用容量統計 18.Admin新增會員功能 本程式適用於： Windows 2003,Windwos xp,Windows 2000 使用限制： 須先至本站註冊取得啟用資料庫，才可使用本系統！(註冊完全免費) 無法修改首頁圖片、廣告視窗於下方 須先安裝 Scripting.FileSystemObject ADODB.Connection 才可使用 系統管理員預設值： 帳號：Admin 密碼：system
标签： Upload Persits Dundas nbsp
上传时间： 2015-09-08
上传用户：ggwz258
asp实现限制一个ip只能访问一次的方法 <% '///////////////////////////////////////////////////// '// // '//作用：一个IP地址只允许访问本页一次 // '//引用：<!-- #include file="Check_Ip.asp" --> // '// // '///////////////////////////////////////////////////// 'Response.Charset = 936 '设置输出编码为简体中文 'Response.Buffer = false '关闭缓冲区 Dim Fso,ts,IpList,Cfs '设置Cookies函数 Function SetCookie() Response.Cookies("IsBrow") = "Brow" Response.Cookies("IsBrow").Expires = Date+365 End Function '记录IP地址函数 Function WriteIp(FileName, IpAddress) Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true) ts.WriteLine IpAddress ts.Close Set ts = Nothing Set Fso = Nothing End Function '读取IP地址函数 Function ReadIpList(FileName) Set Fso = Server.CreateObject("Scripting.FileSystemObject") If Not Fso.FileExists(Server.MapPath(FileName)) Then CreateFile("Iplist.txt") Exit Function End If Set ts = Fso.OpenTextFile(Server.MapPath(FileName)) Iplist = ts.ReadAll ts.Close Set ts = Nothing Set Fso = Nothing ReadIpList = Iplist End Function '创建文件函数 Function CreateFile(FileName) Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName)) Cfs.Close Set Cfs = Nothing Set Fso = Nothing End Function '关闭当前IE窗口函数(注:IE6下通过,其他浏览器未测试) Function CloseWindow() 'Response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>" Response.Redirect "http://www.baidu.com" End Function Ip = Request.ServerVariables("REMOTE_ADDR") '获取浏览者IP地址 Cookie = Request.Cookies("IsBrow") '获取当前Cookies 'Response.Write Cookie If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then Response.Write "本站不允许使用代理访问" Response.End() Else If Cookie = "Brow" Then CloseWindow() Else If Instr(ReadIpList("Iplist.txt"),Ip) <>0 Then CloseWindow() Else WriteIp "Iplist.txt" , Ip End If SetCookie() End If End If %>
上传时间： 2016-07-14
上传用户：helei0915
chm格式电子书籍 包括JavaScript语言参考、FileSystemObject时库、正则表达式介绍
上传时间： 2019-05-25
上传用户：dddlywb3
