以上代碼保存為.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
