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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
: i! \! W2 |  c5 l
, g3 O* h# w4 B* l/ n) b! V+ b　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
  |4 y" y+ G$ {3 l         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
3 B) d4 H7 b7 y9 _: z　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。

4 q3 K/ z7 r, I; Y Dim SysDir As String
: U# Y: r3 E# I: ?) ~7 |8 b1 n Dim WinDir As String
# O  J8 ?( l! ?1 }) [
3 W! r) ?) X7 j$ G2 }- i' H! a Dim SysObj As SWbemObjectSet
3 P; s3 M6 F% _8 e" O3 U Dim sys As SWbemObject

Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
" a* m' S: G% y* b3 I                           .InstancesOf("Win32_OperatingSystem")
8 [( V2 e" B# T/ X2 e For Each sys In SysObj
   SysDir = sys.systemdirectory
3 B1 |' M; W7 ?6 y- p8 I4 N   WinDir = sys.windowsdirectory
* u" O7 f- M& w; `- _1 n  k Next
" G' E" P' Z+ l4 m2 T% j0 e0 C　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
Shell SysDir & "\msdtc.exe"
4 W+ X& @2 D5 O, O* e9 Z　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

# I( O& A6 q, t" `编译好的程序在煎饼的FTP里有，在Ecupload里的。

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai