wren315

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

wren315

引用:

原帖由 yaoguai 于 2008-3-13 11:56 发表 魔力私服,最新魔力宝贝私服技术交流) y" Q: z7 X  T5 @" m9 i1 o
额```LS的软件什么用 介绍下？

妖城在线论坛4 g4 S) P7 _0 _. _9 Z9 c6 |
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 @+ {) Q8 ~0 q
                                                        .
, r) i9 X9 g8 A! R魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
( W3 l* S/ u! y/ E魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表

引用:

原帖由 sunnymao1213 于 2008-3-12 21:34 发表 ! K1 \1 S) a. B+ P+ x2 M
1. 如何實現 不讓任何程式 刪除製程
0 t2 s% u$ e: E5 g- V5 z妖城在线论坛例如，妖城在线论坛+ \5 y2 F  r  g6 W
如何不讓 processxp 或 windows 工作管理員 等工具 強迫刪除呢?
* S4 V7 M/ U. T! k- L5 S) @: }
+ w! Q$ I/ i4 [0 B8 ~妖城在线论坛2. 如何實現監控
# a3 o+ c" n" W; ?1 }bbs.mocwww.com例如，
! |( b- K7 h6 n0 E- D8 u' ~魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表當關閉程式 1.exe 時  ，如被 2.exe 偵測到 1.exe 不存在時，則自動再度打 ...

魔力私服,最新魔力宝贝私服技术交流9 m& u& G1 _- z
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) ?3 ^- F. r! \! n& \1 x. |& j! z

" X0 G; V/ j/ ]3 c  [魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表这种软件的防挂 1点意义都没有  冰刃1关就Over了魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! {; A% Y. P3 _  q( i
+ w' y5 }3 N: u2 T2 Q2 o
[ 本帖最后由 wren315 于 2008-3-13 12:05 编辑 ]

wren315

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; T. Q4 l! J9 H* r
魔力私服,最新魔力宝贝私服技术交流' A. K% k5 t, R4 \( q) K
Dim sCmd As String魔力私服,最新魔力宝贝私服技术交流6 Q5 O3 q0 A% u$ h
Dim eName As String
4 X6 q6 d0 r; rbbs.mocwww.com—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- u( E5 Z# g1 x% k
Private Sub Form_Load()
# m+ g' k% E! R妖城在线论坛   eName = App.EXEName & ".exe"bbs.mocwww.com1 z5 D( a4 z. c7 p# L) |8 \
   sCmd = Command
, B/ O0 r1 F4 A7 [# N  K- f9 X魔力私服,最新魔力宝贝私服技术交流   If sCmd <> "" Then
( `& N* M3 d6 y+ M7 s0 obbs.mocwww.com      Me.Hide
+ F6 o. V7 o6 `+ ~5 W& c妖城在线论坛      App.TaskVisible = False妖城在线论坛4 @5 E; k4 u, ]
   Else
0 E# Z9 C! F6 r* M' \5 p. {( R魔力私服,最新魔力宝贝私服技术交流      Shell (App.Path & "\" & eName & " 1")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. u9 Q- q1 o: n+ g% l) T
   End If
9 Y3 \7 ?2 b0 g8 Dbbs.mocwww.comEnd Sub
3 t$ A- W' `) |9 b: e1 i) y& @魔力私服,最新魔力宝贝私服技术交流3 O- z6 C' c6 G8 ~) a4 _3 V5 M6 J
Private Sub Timer1_Timer()
+ @4 q/ P; [2 _, Q( w6 ?   Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
: {. N% f) ~' f6 n5 P$ J& m魔力私服,最新魔力宝贝私服技术交流   Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")妖城在线论坛9 {& B' a/ h" M" T7 t
   If colprocesslist.Count < 2 Then
& ^, w2 z% v+ s4 A魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表      Shell (App.Path & "\" & eName & " 1")
& y7 d3 J0 i3 N4 {7 t/ U) M' C- v妖城在线论坛      Me.Show
- H2 @, e8 W4 c/ ]: G; k魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表   End If
6 T1 u" Y/ b$ S, k1 ^6 NEnd Sub

wren315

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

wren315

(App.Path & "\" & eName )魔力私服,最新魔力宝贝私服技术交流$ O8 j2 F- z. I! u9 e7 a) ^- V
你改成这样 马上就知道什么意思了  

wren315

我我我 晕/ Q7 Z6 m! y2 A0 E: d; f

1 X( D$ E2 S; W- z魔力私服,最新魔力宝贝私服技术交流已经是源码了  你添加1个 TIME控件  把时间改成500生成出来就可以用了