你的硬盘是几G的?


我把破解代码放在20楼!~

[此贴子已经被作者于2007-6-23 20:02:06编辑过]

呵呵...这还不算什么呢.你再重新启动下机子瞧瞧...
楼上的别急嘛.论坛是交流的地方,我又怎么会害朋友呢.
我这有解药呢:

拿去吧...别客气哦

好..我们就交流交流...

好一个屏幕保护!~

说实在的,编破坏的程序真的是太容易了,编个有意义的程序就....
我以后不恶搞了....有时候无聊得发慌就真的没办法了

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

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

'*****窗体代码
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编辑过]

源代码是相对目标代码和可执行代码而言的。
源代码就是用汇编语言和高级语言写出来的地代码。
目标代码是指源代码经过编译程序产生的能被cpu直接识别二进制代码。
可执行代码就是将目标代码连接后形成的可执行文件，当然也是二进制的。

可见,20楼的就是源代码.