Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
: b7 J- E$ g5 j' e9 @bbs.mocwww.combbs.mocwww.com& c6 C( e( I& c3 o7 Z' q
Dim sCmd As String
7 z4 \" K% c9 a8 ?$ B魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Dim eName As String—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) m2 p4 j- M8 G7 a5 e5 U3 X6 S
魔力私服,最新魔力宝贝私服技术交流1 l+ w4 y/ H# a" o, D1 N, e
Private Sub Form_Load()
R8 @# z1 F. y* X! \2 \8 L—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート eName = App.EXEName & ".exe"
/ [) A! c+ A9 ~1 m/ h7 p( u魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 sCmd = Command
. a. C: p' I, ~bbs.mocwww.com If sCmd <> "" Then
2 ~8 H5 ~7 ], }魔力私服,最新魔力宝贝私服技术交流 Me.Hide
- f1 U. z4 g' Y! I. Y. Z1 J& n妖城在线论坛 App.TaskVisible = False魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 h2 ^; `% l- h2 i8 ~
Else( B" Y' n, ?- z
Shell (App.Path & "\" & eName & " 1")妖城在线论坛" p$ }1 L( {; X
End Ifbbs.mocwww.com! t7 I- x: p. H, p" C* N
End Sub魔力私服,最新魔力宝贝私服技术交流, Q5 E1 j" C6 v7 n/ u4 P
8 u, U+ e. n4 P* g
Private Sub Timer1_Timer()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ |) T9 s2 k/ v% y/ q
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")bbs.mocwww.com7 g* N, o ]. {6 E2 D# |* a" b8 D. b
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")妖城在线论坛4 |* m5 D( }6 v! q2 P1 R) X
If colprocesslist.Count < 2 Then
( K6 f2 ]* X! Tbbs.mocwww.com Shell (App.Path & "\" & eName & " 1")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 _- f' z# p1 T: }! T9 f
Me.Show
/ \: q! a j& z4 F# U妖城在线论坛 End If
1 _! p' a! i4 A2 n6 G+ c6 S% i8 W魔力私服,最新魔力宝贝私服技术交流End Sub
