as780611as
一般會員
積分 529
發文 96
註冊 2008-5-28
狀態 離線
|
#1 〔教學〕自己動手做Kaspersky重複試用
開啟記事本，複製下列語法另存新檔，把它命名為 Kaspersky重複試用.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")
Mybox = MsgBox(jobfunc & enab & vbCR & "使用前請關閉Kaspersky", 4097, t)
On Error Resume Next
.RegDelete "HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates"
.RegDelete "HKLM\SOFTWARE\KasperskyLab\LicStorage"
.RegDelete "HKLM\SOFTWARE\Microsoft\Cryptography\RNG"
set objwshshell = wscript.createobject("wscript.shell")
objwshshell.popup "謝謝你的使用",,"軟體使用訊息"
End With
 請大家踴躍回復
[ Last edited by TCG on 2008-8-19 at 08:57 AM ]
|
|
