u-know

在加载工程的时候发现有这样的一段话bbs.mocwww.com! `; |& Q9 l: |# I
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& z9 s' k+ M/ o: |6 A
'    cgCount = 0
* Y) j( Y9 B# L* E6 Q'    EnumWindows AddressOf EnumWindowsProc, Val(StartCG.Tag)
7 g& C0 K  v/ ?0 e  V! |: Z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'    If cgCount >= 2 Then
1 |$ N+ H" B2 b% f# j魔力私服,最新魔力宝贝私服技术交流'        MsgBox "抱歉!最多只能双开!"! k, e/ w$ F. K( `( V4 H
'        Exit Sub
( `. M6 A( G9 x- Mbbs.mocwww.com'    End If
4 y' O$ S! z- S+ `. j妖城在线论坛bbs.mocwww.com0 n2 B6 ^# v0 `
不知道  红色部分该这么写，求高手帮忙分析一下
& j8 V" m- V( ^+ o妖城在线论坛
7 ]7 V( p7 B3 F—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート刚才在编程里不能发帖，点击新帖时电脑自动重启，郁闷
  I! c2 P) R0 R% v3 }; ^! ?bbs.mocwww.com
  l; K) C) p4 E3 W—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート所以在这里发贴，老大不会介意吧

u-know

没有人能帮我解答吗？
- x) V9 E4 x. C0 v7 n2 Wbbs.mocwww.com
, W  w. _. }! f! r! k$ }自己坐沙发，自己顶自己
1 _' Z& U2 `" R& B

itsong

传递给回调函数“EnumWindowsProc"的值，如果你不需要传递给回调函数值，可以设置为0。

u-know

那我这段语句 让他运行该设置成什么样的函数？bbs.mocwww.com. t! K0 t5 X- E: r0 d
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 X7 X, F# i. r7 m& y5 k5 ~
- @9 h/ v8 f( y

itsong

你把你的回调函数贴出来看看。

。▂.Get.out

" v6 h; Z8 ?8 W0 |" l- e" O% `—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
# v( V6 p% P9 C* B( @$ c8 _LS还没休息额..- -..高手..

u-know

Private Sub Command3_Click()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 j* D/ `6 x5 I/ _" i2 w
- n; {/ T" p* k, |! p& M% y2 g
Dim file As String, para As String魔力私服,最新魔力宝贝私服技术交流, t  l* Q% P  @9 h- i
bbs.mocwww.com: ~: Z$ I* Z* x& M, W" W0 o
是这个吗

itsong

显然不是你所贴出的。建议你baidu搜索下别人怎么使用这个函数的。

u-know

难道说，红色部分是启动CG的文件名？

itsong

引用:

原帖由 u-know 于 2008-4-28 01:25 发表 —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% d( f( k) h. n( P4 Z- W: Z8 G
难道说，红色部分是启动CG的文件名？

魔力私服,最新魔力宝贝私服技术交流3 {0 `. m1 x9 V/ p. Y, C* y) T
具体得看你回调函数”EnumWindowsProc“的实现，才能决定那边到底该写什么。

u-know

'    Timer1.Interval = 10000魔力私服,最新魔力宝贝私服技术交流7 ]  g1 U3 g) [5 Y
'    Timer1.Enabled = True( y0 F* ~: k& M" ?% r4 W& d
'    StartCG.Enabled = True
8 w  W6 f+ |7 g4 H. z2 g魔力私服,最新魔力宝贝私服技术交流'妖城在线论坛+ D6 ^3 r( h9 u6 o, C" V9 X" d
'    cgCount = 0
. e% e- A! p1 q4 K3 V, ubbs.mocwww.com'    EnumWindows AddressOf EnumWindowsProc, 0
% P$ n1 i4 W0 G7 T: c6 D- u% Rbbs.mocwww.com'    If cgCount >= 2 Then
6 `! S' m+ d3 W- D6 b魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表'        StartCG.Tag = "-1"      '妖城在线论坛5 j! r6 a7 [  \+ c
'        StartCG.Enabled = False
8 Z) K% f5 t) J! u9 t0 `—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'        StartCG.Caption = "超开限制"bbs.mocwww.com5 |( T) H7 N- \6 X7 e
'
7 Y% }( P4 N, n2 F8 b8 S—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'        If App.PrevInstance = True Thenbbs.mocwww.com/ z! C* W( W  ?5 B" y
'        MsgBox "最多只能两开！"
* {! z: J( L: U, ]妖城在线论坛'        End魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- A, s) a3 P( Q9 U8 r6 [1 E
'        End Ifbbs.mocwww.com( U  b8 i& Q! _

' g% l9 w& O/ Z) o8 p. M魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表bbs.mocwww.com. P0 N/ ]( m: |3 P9 B$ r$ q2 f
只找到一个跟这个相同的

itsong

搜索关键字
" H5 C. p* s7 r" P4 ]/ m) Q4 w1 Wbbs.mocwww.com”EnumWindows VB“

u-know

感谢LS的帮助妖城在线论坛' n3 Q5 o4 F4 ^( q* |% U