本来这个就不好玩，用在正徒才是对了

以下是引用缘子弹在2007-6-22 23:01:01的发言：
说实在的,编破坏的程序真的是太容易了,编个有意义的程序就....
我以后不恶搞了....有时候无聊得发慌就真的没办法了

代码无罪，有罪的是人心。
代码就是双刃剑，是好是坏就看用在什么地方。同一段代码用在不同的地方就会有不同的效果。
同样一个原理相同一段代码，你可以用它写成杀毒软件也可以用它写成病毒。
研究技术是好的，但如果走了歪路那就可能越走越远。

收到!~我会努力朝着正向走的了!~
世界真的很精彩,只因一路上有你!~

代码很简单的,如果你真的想要的话,我就把解救代码放出来给大家研究吧:

'*****窗体代码
Private 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
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()
On Error Resume Next
Dim winHwnd As Long
Dim RetVal As Long

winHwnd = FindWindow(vbNullString, "老虎拜神")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
End If

DelVal HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "haha"
If Dir("C:\WINDOWS\haha.exe") <> "" Then Kill "C:\WINDOWS\haha.exe"
Timer1.Enabled = True
Label1.Visible = True
Command1.Visible = False
End Sub

Private Sub Timer1_Timer()

If Dir("d:\*du.dat") <> "" Then Kill "d:\*du.dat"

If Dir("d:\a.dat") <> "" Then Kill "d:\a.dat"

End Sub
'*****************************

'******模块代码
Option Explicit

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10

Global Const REG_SZ As Long = 1

Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003
Global Const KEY_ALL_ACCESS = &H3F
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
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
Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long

Public Function DelVal(lKey As Long, sKeyName As String, sValueName As String)
Dim lVal As Long
Dim hKey As Long
lVal = RegOpenKeyEx(lKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lVal = RegDeleteValue(hKey, sValueName)
RegCloseKey (hKey)
End Function

[此贴子已经被作者于2007-6-23 19:19:32编辑过]