Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ b6 @7 q/ `, E. B+ B! w' c
7 j+ D( }0 F0 I+ U7 ^
Dim sCmd As String8 f) n/ s* }2 M4 g; I
Dim eName As String妖城在线论坛, c4 `, O R7 z+ @8 W( ^! R
1 g, Y6 \) S7 }魔力私服,最新魔力宝贝私服技术交流Private Sub Form_Load()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) j# Q6 ]' i/ E4 ^" U5 l$ R" S) W
eName = App.EXEName & ".exe"
8 J" M& z" ?# gbbs.mocwww.com sCmd = Command—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 M% [! @2 X9 [- u9 T
If sCmd <> "" Then
0 F1 W6 w$ L9 ~+ i* k' j( y魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Me.Hide妖城在线论坛6 p3 a0 F; t& [* x2 R3 c
App.TaskVisible = False
4 q% W. G; E% Z/ E$ Y0 j" R魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Else魔力私服,最新魔力宝贝私服技术交流& b: D- ]5 r* a2 c/ ?% o- H
Shell (App.Path & "\" & eName & " 1")
( O0 ?: Z" R. u4 e' i8 E—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート End Ifbbs.mocwww.com& |# n8 @ }- }# o# L
End Sub
?# l0 L, Z. j p' B魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
: x% o/ P2 } F! g+ c* z" r妖城在线论坛Private Sub Timer1_Timer()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# G/ i5 Y6 }. r
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
: O) e4 _5 F; x, }( E0 c7 F9 b! M魔力私服,最新魔力宝贝私服技术交流 Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")魔力私服,最新魔力宝贝私服技术交流5 ]7 H( _$ @1 q; C1 P/ C! \
If colprocesslist.Count < 2 Then
- u. V4 [: m" _0 k3 C' S) n4 | Shell (App.Path & "\" & eName & " 1")
( T3 s0 g0 J* `- ?) I2 x妖城在线论坛 Me.Show
. n! S5 k1 z0 z/ d) c) t, P6 K End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 M& b2 C, G) f6 Q( R# W
End Sub
