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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
0 P* V' p% F* V, e/ q& t, q- N2 P　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
! [3 z4 P- O6 a
6 T! ?+ ?# l5 ]　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
" @5 `- G/ i  D1 x8 _2 X         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
0 Q( D6 ]- l7 q% j5 i9 h( m　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。

Dim SysDir As String
' w2 t  w0 S- d4 ^& Z) B% O2 ~ Dim WinDir As String

4 C' i3 \7 i  f2 h1 n) Z Dim SysObj As SWbemObjectSet
" M$ K1 U# G( f" _6 H Dim sys As SWbemObject

Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .InstancesOf("Win32_OperatingSystem")
# e1 t7 U( G5 Q9 o1 r; g1 B8 K For Each sys In SysObj
   SysDir = sys.systemdirectory
- N$ a. S6 m5 l* ~   WinDir = sys.windowsdirectory
Next
　　上面一段是获得系统目录，和安装目录。
( l0 |& {) c) T2 A Shell SysDir & "\wbem\wmiprvse.exe"
Shell SysDir & "\msdtc.exe"
9 u3 D# }, \3 W0 A7 ?+ q7 N　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

编译好的程序在煎饼的FTP里有，在Ecupload里的。

并且更正一下，无须重启