
CODE: [Copy to clipboard]On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Str=WshSHell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\病毒")
if Err.Number <> 0 then
msgbox "没发现病毒。"
else
msgbox "发现病毒。"
end if
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |