vb制作防AUTORUN病毒

来源：百度知道 编辑：UC知道 时间：2024/05/22 13:57:57
我想用制作个防AUTORUN病毒的程序
1.请问用vb如何防止AUTORUN（包括用vb怎样关闭，或在注册表改什么就可以，越多越好）
2.有些人的程序用了后会生成一个AUTORUN.INF的空文件，这是不能删除的（删除时显示正在使用），有什么办法也可以将生成的AUTORUN.INF的空文件变成正在使用呢，以防止恶意软件修改（不能太占用内存）
3.还有其它什么的防AUTORUN病毒的技巧可以提出来

注册表：
Dim autor As Integer
Set wshshell = CreateObject("wscript.shell")
aut = regRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun")
autor = CInt(aut)
str = CBin(aut)
a = Mid(str, 1, 1)
b = Mid(str, 2, 1)
c = Mid(str, 3, 1)
d = Mid(str, 4, 1)
e = Mid(str, 5, 1)
f = Mid(str, 6, 1)
g = Mid(str, 7, 1)
h = Mid(str, 8, 1)
Check1.Value = a
Check2.Value = b
Check3.Value = c
Check4.Value = d
Check5.Value = e
Check6.Value = f
Check7.Value = g
Check8.Value = h
End Sub

Private Sub Command2_Click()
Dim aut, n As String
Dim autor As String, a, b, c, d, e, f, g, h
n = Check1.Value & Check2.Value & Check3.Value & Check4.Value & Check5.Value & Check6.Value & Check7.Value & Check8.Value
a = CInt(Mid(n, 1, 1))
b = CInt(Mid(n, 2, 1))
c = CInt(Mid(n, 3, 1))
d = CI