下沙论坛

 找回密码
 注册论坛(EC通行证)

QQ登录

QQ登录

下沙大学生网QQ群8(千人群)
群号:6490324 ,验证:下沙大学生网。
用手机发布本地信息严禁群发,各种宣传贴请发表在下沙信息版块有问必答,欢迎提问 提升会员等级,助你宣传
新会员必读 大学生的论坛下沙新生必读下沙币获得方法及使用
查看: 4156|回复: 3
打印 上一主题 下一主题

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

[复制链接]
丧心病狂 该用户已被删除
跳转到指定楼层
1
发表于 2003-5-22 22:09:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
上次我曾公布过一个WinXP的电话激活补丁,但那个补丁只是我没完成的作品,在这儿我向以前下载了那个补丁的哥们道歉。- V5 y* O. I+ x& e4 V, `
  现在我潜心修炼,做出了2.0版的补丁,在这儿公布。  8 |( ~. F) v2 F8 }( S4 m1 T* B

$ i  B$ O3 a& Z  h# `, y  在这儿公布部分源代码:) ?  e/ K1 |8 ~
  Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" _* ~- `4 l0 r- R
         (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
3 {  t" X( }/ `* c# c: @         ByVal dwFlags As Long) As Long" F9 J7 P2 L- }) p" ~$ P8 V
  上面的那个API函数是用来将一个系统文件移到另一个地方以副本形式运行,因为运行中的系统文件是不能被直接修改的。1 s. M$ b7 J& @/ T8 w& y9 m
1 |2 Z6 M' J  h. b9 {
Dim SysDir As String/ |+ C+ G5 C  C
Dim WinDir As String; m: Y8 c& }( N, B7 u

3 g" ^4 [3 w6 I% T4 |6 w6 H! a/ B+ ] Dim SysObj As SWbemObjectSet; T& o* l5 S+ \0 j0 w0 e! i
Dim sys As SWbemObject
- J% W+ b& F$ ]0 b5 S0 I1 y8 p
1 r+ Q! F, |  o4 H3 K' F& A Set SysObj = GetObject("winmgmts:{impersonationLevel=impersonate}") _8 ^" V5 t# {6 U  _2 S5 J+ t! Z3 w
                           .InstancesOf("Win32_OperatingSystem")
0 x0 @  \, U& ]- h0 P For Each sys In SysObj. }7 \9 e0 q1 z" U) {$ p6 x
   SysDir = sys.systemdirectory2 {4 `7 ?' w! \9 Q& i! W# X1 P
   WinDir = sys.windowsdirectory! A: l2 w, h: y0 F1 _. f" T( Q
Next2 [' z+ r) Y& o1 R
  上面一段是获得系统目录,和安装目录。
! R; f% X9 G$ p7 b, p Shell SysDir & "\wbem\wmiprvse.exe"
, M0 m! I0 I" \% P+ ^ Shell SysDir & "\msdtc.exe"
! Y" Q- O$ i4 R# Q6 M! D* ]7 E  上边的两个程序作用于系统的保护功能啊。我可是找了好几天才找到的,要不然,程序运行后,不一会儿就被复原了。本来用sfc,但发现根本不行,现在用了这个就可以了。0 V( p6 _% Q7 W& T8 B/ P, Q
2 L, P* Y( ^, L9 F
编译好的程序在煎饼的FTP里有,在Ecupload里的。 3 l& i1 U4 w0 [, D+ g" K
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 顶 踩
丧心病狂 该用户已被删除
2
 楼主| 发表于 2003-5-22 23:47:00 | 只看该作者
并且更正一下,无须重启

该用户从未签到

3
发表于 2003-5-23 00:06:00 | 只看该作者
高手啊,好好讨教一下!

该用户从未签到

4
发表于 2003-5-28 00:44:00 | 只看该作者
lihai

本版积分规则

关闭

下沙大学生网推荐上一条 /1 下一条

快速回复 返回顶部 返回列表