- 在线时间
- 14 小时
- 最后登录
- 2015-2-22
- 注册时间
- 2012-2-12
- 听众数
- 5
- 收听数
- 0
- 能力
- 0 分
- 体力
- 511 点
- 威望
- 0 点
- 阅读权限
- 30
- 积分
- 193
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 82
- 主题
- 9
- 精华
- 0
- 分享
- 0
- 好友
- 7
升级   46.5% TA的每日心情 | 难过 2014-11-27 15:24 |
---|
签到天数: 50 天 [LV.5]常住居民I
 群组: 学术交流B 群组: 学术交流A |
Option Explicit/ b. o: D# P2 A D+ L/ `: w
' U9 y& F) C) x
Private Sub cmdListen_Click()+ _+ P8 p6 t1 d# f9 h
Me.sktServer.Listen
# I+ N1 }) T6 ^$ U3 ZEnd Sub2 ~4 O# I# x8 n j
t0 }; z7 G% A; t6 u: v& tPrivate Sub cmdSend_Click()
" Z+ y# w3 F, t$ k2 W/ J Me.sktServer.SendData Me.txtSend.Text
, D" j" @( c; L' v' P) G! Z8 iEnd Sub
- s o) [) {4 Z: x3 R: Y" `1 r5 F; Z9 b
Private Sub cmdDisconnect_Click()( z% l! {2 P1 t2 |! ]' |
Me.sktServer.Close K4 Z6 E+ B6 ~. a9 t
End Sub
- l) t# T! Y8 L7 K+ L6 l
1 k% Z, x2 D5 {Private Sub Form_Load(): F! G: r2 o# @% |& D: ]
# D7 V% Y5 r- Y8 H2 l( |, b+ aEnd Sub
6 S1 R$ X$ t/ @( Z0 h) N$ X6 A
D% d) Y8 ~! B. gPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
3 O) u" n$ a1 f N) } Me.sktServer.Close, A7 ?2 X0 J4 L: L1 A6 {
Me.sktServer.Accept requestID; V& Y4 w" d H7 I
End Sub" v4 M+ M Q' A9 k; _# e
. l# ^: s$ O( }# S2 x& \
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)/ U Y- W6 p# O4 L' Y: T
Dim Buffer As String
6 t7 i3 @; z6 n' g: A Me.sktServer.GetData Buffer! D! Z& T0 n/ Y- R$ H7 s
Me.txtReceive.Text = Buffer8 ?+ i! V& s- U% N# a
End Sub
+ ~# T' D' X' x' A* a$ j, \) w, _ |
zan
|