Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 H S8 h( u. t4 ]' |! ]9 f _& R. s; v! H
: o4 \8 [; _& G! k# ^! Y! A* G3 |: GDim sCmd As String
! I& E! v6 G$ `) ?6 e. u" e% [魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Dim eName As String妖城在线论坛1 q7 W/ w( [9 u8 V+ {7 q1 b; f
+ Z6 x/ k3 ], G/ |' y& O, h
Private Sub Form_Load()
& m0 B; B7 K% ?" y& t8 S$ _bbs.mocwww.com eName = App.EXEName & ".exe"
: S: V8 m6 w: A6 b1 q- Y—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート sCmd = Command魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! L3 ?* B/ U; _
If sCmd <> "" Then
2 [. @8 O5 s3 r2 [魔力私服,最新魔力宝贝私服技术交流 Me.Hide
: b& }. N$ H/ P% H妖城在线论坛 App.TaskVisible = False妖城在线论坛6 m% W$ [7 n) b3 q8 n& @" d
Else
% n' f5 x$ o' j6 B Shell (App.Path & "\" & eName & " 1")妖城在线论坛9 [% G2 [! Q. f G* B t6 D3 `
End If7 ]2 a2 r' B' T4 U
End Sub; F- p7 g( N5 H$ b" F6 M
bbs.mocwww.com+ r, u0 z, k- [2 f$ ~8 i
Private Sub Timer1_Timer()魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: Q1 Q4 C- Z2 A) [3 }( E
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 M; A$ k) ^6 L5 i9 R7 c
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
+ D. F! W7 h! j$ e P1 \2 A—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート If colprocesslist.Count < 2 Then魔力私服,最新魔力宝贝私服技术交流+ y( R/ T5 w* j6 f) p: E8 L/ K
Shell (App.Path & "\" & eName & " 1")
5 i# i7 L6 n* j9 T% _bbs.mocwww.com Me.Show
/ t8 k/ p: |3 ` b& ^5 tbbs.mocwww.com End If
' H7 c4 [/ X6 I( {$ @! t) l8 kbbs.mocwww.comEnd Sub