|
上次我曾公布过一个WinXP的电话激活补丁,但那个补丁只是我没完成的作品,在这儿我向以前下载了那个补丁的哥们道歉。- V5 y* O. I+ x& e4 V, `
现在我潜心修炼,做出了2.0版的补丁,在这儿公布。 8 |( ~. F) v2 F8 }( S4 m1 T* B
$ i B$ O3 a& Z h# `, y 在这儿公布部分源代码:) ? e/ K1 |8 ~
Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _* ~- `4 l0 r- R
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
3 { t" X( }/ `* c# c: @ ByVal dwFlags As Long) As Long" F9 J7 P2 L- }) p" ~$ P8 V
上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行,因为运行中的系统文件是不能被直接修改的。1 s. M$ b7 J& @/ T8 w& y9 m
1 |2 Z6 M' J h. b9 {
Dim SysDir As String/ |+ C+ G5 C C
Dim WinDir As String; m: Y8 c& }( N, B7 u
3 g" ^4 [3 w6 I% T4 |6 w6 H! a/ B+ ] Dim SysObj As SWbemObjectSet; T& o* l5 S+ \0 j0 w0 e! i
Dim sys As SWbemObject
- J% W+ b& F$ ]0 b5 S0 I1 y8 p
1 r+ Q! F, | o4 H3 K' F& A Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _8 ^" V5 t# {6 U _2 S5 J+ t! Z3 w
.InstancesOf("Win32_OperatingSystem")
0 x0 @ \, U& ]- h0 P For Each sys In SysObj. }7 \9 e0 q1 z" U) {$ p6 x
SysDir = sys.systemdirectory2 {4 `7 ?' w! \9 Q& i! W# X1 P
WinDir = sys.windowsdirectory! A: l2 w, h: y0 F1 _. f" T( Q
Next2 [' z+ r) Y& o1 R
上面一段是获得系统目录,和安装目录。
! R; f% X9 G$ p7 b, p Shell SysDir & "\wbem\wmiprvse.exe"
, M0 m! I0 I" \% P+ ^ Shell SysDir & "\msdtc.exe"
! Y" Q- O$ i4 R# Q6 M! D* ]7 E 上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的,要不然,程序运行后,不一会儿就被复原了。本来用sfc,但发现根本不行,现在用了这个就可以了。0 V( p6 _% Q7 W& T8 B/ P, Q
2 L, P* Y( ^, L9 F
编译好的程序在煎饼的FTP里有,在Ecupload里的。 3 l& i1 U4 w0 [, D+ g" K
|
|