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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
+ ^% g! n# m4 d, }/ F& Q: q3 |　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  

# \7 Q/ p: X. {. \　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
8 Z' E8 b, k, ~3 }( a8 J         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
/ |/ V( e5 c$ G6 R" q  E" p　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。

Dim SysDir As String
Dim WinDir As String
% m- {0 ]1 T: \9 s2 R( J6 [
Dim SysObj As SWbemObjectSet
- h) X9 M+ Q* ^& c2 A Dim sys As SWbemObject
4 s6 b% d5 `( U& |
& e  [& {: g, y5 K0 J' [; F9 ?4 F Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .InstancesOf("Win32_OperatingSystem")
For Each sys In SysObj
6 b: O3 V" l& @" ^   SysDir = sys.systemdirectory
, ^! r* V- W$ ?; c8 m. y   WinDir = sys.windowsdirectory
Next
　　上面一段是获得系统目录，和安装目录。
# G" z0 q/ e( ]  [+ o Shell SysDir & "\wbem\wmiprvse.exe"
Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

' }' {8 B1 f1 @& b: q- s编译好的程序在煎饼的FTP里有，在Ecupload里的。
) g, x) ^) q6 u. M: ?

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai