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

上次我曾公布过一个WinXP的电话激活补丁，但那个补丁只是我没完成的作品，在这儿我向以前下载了那个补丁的哥们道歉。
　　现在我潜心修炼，做出了2.0版的补丁，在这儿公布。  
0 [1 V1 h- G9 C% X# D/ H
　　在这儿公布部分源代码：
9 }9 n0 v6 z9 {/ {# {9 L+ |% H　　Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _
" B0 }4 ^2 ^. f. l         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
- v2 o7 E/ j9 D' ~$ |7 }         ByVal dwFlags As Long) As Long
　　上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行，因为运行中的系统文件是不能被直接修改的。
8 P- o5 S+ t; w# F% r
Dim SysDir As String
. S$ }( }$ B" w% F6 ^ Dim WinDir As String

Dim SysObj As SWbemObjectSet
1 ~1 T4 y9 b9 g6 Y( W Dim sys As SWbemObject

Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .InstancesOf("Win32_OperatingSystem")
8 l  N/ m% W' L- n. J& h For Each sys In SysObj
   SysDir = sys.systemdirectory
   WinDir = sys.windowsdirectory
Next
4 \& L8 Q2 J# J* r8 b* u　　上面一段是获得系统目录，和安装目录。
Shell SysDir & "\wbem\wmiprvse.exe"
; u2 ^# s- |5 l' | Shell SysDir & "\msdtc.exe"
1 l( A$ W1 ~) x4 b　　上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的，要不然，程序运行后，不一会儿就被复原了。本来用sfc，但发现根本不行，现在用了这个就可以了。

! `$ o+ o) E; W; _, {4 g% M编译好的程序在煎饼的FTP里有，在Ecupload里的。
/ ]( O( E' i5 `

并且更正一下，无须重启

修罗翌平

高手啊，好好讨教一下！

hiteler

lihai