Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
% U) t& h% K, k6 F0 _/ U—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
' t, a- s* _' I$ p a# q妖城在线论坛Dim sCmd As String
. z- K4 I" P2 l6 A—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートDim eName As String魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ [; O0 g! @$ ]1 f7 v9 f9 E2 c% e. {
. _$ k# V8 Z: z: u; g: W# R
Private Sub Form_Load()
! L: u# g/ G9 {$ Zbbs.mocwww.com eName = App.EXEName & ".exe"
% y7 p! [& V2 l. U- \# T0 h! P妖城在线论坛 sCmd = Command
: d1 l h! w1 m% T- S# cbbs.mocwww.com If sCmd <> "" Thenbbs.mocwww.com( c- ~8 \# D- _+ A+ l& s+ }
Me.Hide
! ^$ k3 X2 f: ?. \6 S9 ~9 r—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート App.TaskVisible = False妖城在线论坛* Y" _) p( \2 N1 x z
Else
4 r- K" g! o) D* _4 |bbs.mocwww.com Shell (App.Path & "\" & eName & " 1")bbs.mocwww.com/ T$ t% p, @- D
End If
' a9 _8 ^$ `: E妖城在线论坛End Sub妖城在线论坛7 a7 y, J! c: o0 Z
9 |0 A# x3 ~, e& KPrivate Sub Timer1_Timer()% W. }# a {5 _
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")妖城在线论坛) ?' S! A) E( t( [
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")bbs.mocwww.com% g( T0 C) n* D& A3 W* l0 e( g- ?
If colprocesslist.Count < 2 Then
( D; P( Y4 E2 @4 u& \6 J, U) p2 O魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Shell (App.Path & "\" & eName & " 1")4 k* a* c6 H6 F1 O, z
Me.Show魔力私服,最新魔力宝贝私服技术交流9 W2 a. U _: s0 M o! W
End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; V( f' N9 {5 i( T8 o: m
End Sub
