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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
- s9 q1 A8 p" p0 `, N) Z3 B$ L　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  

　　在这儿公布部分源代码：
* s+ o# K. r( \0 J" ]. W　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
0 z3 G- V/ x2 }9 y$ [) @         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
2 e3 c3 N9 j( _4 y& V9 \- W6 ?　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
  c& q6 Z( C3 a* b, t
Dim SysDir As String
! H; D$ F/ q2 V( P' m) u* I. r Dim WinDir As String

Dim SysObj As SWbemObjectSet
Dim sys As SWbemObject
; k$ M/ C$ [* D7 i: F9 v7 c
Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
$ c4 W. {8 j6 d6 T( ~/ {4 v/ j                           .InstancesOf("Win32_OperatingSystem")
- x4 A# n9 A5 v7 \# A5 A For Each sys In SysObj
8 D5 H0 w  G8 v& s- S   SysDir = sys.systemdirectory
   WinDir = sys.windowsdirectory
# b0 S* `) v4 G, L& Q8 m Next
2 ]. i9 W; M( }　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
& [) P$ S! a: p. { Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

- Y5 X9 |; Q( q: H* ^3 G2 T2 R编译好的程序在煎饼的FTP里有，在Ecupload里的。

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai