|
上次我曾公布过一个WinXP的电话激活补丁,但那个补丁只是我没完成的作品,在这儿我向以前下载了那个补丁的哥们道歉。
2 b9 e+ L) ?1 H) Q# j. \2 R 现在我潜心修炼,做出了2.0版的补丁,在这儿公布。 1 K- O/ n. o2 E b% u& G: [
, Z1 K7 t8 v2 |! v: N1 c. F, b 在这儿公布部分源代码:
7 E- X3 U. W/ T/ l$ @ Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
3 t. J) j6 U& K% [6 q" h. K (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _0 L+ \* q+ L0 }8 k0 B. W9 a* h3 v
ByVal dwFlags As Long) As Long& J: G# f- B. r8 N
上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行,因为运行中的系统文件是不能被直接修改的。
' y R: T$ V0 x5 \
) r1 c& h; t; D% V Dim SysDir As String
1 J: }# l! ~% n \' x Dim WinDir As String7 @3 _5 o% J$ N3 z& c- e- {
" L: g. _* h& R# Y7 I: ^* x Dim SysObj As SWbemObjectSet
' @* Y, `- c7 L- m6 { Dim sys As SWbemObject
: s( g+ ?" W/ E3 a' J
( b, _1 O- Z1 g* E2 v/ n% E Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _2 j$ i% K7 ^8 d4 E
.InstancesOf("Win32_OperatingSystem")
4 h% {( Z. j7 H0 A. E: ~$ z0 f5 N5 `+ x For Each sys In SysObj# X: N& \+ y& U* [$ @
SysDir = sys.systemdirectory
* p5 {% m9 c1 M- f- K! P WinDir = sys.windowsdirectory
' l3 x" Z5 l/ q' G! {. M; b( e' d3 x) f Next8 I, M/ q) Q! u8 i2 h) z. w+ I8 N/ D
上面一段是获得系统目录,和安装目录。+ D: O5 K+ {/ A2 X: L% ~4 |
Shell SysDir & "\wbem\wmiprvse.exe"
y: p$ `! g+ ] Shell SysDir & "\msdtc.exe"
) J9 O; p# K8 P/ a( @ 上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的,要不然,程序运行后,不一会儿就被复原了。本来用sfc,但发现根本不行,现在用了这个就可以了。! p v; s- I8 l0 \) i! z+ f
3 o4 h- e+ R: Q1 \9 S/ K1 e编译好的程序在煎饼的FTP里有,在Ecupload里的。
7 M! J( b; z) P4 R# m |
|