Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long妖城在线论坛0 R# n8 h: z# f; \8 G. c
妖城在线论坛 ]2 X# `$ O7 m# l6 N% @* w, X! D4 B0 v
Dim sCmd As String
: G: F. Y0 @8 S$ ]2 \5 j—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートDim eName As String
) z) A& s5 }: e* Q5 S/ X- q魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 Z( p* ]5 \9 Z4 e n: U
Private Sub Form_Load()# C. d. F9 K! t, p
eName = App.EXEName & ".exe"
: S/ r s6 r$ D3 M" b魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 sCmd = Command" I: I, Y. F7 r! Y u: b
If sCmd <> "" Then
& Y4 e( x/ y. g; p s5 `/ p8 [魔力私服,最新魔力宝贝私服技术交流 Me.Hide
" k2 v/ H; e3 |: C" i& h魔力私服,最新魔力宝贝私服技术交流 App.TaskVisible = False
- U) ~ M4 m8 K( S9 b魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Else魔力私服,最新魔力宝贝私服技术交流& `: I. N' w& O" _
Shell (App.Path & "\" & eName & " 1")2 r; I( }" U+ [6 e% i- y
End If—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" o* i- f8 i. P/ l5 c G
End Sub% I2 e7 }& M1 z4 {# u
5 `# V7 Q7 x! y- c/ ?( r3 D" J' ~. kbbs.mocwww.comPrivate Sub Timer1_Timer()
/ _9 ]! s9 {% S9 Q7 C" W- V妖城在线论坛 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 g9 E; W+ B/ I$ T( d
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")魔力私服,最新魔力宝贝私服技术交流4 K0 n6 I0 u4 k$ s& B: v7 W. Y! F
If colprocesslist.Count < 2 Then
! ^+ |3 {$ o' Z4 R" wbbs.mocwww.com Shell (App.Path & "\" & eName & " 1")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 C6 ^ X+ j% L
Me.Show
' {, o7 H9 G' q/ G7 ?bbs.mocwww.com End If魔力私服,最新魔力宝贝私服技术交流+ \; l. Q& }, U8 R
End Sub
