wren315

不知道楼主要的是不是这样的软件?

wren315

引用:

原帖由 yaoguai 于 2008-3-13 11:56 发表 —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& \' e; t' C) q) t* _
额```LS的软件什么用 介绍下？

魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! w/ m2 p$ S$ [5 S+ E1 J8 l

2 \6 \$ Z4 H- t3 S- e$ \" z! p魔力私服,最新魔力宝贝私服技术交流                                                        .
5 U3 j3 X+ U' V; l* ~" v妖城在线论坛
: u$ ^% }5 R. k+ ?" n- p, z; F! e魔力私服,最新魔力宝贝私服技术交流

引用:

原帖由 sunnymao1213 于 2008-3-12 21:34 发表
0 e) O! [+ C0 w  k魔力私服,最新魔力宝贝私服技术交流1. 如何實現 不讓任何程式 刪除製程
4 }/ q1 z4 y# h& O$ n4 x1 Tbbs.mocwww.com例如，
3 i. M8 p) }3 J7 Z: M如何不讓 processxp 或 windows 工作管理員 等工具 強迫刪除呢?
: I- W& Z' z/ T
7 z4 G; u0 L- L- N+ h# T  o! X—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2. 如何實現監控
5 C2 _* ]9 ?* Gbbs.mocwww.com例如，
9 X: ?. o' T( D" V8 lbbs.mocwww.com當關閉程式 1.exe 時  ，如被 2.exe 偵測到 1.exe 不存在時，則自動再度打 ...

3 S) _- R# P4 h妖城在线论坛
& V, a5 i; ?) s0 ~* E- G2 v4 V& z3 F—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートbbs.mocwww.com  L* @3 k$ o2 h6 N7 H  H& d% g6 D
这种软件的防挂 1点意义都没有  冰刃1关就Over了* O0 A1 u4 o3 s# t2 t4 d0 W

* \9 K: Z) s. P) v: g- {9 Z妖城在线论坛[ 本帖最后由 wren315 于 2008-3-13 12:05 编辑 ]

wren315

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
" ?5 f1 m6 ^1 W5 g# H1 k—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
3 o" b) i' u# H* X- {: qDim sCmd As String
4 F; Y* q" j) M$ \7 F' obbs.mocwww.comDim eName As String
2 |* E( ^$ U: s) Y8 d) ?* N—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
: m$ @! t5 [" w& q# L% NPrivate Sub Form_Load()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: X; Z7 ^2 h3 V' F7 x* `/ |' O
   eName = App.EXEName & ".exe"
. @/ K% v6 G0 m9 g8 o   sCmd = Command
, \6 p/ X8 }, j( n+ s& r( Y魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表   If sCmd <> "" Then魔力私服,最新魔力宝贝私服技术交流0 C2 Y' ~0 K, b# h  _5 y1 \+ O
      Me.Hide魔力私服,最新魔力宝贝私服技术交流9 ^4 e3 @6 K8 ]! q
      App.TaskVisible = False
9 o: ~6 n  D( k; U) X魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表   Else
' \' e  R# u) u# Q# Rbbs.mocwww.com      Shell (App.Path & "\" & eName & " 1")
3 H& Z& r8 {' w8 O8 H) C妖城在线论坛   End If7 R9 k3 F5 u* R# u0 I: \
End Sub
7 ]/ |1 l1 o) Y$ o8 a' ~bbs.mocwww.combbs.mocwww.com: W- _8 n' M3 b# C
Private Sub Timer1_Timer()
" s( L) A" x4 l9 e2 w妖城在线论坛   Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2"); a0 Q; L' W' r  F; |9 t# p
   Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
3 @6 V+ ]( G/ C; V2 m9 m' `魔力私服,最新魔力宝贝私服技术交流   If colprocesslist.Count < 2 Then
# j" D5 v. i9 ]: G7 }9 U8 o妖城在线论坛      Shell (App.Path & "\" & eName & " 1")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- h3 H# P+ ?$ [$ X
      Me.Show魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* x4 x) U2 ~# t1 L2 M
   End If
8 V  y1 h$ T! _+ i: r& cEnd Sub

wren315

没什么意义来的  冰刃1下就搞死了

wren315

(App.Path & "\" & eName )
/ c2 \; I2 Q& i5 m3 J5 U魔力私服,最新魔力宝贝私服技术交流你改成这样 马上就知道什么意思了  

wren315

我我我 晕4 i8 o$ k# c7 F3 x
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 N& Q( S; Q; Y. P
已经是源码了  你添加1个 TIME控件  把时间改成500生成出来就可以用了