Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
7 ~( B3 S) [( I5 `" F妖城在线论坛
6 @/ u1 U$ \& p3 t3 D; vDim sCmd As String妖城在线论坛+ D: @) h& ]4 k# g6 M( N; a6 S/ {
Dim eName As String妖城在线论坛$ u/ W7 m( d4 L5 U) G4 d
, n7 H* O; y! y6 dPrivate Sub Form_Load()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% d2 _( I3 \ }5 {
eName = App.EXEName & ".exe"妖城在线论坛1 _1 {# l: d. d1 s4 J
sCmd = Command
! ~6 m4 @, E8 k! w7 ]魔力私服,最新魔力宝贝私服技术交流 If sCmd <> "" Then
6 t4 e0 W! C3 R1 C& A, N魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Me.Hide
1 o5 ?$ C6 O N妖城在线论坛 App.TaskVisible = False
/ O6 \' |$ S$ `/ [5 U' a$ U7 @魔力私服,最新魔力宝贝私服技术交流 Else
, E! N# y4 T- W. D, B; e Shell (App.Path & "\" & eName & " 1")8 D8 I$ @" x, A
End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. U$ k' M6 l! K v- w
End Sub
6 |. ]! v7 c8 E# M4 f2 h2 K魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 M" k8 B# _( E" L2 n) \# L
Private Sub Timer1_Timer()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, X# U1 T5 j- x0 H: k. H7 U" ^7 L
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 `7 o$ a3 e/ R/ E; I I! E% [
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")妖城在线论坛7 g9 }' \. U C ?9 s Z7 d) E
If colprocesslist.Count < 2 Then
7 e8 D! k5 q3 x—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Shell (App.Path & "\" & eName & " 1")
: c2 f, ]0 r5 R. c7 o9 m" y% Kbbs.mocwww.com Me.Show魔力私服,最新魔力宝贝私服技术交流 G1 e1 p L, }' W" k: O, M& ?
End If
1 g; x: w0 n6 P$ p6 U- yEnd Sub
