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

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

　　在这儿公布部分源代码：
% W% B* l! T3 t* W# U$ g; H" i　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
( t6 Z# r  T% B: B         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。

% K, q# _+ Q2 n$ R; s4 Z& y3 q$ ^ Dim SysDir As String
6 m. m! G5 @% I& r/ Q Dim WinDir As String
1 F1 N" c- P% |. [" {
  h8 H/ S6 ?: D1 }# S& `1 ]$ n2 H Dim SysObj As SWbemObjectSet
$ Y9 y! [) Y0 T- Q  D% u Dim sys As SWbemObject
2 g5 R1 U4 o6 e: P2 B0 D6 R) @
Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
6 w& ]( L3 k( i" z, Y# _' d3 B                           .InstancesOf("Win32_OperatingSystem")
8 C! @8 \0 W; n+ ` For Each sys In SysObj
   SysDir = sys.systemdirectory
   WinDir = sys.windowsdirectory
Next
　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
) [# x& q% b7 C# k" z* @) i3 E Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

! V0 g/ [9 w& {( z7 ]* ?( z" S8 v编译好的程序在煎饼的FTP里有，在Ecupload里的。

hiteler

lihai

修罗翌平

高手啊，好好讨教一下！

并且更正一下，无须重启