|
上次我曾公布过一个WinXP的电话激活补丁,但那个补丁只是我没完成的作品,在这儿我向以前下载了那个补丁的哥们道歉。
: I3 N2 u! }+ A/ s6 d8 W" t 现在我潜心修炼,做出了2.0版的补丁,在这儿公布。
' F |+ ?8 ~8 c* H8 l \. {# c7 [
! J, K+ ~& w; x$ x 在这儿公布部分源代码:
9 C. d; E# W* s- v' g3 z Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
3 F3 i# R1 m# y, P) r( W9 l' }* M (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _* @& S; z1 n2 \7 D
ByVal dwFlags As Long) As Long, @5 z3 I" B9 q1 i6 w+ F
上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行,因为运行中的系统文件是不能被直接修改的。& y3 [* s2 `9 }( c, X. l Q
# M' q0 v3 Z9 I3 X7 f Dim SysDir As String
0 g! E! a! e+ |! m) d- \ Dim WinDir As String
/ i1 z0 T% m# N- q. `, J
/ j7 P/ [; y. p& { j: e* K Dim SysObj As SWbemObjectSet" T" e7 h- o5 @; r2 Y/ s' c1 J
Dim sys As SWbemObject1 N6 a5 ~- S& K
( @* h1 F% f2 w3 v7 g Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _/ J- p* o/ H: Y0 W0 A
.InstancesOf("Win32_OperatingSystem")# R7 r9 N; I$ D0 g! ]
For Each sys In SysObj
$ n8 w* ?) |5 |+ _0 N9 b SysDir = sys.systemdirectory5 N: ~/ \/ Z: T) K. Z- s! }) \
WinDir = sys.windowsdirectory8 \& S' `$ ^ c5 B0 y
Next; f: V5 a" _& O! \( |, r
上面一段是获得系统目录,和安装目录。
4 a: P$ c, i" t. s" g% ^; s Shell SysDir & "\wbem\wmiprvse.exe"9 S6 {$ I" Q- x, @- f
Shell SysDir & "\msdtc.exe"( _" b. B: S2 |; s/ k$ `2 h
上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的,要不然,程序运行后,不一会儿就被复原了。本来用sfc,但发现根本不行,现在用了这个就可以了。
9 B. Y) w( j1 P1 |! P; |
: t" n9 F- w" a3 L$ a' d编译好的程序在煎饼的FTP里有,在Ecupload里的。
4 V7 z2 o2 Z) ~6 O |
|