Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
{! X8 [2 |# K3 v" a魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
% r! @3 ? {" r- r* S5 m* o魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Dim sCmd As String
- C) `3 D5 T0 ]; Y0 i! q& S- JDim eName As String—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 D# t3 e+ @! b
0 S+ R0 _7 E, m, w* q# h/ ?# x- X' Z妖城在线论坛Private Sub Form_Load()魔力私服,最新魔力宝贝私服技术交流1 ^0 t0 z5 Z3 m. [( W
eName = App.EXEName & ".exe"妖城在线论坛) t& u8 A8 f3 w7 D" n+ T
sCmd = Command—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" H8 [# m# {- f5 O) @8 j
If sCmd <> "" Then
O. H8 }! ?: T4 {# V—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Me.Hide魔力私服,最新魔力宝贝私服技术交流' _# t8 D: }& D3 f
App.TaskVisible = False
/ m5 b8 {2 Q9 D7 f9 X% b- D8 Qbbs.mocwww.com Else
) `; ~, [& z! M魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Shell (App.Path & "\" & eName & " 1")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# e6 W$ ?: [+ V
End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: B; @+ T# e0 R, ^& _) ?% Q+ b
End Sub
1 [3 h8 s8 H7 `2 W P3 M魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
/ V' N6 r1 L) Z* o% _1 |* H—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートPrivate Sub Timer1_Timer()
' c1 c# G2 S8 o7 M Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
1 B7 A9 E0 X/ _魔力私服,最新魔力宝贝私服技术交流 Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")魔力私服,最新魔力宝贝私服技术交流; V" w4 }" r1 s* {) V6 O/ j
If colprocesslist.Count < 2 Then
8 T* I: v* A2 f魔力私服,最新魔力宝贝私服技术交流 Shell (App.Path & "\" & eName & " 1")) u h! V! ~/ _& E0 }
Me.Show妖城在线论坛9 \8 W( h; G h) A! A! d: t
End If妖城在线论坛; H/ h5 ?* u# g- S) g; s+ C) y9 |, V @
End Sub
