Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long魔力私服,最新魔力宝贝私服技术交流% M4 C& J# G0 c. a( t# L
% r4 _+ X6 }" v; Y7 r/ P9 m—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートDim sCmd As String
7 ? ]( O4 X8 p- h- V7 f魔力私服,最新魔力宝贝私服技术交流Dim eName As String6 N" l) p- w+ o2 F! v* w( x& K
4 z/ J% }" k& q& \# K魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Private Sub Form_Load()
$ j: d& l) F* e魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 eName = App.EXEName & ".exe"bbs.mocwww.com% `+ |/ z7 T/ L- ?
sCmd = Command妖城在线论坛: l4 I0 F0 f0 p
If sCmd <> "" Then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& {5 C$ s, q$ }6 e
Me.Hide
0 K7 F1 F+ c1 z) C5 O# z) b: u# r9 Q- F: X魔力私服,最新魔力宝贝私服技术交流 App.TaskVisible = False
/ z- M0 L) P ?8 [: G. {3 U: _5 K Else
4 t, E( Q, f5 @) J% Q% p4 O: d: U6 l- n# zbbs.mocwww.com Shell (App.Path & "\" & eName & " 1")
" t3 V% s& a4 A- e9 j" A1 |—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート End If
; S% S6 V9 Q7 x6 _4 P0 i魔力私服,最新魔力宝贝私服技术交流End Sub
0 |: ~2 O, d u7 E6 L5 b. W: u- mbbs.mocwww.com魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 ` @, z* S/ `) [5 H9 x
Private Sub Timer1_Timer()
; @: Y/ }& C; } r% ^—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
6 _, w. W5 L$ F# F+ p) kbbs.mocwww.com Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")bbs.mocwww.com. B8 T$ L9 R' r: }+ Y) e
If colprocesslist.Count < 2 Then魔力私服,最新魔力宝贝私服技术交流* w+ t, R- n2 L2 ]& ?
Shell (App.Path & "\" & eName & " 1")
! @& X( U0 e4 y& V2 D$ F4 M& K妖城在线论坛 Me.Show
. j) j' S& R. R- ^$ q( D) ^妖城在线论坛 End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 V/ p9 @$ h9 c. j7 ~8 I
End Sub
