Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
1 z/ T0 z1 V0 B8 ]魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 T. c( S0 e' t
Dim sCmd As String妖城在线论坛- y1 r" s7 g, Y' m) u! D4 k
Dim eName As String
' P' N/ J, B2 x$ h+ B+ X( D—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート妖城在线论坛6 _: x9 N+ J+ N" m
Private Sub Form_Load()
* e; m/ l1 ~# g) n$ y魔力私服,最新魔力宝贝私服技术交流 eName = App.EXEName & ".exe"
5 I" ^7 K3 h* @; m7 J魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 sCmd = Command
4 y" F' ?5 d; R3 J7 w妖城在线论坛 If sCmd <> "" Then
8 X# ?5 A' J. e: V& q1 p魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Me.Hide魔力私服,最新魔力宝贝私服技术交流# I4 @/ E( s. P' i; N2 ] l
App.TaskVisible = False妖城在线论坛1 T8 z" I6 b# L8 J u0 j& _
Else1 y6 {, S& q$ A4 M( u% s+ s
Shell (App.Path & "\" & eName & " 1")
1 B5 n9 j( @# {+ P2 u/ S: y魔力私服,最新魔力宝贝私服技术交流 End If
l3 G5 t% g2 p$ c$ s2 l0 ?bbs.mocwww.comEnd Sub—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 B+ i( z) y/ e9 F
bbs.mocwww.com; J6 W/ r3 _; \, [
Private Sub Timer1_Timer()9 z! o1 Y, B; \5 w1 Q4 Y" k4 }
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 E. X/ E" B- ~) C
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
3 \ d1 U: V* u/ h9 e—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート If colprocesslist.Count < 2 Then
, |$ m$ h$ R+ }8 C$ Y妖城在线论坛 Shell (App.Path & "\" & eName & " 1")
8 g" ?8 f8 f" d) D6 \6 qbbs.mocwww.com Me.Show
" L3 _9 t4 k& J0 Z! J. q, f魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 End If
" x* P v" C8 Y+ {, x魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表End Sub
