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

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

　　在这儿公布部分源代码：
+ b0 e: o# j6 r　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
+ r7 ^0 O' h( T, H         ByVal dwFlags As Long) As Long
5 O" L0 |& c. e  v, d" W1 a　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
$ R# @7 n8 D8 T- m, j
Dim SysDir As String
0 j' d( u  Y6 ~1 s+ q Dim WinDir As String
2 V" n- R% u8 A- a& |
. K. @( C' y0 o6 m2 K: V# S Dim SysObj As SWbemObjectSet
# ~  Y+ h, G3 W* B, S( E7 C Dim sys As SWbemObject

Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
, p. Y! g0 ^7 j8 T$ l                           .InstancesOf("Win32_OperatingSystem")
/ f5 W; z# `# x  {) l' w For Each sys In SysObj
   SysDir = sys.systemdirectory
% N6 B0 J1 c" p8 ~  n. Z4 a, t- X   WinDir = sys.windowsdirectory
Next
, j6 Z6 i2 Y* h) E. D! N　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。
# C4 R3 O; y6 }- W3 F" a
编译好的程序在煎饼的FTP里有，在Ecupload里的。
: m0 @8 p6 k$ f, @+ P9 e

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai