Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long魔力私服,最新魔力宝贝私服技术交流( e, p5 T+ Z6 e; X6 d
$ O4 ?, i) z, u0 f. g魔力私服,最新魔力宝贝私服技术交流Dim sCmd As String妖城在线论坛$ o& P A* s1 D/ D
Dim eName As String
! b1 H% R7 r7 ?& a魔力私服,最新魔力宝贝私服技术交流妖城在线论坛: L0 I9 [! o. J; K$ S$ r [8 f9 ^
Private Sub Form_Load()
2 r1 m: e$ F! ~+ }2 l& Lbbs.mocwww.com eName = App.EXEName & ".exe"
' r0 d( c) `" \1 ^' v8 M6 B! ?bbs.mocwww.com sCmd = Command
% [: T$ X* l5 l魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 If sCmd <> "" Then
- n. W' J7 x; M, N0 a- b Me.Hide魔力私服,最新魔力宝贝私服技术交流$ @8 M' N" q) P7 a4 o
App.TaskVisible = False
% D# E( E: q' C; R+ |- g" g Else
' W/ y/ ^& l1 k5 q; h魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Shell (App.Path & "\" & eName & " 1")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( M" s- l0 F; P, X9 R) ^
End If
* ^4 H+ l' ^8 y9 n5 ibbs.mocwww.comEnd Sub
: u3 o P e* J% {- D: {2 j魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
k2 F" j$ T9 B. G5 Q妖城在线论坛Private Sub Timer1_Timer()7 L* }- F: B( o
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")bbs.mocwww.com+ ?- a- v& Z7 v3 b; |8 K& s" w5 m
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")bbs.mocwww.com5 d v3 g+ M4 f2 G# I/ p( i
If colprocesslist.Count < 2 Then妖城在线论坛8 R2 s+ x! S3 n2 }( U* M
Shell (App.Path & "\" & eName & " 1")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# O4 z; i Y9 V2 k
Me.Show
+ a( r5 i, k' U妖城在线论坛 End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, P! q* v- Q3 V( H: t
End Sub
