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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
* b* y; d/ Q% v$ Z& m! w$ s" W- z　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
0 [9 u0 s% Y0 Z9 G4 W' D- d! P
7 c( w* P! a+ M! D2 @4 d% Z　　在这儿公布部分源代码：
　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
2 f5 u7 M6 \: e: v4 u! l/ O, M         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
         ByVal dwFlags As Long) As Long
　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。

; j- R' i4 ]5 s- @2 H# l3 A: x Dim SysDir As String
* I6 l! M$ h& K& ]! C1 P3 J8 }4 y Dim WinDir As String
' t  |0 R5 C$ W6 s; T: Z( ]2 Z
Dim SysObj As SWbemObjectSet
Dim sys As SWbemObject
; @6 G- |" _- h* s1 M7 w; K
8 S' j6 ^. [% F: E8 O Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .InstancesOf("Win32_OperatingSystem")
For Each sys In SysObj
   SysDir = sys.systemdirectory
   WinDir = sys.windowsdirectory
Next
$ e4 i, P2 \# z　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
Shell SysDir & "\msdtc.exe"
　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

% C2 Q) R2 b6 d6 F4 J& g: i编译好的程序在煎饼的FTP里有，在Ecupload里的。
# {  L) U' X* X( G9 L( E) h

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai