Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long8 C2 H, @1 C1 }
0 X/ V6 g: L7 K! }4 ~bbs.mocwww.comDim sCmd As String
3 K8 _/ |5 r) L2 q. H: o1 R0 H—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートDim eName As String
" h( D3 p2 u# C9 ^妖城在线论坛
" D$ ~' d% |& ~% Q7 G# H0 |bbs.mocwww.comPrivate Sub Form_Load()魔力私服,最新魔力宝贝私服技术交流$ @9 x' X- E$ v- z/ m/ l/ W
eName = App.EXEName & ".exe". A+ p- ^ k5 t( `$ v
sCmd = Command8 X. N$ ^9 l4 u& S( F& L
If sCmd <> "" Then
# l: W: F$ v, f. k: r—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Me.Hide魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 h/ g" g1 l9 H! B5 a( ^
App.TaskVisible = False
5 [: N6 u3 [1 @( l+ N) @6 `0 O7 C5 f0 N魔力私服,最新魔力宝贝私服技术交流 Else魔力私服,最新魔力宝贝私服技术交流% ?9 D4 G' W/ ?1 u5 _6 o* g
Shell (App.Path & "\" & eName & " 1")
# J( ^, x3 [! R8 s( H' V魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 End If
6 m4 Q) a) _6 A! ?' h6 {魔力私服,最新魔力宝贝私服技术交流End Sub7 i% u+ O0 H @* P. x
妖城在线论坛- s6 G. S4 G/ L; l7 `0 ~0 d
Private Sub Timer1_Timer(). `/ m$ G" X" K; C
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")魔力私服,最新魔力宝贝私服技术交流2 T7 ?$ W9 b" w! L5 Q9 _! l( J
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")妖城在线论坛& P* v! d. E( u: x
If colprocesslist.Count < 2 Then4 ?2 w9 Y' f" N( O$ O: u
Shell (App.Path & "\" & eName & " 1")
# ^" [ i8 c; g7 Y8 r2 O0 v1 ?% x- Y, l魔力私服,最新魔力宝贝私服技术交流 Me.Show
) x, U2 X$ M4 |4 W3 R$ ]! z- p7 Kbbs.mocwww.com End If魔力私服,最新魔力宝贝私服技术交流1 M( G T; a/ c1 `
End Sub
