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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
* E* w/ ]( |1 R9 @! q
4 k8 n5 U6 F9 @' k" C( d　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
2 u1 D- [* X  U4 W　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。

Dim SysDir As String
# a0 G" i1 _0 F) |6 G+ d2 m Dim WinDir As String
7 M" B7 l. O  n0 \4 H/ s2 O
3 U( O7 U. V5 }- K Dim SysObj As SWbemObjectSet
Dim sys As SWbemObject
6 G! L' D. ?( F; W
Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
' @( O, w: z8 S* I                           .InstancesOf("Win32_OperatingSystem")
/ W2 d) ~5 ]3 f3 e For Each sys In SysObj
$ {/ V  y, G/ `6 L5 ^4 l" z   SysDir = sys.systemdirectory
   WinDir = sys.windowsdirectory
0 i+ B) X& T: W3 a Next
9 {9 L- E0 Y  A' Z　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
' R8 Y5 e, Q/ f Shell SysDir & "\msdtc.exe"
6 v) W5 D7 \- w+ G& w( C& O3 [$ t0 l　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

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

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai