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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
' G4 ]. B$ f3 k! l4 L, x2 I/ k' e
  c3 u% s6 u6 F$ v7 U' W　　在这儿公布部分源代码：
5 G' n- ]$ n+ \, ^/ O& z0 r　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
6 A$ s6 i: J$ h7 X9 {         ByVal dwFlags As Long) As Long
　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
4 w, \$ Z, M; o. R+ Z
7 K$ ?. T3 ~& v; b3 m- W' C Dim SysDir As String
0 j% F, x1 w- ^* [' `; M; g3 H& _/ v Dim WinDir As String

Dim SysObj As SWbemObjectSet
  y4 U6 c% U) b8 H# q' G Dim sys As SWbemObject

4 y9 i) u7 {5 c; { Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .InstancesOf("Win32_OperatingSystem")
For Each sys In SysObj
   SysDir = sys.systemdirectory
$ D) p' @( ^/ a5 u   WinDir = sys.windowsdirectory
% ~0 u# N6 Q5 W* P$ a" V8 C Next
9 ]. M% K6 i* p2 s2 ^, V　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
' G2 s$ |; B* z1 B5 r% h' X Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

编译好的程序在煎饼的FTP里有，在Ecupload里的。
5 x1 Z* y2 u  u! D* Y7 p

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai