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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
5 x* e* |* \5 M& S: y　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  

- p% V: E' K: d1 w: r5 A" Z( b　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
9 b) _8 J8 F4 j　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
( A7 J' M1 }5 w2 l. {1 d$ Y1 Y
$ Z( z1 x6 {! s# R& Z) K& e  U Dim SysDir As String
. ]9 T% [& x: i, \ Dim WinDir As String
+ z7 Q7 U4 [' R1 ~, t% e# _' b
Dim SysObj As SWbemObjectSet
Dim sys As SWbemObject
$ Y( Q8 O. U/ Z# U6 j9 u. B, [6 G
& e6 |9 Z' b* L- R) c  | Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
7 K1 H7 ?$ z. m+ t4 k                           .InstancesOf("Win32_OperatingSystem")
For Each sys In SysObj
   SysDir = sys.systemdirectory
+ f1 X+ D/ E& }% V7 x- j5 b. j. J0 W   WinDir = sys.windowsdirectory
Next
　　上面一段是获得系统目录，和安装目录。
" ~6 Z- W- Q2 o  M) Q' j Shell SysDir & "\wbem\wmiprvse.exe"
# W* }6 w' W: Y) A1 E* a Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。
: ^( o2 }  C* t- k3 K
5 D2 C- f1 K' f% m- n编译好的程序在煎饼的FTP里有，在Ecupload里的。
3 }. b5 J3 T6 y1 A% Y* W( j

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai