|
上次我曾公布过一个WinXP的电话激活补丁,但那个补丁只是我没完成的作品,在这儿我向以前下载了那个补丁的哥们道歉。
1 p& @6 ]2 ]% \9 n* t1 G; l* L3 l 现在我潜心修炼,做出了2.0版的补丁,在这儿公布。 3 n1 g& O4 J& f+ @" P! A
7 i7 O( b! W, _# w/ ~2 M: l 在这儿公布部分源代码: U8 p/ I! I& a1 _+ i" e
Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _1 p: p1 j4 V/ s- y; {2 `4 H
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
2 t7 F8 ]* V! _# \' J1 v ByVal dwFlags As Long) As Long
1 |' M* s9 n( G1 X 上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行,因为运行中的系统文件是不能被直接修改的。
3 J+ I. d4 }: w% _
" k, [) V, Y) b; u1 B: V7 X Dim SysDir As String+ I% \ y, F, C
Dim WinDir As String
3 [* |; F! p, q* ?" ]
* L8 n. d4 S* g' m# j! w Dim SysObj As SWbemObjectSet9 o) T3 u' k% q" `9 T+ c
Dim sys As SWbemObject3 {. M6 F! ?0 {" V, c
( r+ Z4 I/ i4 p7 a
Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _1 t! l) x( |" \8 K
.InstancesOf("Win32_OperatingSystem")* h' o4 M; @# G8 g8 j; E9 ^' a& q
For Each sys In SysObj
) k0 y( O. |* z SysDir = sys.systemdirectory" f7 Z+ i; ?! E
WinDir = sys.windowsdirectory8 T2 L5 D# j& L& T& n2 v
Next7 [ j6 E0 S& e4 F4 ?
上面一段是获得系统目录,和安装目录。
6 S% d0 J8 D0 R( W# ^ Shell SysDir & "\wbem\wmiprvse.exe"( a5 Q6 g8 ^6 M% N
Shell SysDir & "\msdtc.exe"& L% t4 \& ~ U' {$ R/ O
上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的,要不然,程序运行后,不一会儿就被复原了。本来用sfc,但发现根本不行,现在用了这个就可以了。
" L) E) T# r5 {: _
) G. }! N% e, {7 n' G O编译好的程序在煎饼的FTP里有,在Ecupload里的。 + s( [3 A6 c8 R8 Q2 ~5 k
|
|