Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long妖城在线论坛1 z* y6 p1 y) S/ Q/ }; B V H
8 w9 g8 r7 C, J1 n$ Z. P
Dim sCmd As String
O/ P, b) G3 k' t8 ^" E3 gbbs.mocwww.comDim eName As String魔力私服,最新魔力宝贝私服技术交流2 i( x( \: v a/ U* }3 k
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" l2 H0 N; r8 m1 P( f; ~' W' Y' P
Private Sub Form_Load()魔力私服,最新魔力宝贝私服技术交流 K# _; Z& |2 e" m) L8 e' O1 n
eName = App.EXEName & ".exe"魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* x) Q8 k6 g% V( e' `% [2 `
sCmd = Command
5 i# Q* S+ u- Q& o1 u魔力私服,最新魔力宝贝私服技术交流 If sCmd <> "" Then
8 x5 e* G2 m" P& x2 a7 U妖城在线论坛 Me.Hide
. R( H. ]( [1 p9 k1 B App.TaskVisible = False妖城在线论坛8 ~$ q- K4 \9 X
Else妖城在线论坛- B6 `. Y3 \- ~3 p% I* p+ k
Shell (App.Path & "\" & eName & " 1")
% z5 L$ a* b- d7 ~; x6 j: R妖城在线论坛 End If
, v0 ]8 u9 w0 q魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表End Sub1 m. B6 i; Y$ C0 }- i* A& h
7 U' I4 O8 H% @6 Y9 h; z) X' z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートPrivate Sub Timer1_Timer()
8 ^" h: R3 d' W; r魔力私服,最新魔力宝贝私服技术交流 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
2 p( U- X7 f4 ~1 f魔力私服,最新魔力宝贝私服技术交流 Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
+ R. o; y- j, O/ L j妖城在线论坛 If colprocesslist.Count < 2 Then
1 S) t6 i. b0 F魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Shell (App.Path & "\" & eName & " 1")妖城在线论坛! e( a& l' R( G" g" o9 W
Me.Show—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ P: G5 w" V+ I% e+ Z
End If
) P: m4 q0 q" w3 P1 b妖城在线论坛End Sub