Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- Y( g$ `6 Q, }; M$ N3 ^0 k8 L( _& V5 Y0 i
+ e5 x& K/ n0 h1 N! Q! obbs.mocwww.comDim sCmd As String魔力私服,最新魔力宝贝私服技术交流7 F" |( r; B5 @7 |4 I
Dim eName As String—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# b: l ?. g2 Q/ `9 F
. v7 ~9 H5 y! F: y妖城在线论坛Private Sub Form_Load()
( B5 \4 W+ X3 y% Y- u$ T魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 eName = App.EXEName & ".exe" Z5 o2 K+ ^, I( Z8 G
sCmd = Command
( T9 e$ S6 F+ F! u+ W If sCmd <> "" Then
8 t2 A' T2 f+ O9 C: \9 l7 A魔力私服,最新魔力宝贝私服技术交流 Me.Hide
3 q4 L' `; K. M' x Q4 k1 S% W& r8 a U魔力私服,最新魔力宝贝私服技术交流 App.TaskVisible = Falsebbs.mocwww.com7 [6 s3 f1 Y4 i: _! ~0 `! C
Else魔力私服,最新魔力宝贝私服技术交流- G; ?( Z& u6 Q+ m
Shell (App.Path & "\" & eName & " 1")魔力私服,最新魔力宝贝私服技术交流2 N& s8 P0 @5 B+ P3 t9 U; S
End If妖城在线论坛; ~1 j8 e! }" o& x- M5 F
End Sub—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: ~9 @- M/ N% |( \( Z: I
# v' Z) f1 f$ J妖城在线论坛Private Sub Timer1_Timer()
+ ~. a' v# E) Y& k N Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
* o8 z# D [$ f2 g: T魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & eName & "'")
7 H! v/ U: i' }9 a+ Wbbs.mocwww.com If colprocesslist.Count < 2 Then
+ {; J+ _$ d( n2 X: P4 X妖城在线论坛 Shell (App.Path & "\" & eName & " 1")! o$ ^4 Y. p- a$ M
Me.Show魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# T) ]+ c7 P' n C
End If魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: v2 g% L# v. u" N3 r; _3 E
End Sub
