发新话题
打印

[提问] 制作登录器问题

制作登录器问题

在加载工程的时候发现有这样的一段话
  T* }: w  f$ |/ s魔力私服,最新魔力宝贝私服技术交流1 y' ~% K. C% \
'    cgCount = 0
) X/ C, S9 Z* x# m6 y; Q' c魔力私服,最新魔力宝贝私服技术交流'    EnumWindows AddressOf EnumWindowsProc, Val(StartCG.Tag)
  I3 J/ d3 ^2 A妖城在线论坛'    If cgCount >= 2 Thenbbs.mocwww.com1 ?: Q0 G9 `& s/ u
'        MsgBox "抱歉!最多只能双开!"妖城在线论坛' c$ m% R, N8 S1 m/ A- M: v$ s' v
'        Exit Sub—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 q' L3 w; P& V9 \: L1 n
'    End If
5 ^% f1 a8 L% Y  j/ C
1 M2 w4 E+ u/ Y$ x( \+ r. t, r6 }7 G. [/ @魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表不知道  红色部分该这么写,求高手帮忙分析一下妖城在线论坛  y7 W2 N$ X) M- j* }! }- Q

- x$ T$ U/ ]* e' x0 e魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表刚才在编程里不能发帖,点击新帖时电脑自动重启,郁闷bbs.mocwww.com( r# f" k  {8 ]" L: X) X

* l2 Q4 Q" V$ {. ^: \7 f7 K: S—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート所以在这里发贴,老大不会介意吧

TOP

没有人能帮我解答吗?
. Q4 r# X- i. _9 C! A7 j# ]妖城在线论坛bbs.mocwww.com! l0 Y# y, p$ {; I1 `5 [2 I, _
自己坐沙发,自己顶自己妖城在线论坛0 t  s  J/ W3 e" U

TOP

那我这段语句 让他运行该设置成什么样的函数?妖城在线论坛+ d; G0 X3 c- I, Z, {& M4 k* }
bbs.mocwww.com$ [8 Z* T2 d& [8 e0 ^4 V2 l
bbs.mocwww.com8 A9 E' Q% E" _6 c9 V+ b6 O4 M

TOP

Private Sub Command3_Click()
4 ]& ^/ |. e9 X- \5 E: s—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート妖城在线论坛  m! U' g; m# f. ~
Dim file As String, para As String
- h6 Y1 V6 J% mbbs.mocwww.com妖城在线论坛: m. b* G+ ]6 ~! \
是这个吗

TOP

难道说,红色部分是启动CG的文件名?

TOP

'    Timer1.Interval = 10000
* v& p5 f; L& ]1 m" @$ L( t—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'    Timer1.Enabled = True
/ w% E+ p, s! x5 k—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'    StartCG.Enabled = True
5 |) E& }3 K& r* y4 h' u) o'
9 Y/ C- d6 ?5 e3 f0 }6 [妖城在线论坛'    cgCount = 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& l7 }5 r- t5 X
'    EnumWindows AddressOf EnumWindowsProc, 0
( w5 g, i5 g* O妖城在线论坛'    If cgCount >= 2 Then
( r# N6 G2 S( Y2 }'        StartCG.Tag = "-1"      '
6 F$ \, b7 f: h. I! s'        StartCG.Enabled = False. Z( W! e' m* e" ?
'        StartCG.Caption = "超开限制"
& I" v7 d6 |" |2 A1 t: ]% h魔力私服,最新魔力宝贝私服技术交流'
7 _1 a0 @9 o  G+ U& Rbbs.mocwww.com'        If App.PrevInstance = True Then
1 q6 c, W5 @7 f" d+ d6 kbbs.mocwww.com'        MsgBox "最多只能两开!"
2 k; B  F0 q" Q2 m6 {'        End—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 g4 o4 w( m. w0 @
'        End Ifbbs.mocwww.com0 \% e( O: ^* z7 r& W$ K6 Z% G, \
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 U5 w- A6 q! i" \# G, t7 f
妖城在线论坛% Z4 t# K  W! x8 [
只找到一个跟这个相同的

TOP

感谢LS的帮助
9 ]* B) _& I" _+ q魔力私服,最新魔力宝贝私服技术交流

TOP

发新话题