[原创][分享]XPsp1的部分源代码

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
! T/ O& F6 b5 |7 T　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
; L4 _$ P& v! G# G6 a% w0 M
　　在这儿公布部分源代码：
+ e- A# S0 p3 k! H4 h9 n# c　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
, e3 U8 v9 T: ]! D! T- `( G3 h2 A         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
* W# G  i: W; G7 ]. B
Dim SysDir As String
Dim WinDir As String
) m+ R9 Q, Q. n' {  Y. S
7 i9 D/ C+ S8 F* T! V# c3 B Dim SysObj As SWbemObjectSet
9 s3 B8 H8 C, ~' z' Z! @ Dim sys As SWbemObject
2 S: ?6 V/ n+ D- r
/ _7 ?' e0 H8 |9 H Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .InstancesOf("Win32_OperatingSystem")
4 m- X& R8 w8 e For Each sys In SysObj
   SysDir = sys.systemdirectory
& Q5 B6 g3 |7 I/ j7 X   WinDir = sys.windowsdirectory
+ |, J# g7 F" {$ a/ q9 Z Next
　　上面一段是获得系统目录，和安装目录。
# V4 P# _3 j% T+ _: U- ~1 U Shell SysDir & "\wbem\wmiprvse.exe"
Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。
6 d  ]8 L) `$ ^7 \0 k
编译好的程序在煎饼的FTP里有，在Ecupload里的。

并且更正一下，无须重启