妖城在线论坛 - Powered by Discuz! Board

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

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

1. 如何實現不讓任何程式刪除製程
例如，
如何不讓 processxp 或 windows 工作管理員等工具強迫刪除呢?
bbs.mocwww.com: h. a0 @" x! `8 @' x# h
2. 如何實現監控妖城在线论坛% n5 H8 o- Z# V4 m2 D# @3 j
例如，
當關閉程式 1.exe 時，如被 2.exe 偵測到 1.exe 不存在時，則自動再度打開 1.exe妖城在线论坛3 ]3 [5 [% L, n }7 A
當關閉程式 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

曾经好玩编译了这样一个程式...—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' ]$ R) O3 i6 _4 v- L6 a8 b4 X7 x3 V! w

當關閉程式 1.exe 時  ，如被 2.exe 偵測到 1.exe 不存在時，則自動再度打開 1.exe妖城在线论坛7 V  q* m) r& {' E* s
當關閉程式 2.exe 時  ，如被 1.exe 偵測到 2.exe 不存在時，則自動再度打開 2.exe魔力私服,最新魔力宝贝私服技术交流; i6 a! D. [* r/ j4 @
當關閉程式 1.2.exe 時  ，如被 3.exe 偵測到 1.2.exe 不存在時，則自動再度打開 1.2.exebbs.mocwww.com# D$ r) y! `; h5 F

一共做了4个玩....巨强大=  =魔力私服,最新魔力宝贝私服技术交流7 o2 H2 e6 I& S  M4 D( s8 `
bbs.mocwww.com2 Y4 l- K9 Y% d! R  a
发给朋友恶作剧用的...

作者: 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 发表
额```LS的软件什么用介绍下？

.
妖城在线论坛1 C( U" T6 p; |" K6 |

引用:

原帖由 sunnymao1213 于 2008-3-12 21:34 发表
7 }) O( c7 ]1 W% a妖城在线论坛1. 如何實現不讓任何程式刪除製程
例如，$ r1 x* \9 R6 A8 E/ `; X8 K$ A9 c
如何不讓 processxp 或 windows 工作管理員等工具強迫刪除呢?
魔力私服,最新魔力宝贝私服技术交流! j3 m! D8 {; @+ m( T
2. 如何實現監控
, G \# `/ S+ U1 mbbs.mocwww.com例如，
當關閉程式 1.exe 時，如被 2.exe 偵測到 1.exe 不存在時，則自動再度打 ...

—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) Q P: N% m+ u- `3 C
bbs.mocwww.com8 y/ j3 D! t5 L) M8 l, j

这种软件的防挂 1点意义都没有冰刃1关就Over了

[ 本帖最后由 wren315 于 2008-3-13 12:05 编辑 ]

作者: sunnymao1213 时间: 2008-3-13 13:46

对@@" 就是这个!!
bbs.mocwww.com7 v+ H$ ^3 ?8 D
你可以放出原始码给我参考吗@@?

我就是想要你放上来的这样的程式

作者: thegod12 时间: 2008-3-15 07:31

我用e做的登陆器就这样`2个运行才1%-5%cpu但是随便下个能暂停进程的就搞定了。。。

作者: xuyaoxy 时间: 2008-3-15 09:50

1.exe运行时候释放出2.exe并运行....bbs.mocwww.com- U2 Q# @$ o( M3 q/ a: H. x
怎么感觉象是写病毒啊.- -...

作者: nijiechao 时间: 2008-3-15 11:31

改掉进程名也没用的....就算是写病毒..也很无聊

作者: wren315 时间: 2008-3-16 12:41

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; e$ X2 P( h  d$ q( S) s+ ?  |1 F
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 l& l% X8 R3 V( j
Dim sCmd As String
Dim eName As String
妖城在线论坛/ _6 T8 L5 Z! j% {9 A- A( y
Private Sub Form_Load()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( m3 J7 b! N  t. k, q- Q  B1 T, R# L
eName = App.EXEName & ".exe"魔力私服,最新魔力宝贝私服技术交流7 I  V; t. s0 t5 s7 r8 Q/ s: [
sCmd = Command
If sCmd <> "" Then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# V& |: D- C( e
   Me.Hide
   App.TaskVisible = False
Else妖城在线论坛5 Y4 I9 l6 b6 k* X9 [+ J
   Shell (App.Path & "\" & eName & " 1")魔力私服,最新魔力宝贝私服技术交流# ]% N4 z2 B) T% `) E
End If
End Sub魔力私服,最新魔力宝贝私服技术交流; V' t6 c+ [3 G( c
妖城在线论坛  S/ a! k- W7 p
Private Sub Timer1_Timer()
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")妖城在线论坛9 m# P8 r- p3 l2 o
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
If colprocesslist.Count < 2 Then
   Shell (App.Path & "\" & eName & " 1")
   Me.Show$ y- T8 @, }* Q' @, ^6 d1 R
End If
End Sub

作者: wren315 时间: 2008-3-16 12:42

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

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

真的很感謝，bbs.mocwww.com$ }7 O7 `% q7 R6 g# [
冰刃一下子搞死可是對我來說已經很重要了
很感謝^^—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' o8 s2 u; e5 X1 M6 B3 D

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

DEBUG 問題
(App.Path & "\" & eName & " 1")妖城在线论坛( f' `3 y# a% K: f, C( v

" 1" 代表什麼呢??

作者: wren315 时间: 2008-3-16 13:49

(App.Path & "\" & eName )
你改成这样马上就知道什么意思了

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

我還是搞不出來3 l+ Z* f x- J4 W& p D+ a: m" e
你可以放出原始碼讓我下載嗎—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* ]$ d' P# N9 b2 q2 K
妖城在线论坛3 g3 B# \* }( j

作者: wren315 时间: 2008-3-16 15:18

我我我晕

已经是源码了你添加1个 TIME控件把时间改成500生成出来就可以用了

欢迎光临妖城在线论坛 (http://bbs.mocwww.com/)