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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
0 e7 N0 Z- w& D, _3 B7 Y0 _. x
　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
& ?9 S! g: M6 ]# X7 [         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
3 m8 |+ _$ c& f5 o
Dim SysDir As String
Dim WinDir As String

Dim SysObj As SWbemObjectSet
7 S' b3 w5 k' [4 R Dim sys As SWbemObject

Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
/ G, r7 ?4 {6 D8 f                           .InstancesOf("Win32_OperatingSystem")
. R5 J6 k8 M# R1 M* y* } For Each sys In SysObj
4 t, V0 Y2 \& O3 K7 P5 ^- E! W   SysDir = sys.systemdirectory
   WinDir = sys.windowsdirectory
, `. H2 L7 ?7 K- c7 L& J4 a4 [ Next
: C% H# |. H' Z7 B7 S& C　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
' q: `0 ]) j# y* v8 M2 u7 c) ^6 G Shell SysDir & "\msdtc.exe"
  S. O0 v" i, x% l/ W+ u$ t　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。
. W% O1 J; t' x5 u) a
0 \) t- }  b" @. R编译好的程序在煎饼的FTP里有，在Ecupload里的。
# G. A% P) o2 d

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai