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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
5 f: M& U" A0 O) [+ b9 l5 D1 `
　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
6 Z6 E5 t: F! r8 r) ]! N         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
* q, A8 F3 n7 P  B) }/ h　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
" z. i$ i! y; E! o
Dim SysDir As String
Dim WinDir As String

Dim SysObj As SWbemObjectSet
" @9 J9 H, L4 @& H Dim sys As SWbemObject
* k: J. H9 K. K
1 b+ M7 N8 [* G* O0 s4 d Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
  ?. l# d, s$ f) e& F                           .InstancesOf("Win32_OperatingSystem")
; }6 k- f3 d" |5 o For Each sys In SysObj
   SysDir = sys.systemdirectory
   WinDir = sys.windowsdirectory
9 ^! s( [5 j' j" c3 T Next
! b  ?# f5 c. Z- Y) q; G　　上面一段是获得系统目录，和安装目录。
' g+ d/ g% S% x% x; X Shell SysDir & "\wbem\wmiprvse.exe"
Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

' d- L2 r: t; d5 `1 R+ I编译好的程序在煎饼的FTP里有，在Ecupload里的。

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai