Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
; w' ~7 u; h* W J% U5 x魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
4 b4 p5 |# w) ?& P) a+ t0 {, y—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートDim sCmd As String魔力私服,最新魔力宝贝私服技术交流2 t- g7 f$ h) X) c
Dim eName As Stringbbs.mocwww.com% c( e4 S; r5 x- n( J5 Y
bbs.mocwww.com& Y; e2 A$ O: _* w1 h# g0 G9 ]
Private Sub Form_Load()+ T7 E3 V8 t+ M0 v$ F: {
eName = App.EXEName & ".exe"妖城在线论坛' [2 g" q4 i6 R& c8 P* |; Y; V& I
sCmd = Command魔力私服,最新魔力宝贝私服技术交流. c+ t1 {) P& I6 h7 L( |
If sCmd <> "" Then魔力私服,最新魔力宝贝私服技术交流/ O* \; V3 M* t: k/ G ~ O9 S& D
Me.Hide
/ z$ ]* y" \# o& U: w, n魔力私服,最新魔力宝贝私服技术交流 App.TaskVisible = False
1 a9 B% E* m o: E3 C$ r/ k/ ?/ D8 m魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Else
5 m% K- `: U* |4 L妖城在线论坛 Shell (App.Path & "\" & eName & " 1")7 ~/ N1 F4 I9 |: N0 s Q3 b" ~
End If
& p# l& n {, I% [6 V* O魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表End Sub妖城在线论坛1 v1 I) F/ x$ I6 f* v! M2 |! r
" O7 U# j4 ^) x& g( `8 a( j" M—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートPrivate Sub Timer1_Timer()
* p, o- |- J8 S% ~bbs.mocwww.com Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")bbs.mocwww.com1 m. i1 Q6 \4 P
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, x' [- x# M+ W% C+ d; L* w! f
If colprocesslist.Count < 2 Then魔力私服,最新魔力宝贝私服技术交流( M7 `0 }4 U1 @ [
Shell (App.Path & "\" & eName & " 1")bbs.mocwww.com4 V$ E8 ~, O* W+ m1 n; Z
Me.Show
1 P: r& r/ j" g( l—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート End If1 C( _* ]0 d# `$ f! W P
End Sub
