Board logo

标题: [提问] 問問VB的問題 [打印本页]

作者: sunnymao1213    时间: 2008-3-12 21:34     标题: 問問VB的問題

1. 如何實現 不讓任何程式 刪除製程
# ^# }+ `# P' T魔力私服,最新魔力宝贝私服技术交流例如,) F" A6 t. ?( J
如何不讓 processxp 或 windows 工作管理員 等工具 強迫刪除呢?bbs.mocwww.com7 c  _( R' q, d/ p/ _
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 ~/ T2 W9 b0 p3 i, m3 i
2. 如何實現監控—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* @  p2 L; N  V1 D
例如,
+ z; |) t2 j0 O' F- a: ?妖城在线论坛當關閉程式 1.exe 時  ,如被 2.exe 偵測到 1.exe 不存在時,則自動再度打開 1.exe—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ k0 f, i+ A5 ?6 @
當關閉程式 2.exe 時  ,如被 1.exe 偵測到 2.exe 不存在時,則自動再度打開 2.exe
作者: nijiechao    时间: 2008-3-12 22:15

这个方法我试过..由于需要用到API函数来时刻检测系统内1.exe或者2.exe的进程..所以占用CPU必定100%..无论是多牛X的机器..必定是这样的.....AMD5000+2GB内存照样100%CPU..
作者: nijiechao    时间: 2008-3-12 23:02

