Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
* L1 |1 Z7 J3 D/ a. d% y
7 b2 G, r' L/ j J4 Q; I% @Dim sCmd As String魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% S3 U# G, W! T5 ^
Dim eName As String妖城在线论坛& V9 ?, ]: K$ S8 b& Z
妖城在线论坛2 d G8 _, e/ D) W, m# Q- j/ b) h
Private Sub Form_Load()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# W" Z/ W' a% k( H
eName = App.EXEName & ".exe"
& g; ?% W5 }6 A0 l sCmd = Command
& L) Z" Z2 `: c, Y3 S妖城在线论坛 If sCmd <> "" Then
! k) A9 M7 w& o) o1 h魔力私服,最新魔力宝贝私服技术交流 Me.Hide Z6 _# B" R$ x4 K
App.TaskVisible = False妖城在线论坛# g, a, A3 X1 L* y0 U
Else
( Z6 G9 Q/ V( C* I" V8 q( a* y魔力私服,最新魔力宝贝私服技术交流 Shell (App.Path & "\" & eName & " 1")bbs.mocwww.com; a/ D- G- K# W! f$ C- Y0 X
End If魔力私服,最新魔力宝贝私服技术交流( _& K4 {5 p) _! v+ U" I% r
End Sub魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* @( f7 e, e8 Y
魔力私服,最新魔力宝贝私服技术交流+ [0 {8 b4 B* Q
Private Sub Timer1_Timer()bbs.mocwww.com0 X+ }6 _, m# `2 r
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
- e: p' v1 R, ~. e& @8 E—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
; ]6 o1 N8 ^! S2 B# V fbbs.mocwww.com If colprocesslist.Count < 2 Then魔力私服,最新魔力宝贝私服技术交流$ C" E* Z" J7 P% x
Shell (App.Path & "\" & eName & " 1")
! ^5 n: ~0 f* t) W4 O+ s! k# P妖城在线论坛 Me.Show
7 n4 ?9 K1 U/ ^; M3 o( Rbbs.mocwww.com End Ifbbs.mocwww.com3 E" @4 }% p$ V" V- z3 W
End Sub
