標題: 〔教學〕自己動手做Kaspersky重複試用 [打印本頁]

---

作者: as780611as     時間: 2008-8-18 11:40 AM    標題: 〔教學〕自己動手做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 ]

---

歡迎光臨 網際論壇 (http://centurys.net/)

Powered by Discuz! 2.5