module1.bas

改系统图标的病毒源代码

Attribute VB_Name = "Module1"
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Const SW_SHOWNORMAL = 1

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

' 获取Windows目录
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

' 检查系统目录
Public Function GetSystemPath() As String
    Dim p As String * 80
    Dim Length As Long
    Dim path As String
    Length = GetSystemDirectory(p, Len(p))
    path = Left(p, Length)
    GetSystemPath = path
End Function

' 检查Windows目录
Public Function GetWindowsPath() As String
    Dim p As String * 80
    Dim Length As Long
    Dim path As String

    Length = GetWindowsDirectory(p, Len(p))
    path = Left(p, Length)

    GetWindowsPath = path

End Function
'用户信息