曾经好玩编译了这样一个程式...
  k3 ]* |9 W/ ?& b* Y' K' {魔力私服,最新魔力宝贝私服技术交流—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 e( _* \& |# u% W
當關閉程式 1.exe 時  ,如被 2.exe 偵測到 1.exe 不存在時,則自動再度打開 1.exe妖城在线论坛- ~1 s4 @* P: v( q: ]$ ~% t
當關閉程式 2.exe 時  ,如被 1.exe 偵測到 2.exe 不存在時,則自動再度打開 2.exe魔力私服,最新魔力宝贝私服技术交流/ y& N6 C! m6 @3 @' K
當關閉程式 1.2.exe 時  ,如被 3.exe 偵測到 1.2.exe 不存在時,則自動再度打開 1.2.exe
" t9 ?0 }. e% P% t魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* G/ f7 M  \% u+ J! d
一共做了4个玩....巨强大=  =
1 j8 L: n2 p: I3 o: \8 f魔力私服,最新魔力宝贝私服技术交流魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ d+ B' _$ B3 D0 O% P
发给朋友恶作剧用的...
作者: wren315    时间: 2008-3-13 11:48

不知道楼主要的是不是这样的软件?
作者: yaoguai    时间: 2008-3-13 11:56

额```LS的软件什么用 介绍下?
作者: wren315    时间: 2008-3-13 12:00

引用:
原帖由 yaoguai 于 2008-3-13 11:56 发表
4 z4 |* e/ C$ ~魔力私服,最新魔力宝贝私服技术交流额```LS的软件什么用 介绍下?
妖城在线论坛5 z- g; K0 q& _$ D

& t% w( F- }' z: N—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート                                                        .1 U; |' l7 w0 F: C, L

# B5 c! s$ c  z  `7 [魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
引用:
原帖由 sunnymao1213 于 2008-3-12 21:34 发表
5 n$ V6 V2 S: `( t# T; t" L; Nbbs.mocwww.com1. 如何實現 不讓任何程式 刪除製程
& ?1 ^% `& W4 S9 {妖城在线论坛例如,妖城在线论坛& j; I/ T' b) L- h2 Y% Q
如何不讓 processxp 或 windows 工作管理員 等工具 強迫刪除呢?
& b) c5 n3 `3 o- U  Q" @bbs.mocwww.com
' a: d9 E4 j+ y/ |8 K  W% y—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2. 如何實現監控
' a* U$ f. Q. q# U3 f. l魔力私服,最新魔力宝贝私服技术交流例如,bbs.mocwww.com* t; d6 U$ \3 k2 U+ W3 Z: X
當關閉程式 1.exe 時  ,如被 2.exe 偵測到 1.exe 不存在時,則自動再度打 ...
+ X* b) b9 ~& {+ E6 E3 ~; q0 p. ]魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
+ c% _# ^: Y# V6 X" n/ @魔力私服,最新魔力宝贝私服技术交流
, S. E" ~  C1 F5 G—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート这种软件的防挂 1点意义都没有  冰刃1关就Over了魔力私服,最新魔力宝贝私服技术交流. L3 f7 R  W4 I4 Z
魔力私服,最新魔力宝贝私服技术交流5 ?% `6 V& z. n; j
[ 本帖最后由 wren315 于 2008-3-13 12:05 编辑 ]
作者: sunnymao1213    时间: 2008-3-13 13:46

对@@" 就是这个!!
4 C8 z2 C9 B5 Y1 f% Q( I; I—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
8 r  J6 L3 x! t: k$ P你可以放出 原始码 给我参考吗@@?
6 L4 ~" d% H/ |" d* M. |魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
+ |* H, K. @* `: h" M3 P/ T—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート我就是想要你放上来的这样的程式
作者: thegod12    时间: 2008-3-15 07:31

我用e做的登陆器就这样`2个运行才1%-5%cpu但是随便下个能暂停进程的就搞定了。。。
作者: xuyaoxy    时间: 2008-3-15 09:50

1.exe运行时候释放出2.exe并运行....—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) j' L8 j  d5 @8 h+ C
怎么感觉象是写病毒啊.- -...
作者: nijiechao    时间: 2008-3-15 11:31

改掉进程名也没用的....就算是写病毒..也很无聊
作者: wren315    时间: 2008-3-16 12:41

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
3 B/ F) M3 c! W4 J% \妖城在线论坛6 j, h% b) }! \- u; ?
Dim sCmd As String魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" M, v. {2 g+ F" H: V9 b$ B7 ]
Dim eName As String妖城在线论坛9 p& S: Y8 c/ Z( A) ~
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 B" I% Q# I5 m+ q9 y
Private Sub Form_Load()
* `& R3 s& }. `/ [魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表   eName = App.EXEName & ".exe"
6 X- m4 n, i) W" Z4 x妖城在线论坛   sCmd = Command—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% I& c9 v& K* I! }- x
   If sCmd <> "" Then5 ?, D1 Q1 _" B' L$ ]
      Me.Hide魔力私服,最新魔力宝贝私服技术交流$ E( M% [0 G; k$ W2 l& _; B$ g
      App.TaskVisible = Falsebbs.mocwww.com/ B& ~& N" V/ E& _6 Z: o, E& O
   Else
# h) n& M/ f; M( I- C' T: s1 @魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表      Shell (App.Path & "\" & eName & " 1")
6 {* |9 K% `6 x, R魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表   End If
( w: y# Y, H2 ^% l' R- z4 S  d9 p; Lbbs.mocwww.comEnd Sub
8 y2 X" R6 t: a9 c- [+ L" z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート妖城在线论坛% I% L4 j  [5 Q; }5 ^4 h: h
Private Sub Timer1_Timer()
3 M- Q2 ^1 T9 ?& f' F! e—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート   Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
; H9 K8 W6 {) d5 L1 ^—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート   Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
! y) C3 b  u; }4 N2 v—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート   If colprocesslist.Count < 2 Then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 I1 m( m, \- X3 \2 ]
      Shell (App.Path & "\" & eName & " 1")魔力私服,最新魔力宝贝私服技术交流; x( t9 h) \9 W, f& w
      Me.Show
- ~, Q9 z+ l6 e+ f/ M$ b  m7 B魔力私服,最新魔力宝贝私服技术交流   End If
) D0 }; v7 Z6 k# Z6 S& k) D妖城在线论坛End Sub
作者: wren315    时间: 2008-3-16 12:42

没什么意义来的  冰刃1下就搞死了
作者: sunnymao1213    时间: 2008-3-16 13:05

真的很感謝,—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 a6 j1 r! @8 \0 a) z+ k$ x$ E
冰刃一下子搞死 可是對我來說已經很重要了2 d, _, n; d. L6 u  W
很感謝^^魔力私服,最新魔力宝贝私服技术交流2 ?9 S$ ]8 F* e: f" n
魔力私服,最新魔力宝贝私服技术交流1 @" Q6 F4 o( U4 p; a

作者: sunnymao1213    时间: 2008-3-16 13:14

DEBUG 問題妖城在线论坛' n2 j9 j6 L3 ?  w8 S
(App.Path & "\" & eName & " 1")
8 s! I; a9 H9 ]魔力私服,最新魔力宝贝私服技术交流魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% q5 L& t( v  Q+ z* |! Z
" 1" 代表什麼呢??
作者: wren315    时间: 2008-3-16 13:49

(App.Path & "\" & eName )bbs.mocwww.com  z' `# M& z+ h
你改成这样 马上就知道什么意思了  
作者: sunnymao1213    时间: 2008-3-16 14:34

我還是搞不出來—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) b* b% e. s" C* M
你可以放出原始碼讓我下載嗎
0 e" {4 c5 l5 R. A魔力私服,最新魔力宝贝私服技术交流
2 v4 ~! r/ k9 H: S/ @/ ^3 Z魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
作者: wren315    时间: 2008-3-16 15:18

我我我 晕
! K$ m& h! {+ N6 jbbs.mocwww.com( f) N- T, |" _4 C. [& I
已经是源码了  你添加1个 TIME控件  把时间改成500生成出来就可以用了




欢迎光临 妖城在线论坛 (http://bbs.mocwww.com/) Powered by Discuz! 6.0.0