Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
. |7 J" @/ S8 Q4 X8 D7 U—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
# Y* {. O, Q6 g: |1 A6 t4 l; t9 K魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Dim sCmd As String魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ j5 X0 Z: l4 k. M( K6 d) N
Dim eName As Stringbbs.mocwww.com0 ` t7 p T( u1 B4 I
/ S9 ^; s! l1 D
Private Sub Form_Load()7 }' v8 _& @/ \4 G8 \( }0 D
eName = App.EXEName & ".exe"
4 x3 L* V# g6 x/ z: i魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 sCmd = Command
; M6 i+ A: I7 w3 Z0 Cbbs.mocwww.com If sCmd <> "" Then
0 R: a2 A# K8 _妖城在线论坛 Me.Hide3 ?( ]' O" O) p
App.TaskVisible = False
1 `# M! _6 p, |9 lbbs.mocwww.com Else
9 H- n- R4 |- ^—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Shell (App.Path & "\" & eName & " 1")6 O. B3 h6 a7 [& X+ S% i
End If魔力私服,最新魔力宝贝私服技术交流! t! m# V7 v( O! _! l
End Sub
5 Q& s4 y8 g& d. Z# L魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
8 L! p# M# L. P7 X$ B4 mbbs.mocwww.comPrivate Sub Timer1_Timer()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 ]4 h1 E, A7 d! K' [) W; n' |9 v
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")妖城在线论坛4 v5 \& r9 h. M I. b2 I
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")妖城在线论坛/ L1 P+ e2 e3 ?% _
If colprocesslist.Count < 2 Then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 [3 t# [* Z/ g2 Z, z% b( M0 A
Shell (App.Path & "\" & eName & " 1")
* v& t1 \4 z9 v& y Me.Show
' t& x' G0 J( V* H& F魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 End If
t# B, h7 p7 F/ E0 Y魔力私服,最新魔力宝贝私服技术交流End Sub
