Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long妖城在线论坛7 u8 i' x" ~3 c! {$ {
bbs.mocwww.com1 C" ~+ i0 u* a! t- e: r- V) e. H
Dim sCmd As String妖城在线论坛9 X0 t# ~4 I; P% D
Dim eName As String
' v2 e$ l1 i! t, x) \' l- X. T妖城在线论坛
2 x+ A, ^* ?; Q9 X, m—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートPrivate Sub Form_Load()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! @) D4 i5 V* { Y
eName = App.EXEName & ".exe"
+ G) M7 H0 y) M—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート sCmd = Command
$ R' V% s: c+ @7 i) D. s; g2 o6 Z If sCmd <> "" Then
7 I* m0 F5 z+ }/ T& o9 |! qbbs.mocwww.com Me.Hide魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& X* \% v. Y; q4 W6 W' B
App.TaskVisible = False
* C. Y) Z0 [( K+ Zbbs.mocwww.com Else; ?! B* S9 b. s- ]2 S e
Shell (App.Path & "\" & eName & " 1")
3 u' p J) a: `! m' Z& a$ S妖城在线论坛 End If+ C$ e @) ^. Q
End Sub
' l2 a6 ^3 o8 T nbbs.mocwww.com
$ Y, X# K. L) T$ U* W1 U: u7 o魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Private Sub Timer1_Timer()魔力私服,最新魔力宝贝私服技术交流. p/ H1 _! V& h* D
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")妖城在线论坛: _, }! z$ ~2 q* {/ ^/ j- U. @+ u
Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 x2 y: U( |+ f* B# z+ @
If colprocesslist.Count < 2 Then魔力私服,最新魔力宝贝私服技术交流: u$ j# J$ m8 x8 R1 x# H! Z8 u% n
Shell (App.Path & "\" & eName & " 1")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 |6 D% e; b# q0 G
Me.Show
6 j2 g1 N0 u% V1 P$ l End If
/ X% G; A4 B$ F4 I# r妖城在线论坛End Sub
