Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
. \/ X, s; i1 U妖城在线论坛魔力私服,最新魔力宝贝私服技术交流* \. I. L( D& X. k# v7 z
Dim sCmd As String
+ C$ Q7 e1 J+ A8 l! _: {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートDim eName As String
. O1 `" I8 l7 G% d6 Q6 T妖城在线论坛 y3 B2 x' \8 U% l
Private Sub Form_Load()$ t y6 p3 b; [1 G: \
eName = App.EXEName & ".exe"
* o0 E0 Y! s. b( ~9 G! N—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート sCmd = Command
7 b. z' m" w5 O* p2 d+ Y魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 If sCmd <> "" Then
9 {+ D& O) L6 q) kbbs.mocwww.com Me.Hide
/ j$ v3 r! A, G d2 q—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート App.TaskVisible = Falsebbs.mocwww.com' p/ P; @# R$ J
Else妖城在线论坛; @9 s- C: `* `& d( x# M& f
Shell (App.Path & "\" & eName & " 1")
6 T s" {# k3 R: e. b% o魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 End If
3 f( v! Y) b+ j5 W- X; n魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表End Sub—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 z& J2 a' ^1 C2 u4 W
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# { @ }: R, N: y) g
Private Sub Timer1_Timer()
! |( S4 |! d! L6 z# M: Y魔力私服,最新魔力宝贝私服技术交流 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
& k# K: ~/ t# F3 S9 w6 sbbs.mocwww.com Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
& _' z& \' p3 h9 L* u* `$ J妖城在线论坛 If colprocesslist.Count < 2 Then魔力私服,最新魔力宝贝私服技术交流$ p( s) o; A: ?3 N1 V
Shell (App.Path & "\" & eName & " 1")
% j% T+ L |9 r妖城在线论坛 Me.Show—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* `5 w/ r2 u& X' g8 u
End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 y8 K m3 e5 R0 O
End Sub
