国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs后臺(tái)運(yùn)行bat刪除自身的代碼

2020-06-26 18:17:17
字體:
供稿:網(wǎng)友
在VBS最后加上以下語句即可刪除批處理和腳本本身(假設(shè)運(yùn)行的批處理為 run.cmd ,啟動(dòng)批處理的腳本為 run.vbs )
 
知道真實(shí)路徑的情況下

復(fù)制代碼代碼如下:

set fso=wscript.createobject("scripting.filesystemobject") 
fso.deletefile "c:/windows/system32/run.cmd" 
fso.deletefile "c:/windows/system32/run.vbs" 


不知道具體的路徑情況下,可以用如下代碼:

復(fù)制代碼代碼如下:

Set fso =CreateObject("Scripting.Filesystemobject") 
fso.DeleteFile(WScript.ScriptFullName) 


Wscript.ScriptFullName返回腳本的實(shí)際路徑。 

刪除自身之:VBS 

把下面的腳本保存為selfkill.vbs或selfkill.vbe: 

復(fù)制代碼代碼如下:

Set fso = CreateObject("Scripting.FileSystemObject") 
f = fso.DeleteFile(WScript.ScriptName) 
WScript.Echo( WScript.ScriptName) 


然后運(yùn)行它,是不是發(fā)現(xiàn)selfkill.vbs神奇的消失啦?而后面的對(duì)話框卻被正常顯示出來噢^*^ 
上面的腳本調(diào)用FSO控件,使用WSH中Wscript對(duì)象得ScriptName屬性,得到腳本自身的文件名, 
并調(diào)用FSO的DeleteFile方法刪除自身! 

把它稍微改寫一下: 

復(fù)制代碼代碼如下:

On Error Resume Next '防止出現(xiàn)錯(cuò)誤 
Set fso = CreateObject("Scripting.FileSystemObject") 
WScript.Sleep 1000 '將腳本執(zhí)行掛起1秒 
fso.DeleteFile(WScript.ScriptName) '刪除腳本自身 
If fso.FileExists("c:/selfkill.exe") Then fso.DeleteFile("c:/selfkill.exe") '刪除程序 


程序就可以動(dòng)態(tài)生成VBS自刪除腳本,并調(diào)用它刪除自身啦,方法同樣和批處理文件的自刪除相似! 
需要說明的是由于病毒及蠕蟲對(duì)腳本的濫用,腳本刪除文件時(shí)可能會(huì)被被誤認(rèn)為惡意代碼!

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 荔波县| 莲花县| 洪湖市| 柳江县| 黄陵县| 灌阳县| 宁远县| 宣武区| 光山县| 区。| 关岭| 克拉玛依市| 乌拉特中旗| 鸡西市| 东丰县| 富裕县| 灵璧县| 卓资县| 甘肃省| 禹城市| 乌拉特前旗| 桑日县| 淳安县| 庐江县| 大新县| 文化| 金寨县| 昌乐县| 永兴县| 黄浦区| 娄烦县| 同德县| 河津市| 香格里拉县| 勐海县| 无极县| 黄石市| 开远市| 广安市| 宝鸡市| 临洮县|