Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
# O+ G* G; K6 Y, l魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
" T; K) T; B+ _5 ]+ x妖城在线论坛Dim sCmd As String
8 \' {2 F5 O, d5 p# J% _魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Dim eName As String
: Q' o* I( d2 [$ x& W魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
5 c, @1 f0 i7 C9 bbbs.mocwww.comPrivate Sub Form_Load()
2 c/ O1 c) p, D1 E7 V eName = App.EXEName & ".exe"
. M0 u: {9 ~2 [7 z- V8 W—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート sCmd = Command魔力私服,最新魔力宝贝私服技术交流( X4 O8 b& R( Y: s- u) v5 `
If sCmd <> "" Then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ w7 I) X6 M0 ^5 g0 R
Me.Hide
* p7 M0 O1 @, @' d1 L App.TaskVisible = False
H: j- I0 j9 b% _4 u妖城在线论坛 Else
% l2 A8 E9 H' n; S! g# }妖城在线论坛 Shell (App.Path & "\" & eName & " 1")
1 h0 r3 I: L" }( a魔力私服,最新魔力宝贝私服技术交流 End If
) X4 C1 ?: x3 ]—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートEnd Sub
# B$ p% `- \( ^8 v魔力私服,最新魔力宝贝私服技术交流+ D1 |& E/ D8 A3 Z% d9 k0 w
Private Sub Timer1_Timer()* S5 F/ A. z& T @7 l. D
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
5 w @- g8 Y$ X& T9 ?5 b9 p( b魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: M9 M& k1 H: U; w8 o/ h, G" P
If colprocesslist.Count < 2 Thenbbs.mocwww.com& l7 ~6 Z3 W: c8 ?. W" J
Shell (App.Path & "\" & eName & " 1")
y( d8 I, z/ W X1 L) Z5 C4 l妖城在线论坛 Me.Show
; [# Y6 g/ g5 e p1 o0 i7 dbbs.mocwww.com End Ifbbs.mocwww.com+ r% Z! X2 L) A. ~9 c0 q6 ]# h7 g4 O( {
End Sub
