u-know

在加载工程的时候发现有这样的一段话bbs.mocwww.com# K- O) c3 l, J" s3 R
妖城在线论坛* d$ M8 J, Z" p
'    cgCount = 0
" _  L# |$ F! i& E'    EnumWindows AddressOf EnumWindowsProc, Val(StartCG.Tag)
, w  X6 ^* z6 _/ S) B2 g$ C' D魔力私服,最新魔力宝贝私服技术交流'    If cgCount >= 2 Then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 L+ X# H: B# H
'        MsgBox "抱歉!最多只能双开!"
# F+ q! O  Y8 E* U9 r/ m魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表'        Exit Sub魔力私服,最新魔力宝贝私服技术交流- u; T, A$ A7 \, I
'    End Ifbbs.mocwww.com. B; I. s+ `; B; I  @" @, R7 p

+ ^( M& w$ C9 g; p# b2 [* P—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート不知道  红色部分该这么写，求高手帮忙分析一下魔力私服,最新魔力宝贝私服技术交流# j" ~& [1 X0 r+ A
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 K- \$ K& W5 M9 [: k
刚才在编程里不能发帖，点击新帖时电脑自动重启，郁闷妖城在线论坛1 A" I0 X' b: J3 E

( G* [) G3 G9 ?  y) ]3 ^bbs.mocwww.com所以在这里发贴，老大不会介意吧

u-know

没有人能帮我解答吗？妖城在线论坛- @8 r9 y* H' X; J1 l9 [
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# l; t; u6 ^! R: ?
自己坐沙发，自己顶自己
# D! Q9 q% G' |魔力私服,最新魔力宝贝私服技术交流

itsong

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

u-know

那我这段语句 让他运行该设置成什么样的函数？魔力私服,最新魔力宝贝私服技术交流; M& E4 d/ H% o6 s

, E+ Q- }0 D4 m2 P* J0 Y& Z3 v  s魔力私服,最新魔力宝贝私服技术交流/ G5 m& W1 u6 O- q! j

itsong

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

。▂.Get.out

妖城在线论坛2 s$ X& T! \; o, }0 J/ }8 I% M: E
3 V# y% L5 T/ ^' F2 W3 ~7 j8 D
LS还没休息额..- -..高手..

u-know

Private Sub Command3_Click()
4 _# Q2 ?9 u" Q# t' T魔力私服,最新魔力宝贝私服技术交流2 S) q) O/ ]/ B) K$ g  e1 a: j! N) _
Dim file As String, para As Stringbbs.mocwww.com5 _% h4 k; q* s, {1 T
魔力私服,最新魔力宝贝私服技术交流' v$ M0 P9 K/ L# k+ _: ?: \. i
是这个吗

itsong

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

u-know

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

itsong

引用:

原帖由 u-know 于 2008-4-28 01:25 发表
6 r7 S& R+ {  V9 ]4 U- T; P魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表难道说，红色部分是启动CG的文件名？

% c/ v. p3 O: w6 {- d4 G妖城在线论坛具体得看你回调函数”EnumWindowsProc“的实现，才能决定那边到底该写什么。

u-know

'    Timer1.Interval = 10000
- j  ]! h8 f. Y+ {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'    Timer1.Enabled = True$ O* B5 n6 d0 m9 x; _
'    StartCG.Enabled = True
, W% d2 z4 X( U; j' x' P* ]- j. z—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'
) Z% D3 Y7 l* H3 d/ X妖城在线论坛'    cgCount = 0
- Y# ~" C/ w% p! H" P. k0 tbbs.mocwww.com'    EnumWindows AddressOf EnumWindowsProc, 0bbs.mocwww.com: Z8 Y2 H: U: c% e& R+ n
'    If cgCount >= 2 Then
" u( f5 }, F1 w5 \魔力私服,最新魔力宝贝私服技术交流'        StartCG.Tag = "-1"      '
3 W0 ]7 {" o) b3 L! y( t魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表'        StartCG.Enabled = False
% @2 T8 f- I  W' v魔力私服,最新魔力宝贝私服技术交流'        StartCG.Caption = "超开限制"bbs.mocwww.com' ~) K6 L  M) c- t" I
'
: r: w3 u" \# h7 {& W' b4 w妖城在线论坛'        If App.PrevInstance = True Then
5 E) W, c( n' L. L! K妖城在线论坛'        MsgBox "最多只能两开！"
$ U0 ?; l7 B7 L6 A0 E; f魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表'        End
8 U( I+ @* j( g—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート'        End If
$ S. h% g' C. R7 @3 m妖城在线论坛
1 j/ b1 c2 T7 A% j/ F2 F; I+ o2 I
. z' x; x; B- t+ V! c—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート只找到一个跟这个相同的

itsong

搜索关键字
& s, N, y7 I3 D4 W8 a9 L”EnumWindows VB“

u-know

感谢LS的帮助
; l9 J5 r1 [- c7 A魔力私服,最新魔力宝贝私服技术交流