- 在线时间
- 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
( H1 B' e; i! N: m* g5 b! G) r4 m' @, |8 ]) P
Private Sub cmdListen_Click()3 T: Y" q* i) F, {" t. A1 L! K3 \
Me.sktServer.Listen
( E- n0 ^' Y7 _3 Z8 B' z E9 u; sEnd Sub- O3 f5 x4 |4 ~, K0 m# E" w+ T. T
- ~. @4 [& Q% q' X1 A6 I6 bPrivate Sub cmdSend_Click(). P1 S0 {! v: v2 n5 n/ O Q# E; D
Me.sktServer.SendData Me.txtSend.Text
8 R2 J( {9 _: o/ r* k' KEnd Sub
1 i0 I \+ T" O0 A! x5 x
# x ^! N8 G$ ^# B4 wPrivate Sub cmdDisconnect_Click()# d$ n$ k( i7 O; z9 _+ Q
Me.sktServer.Close
8 M0 k+ R" a: m" eEnd Sub: [: m- }- ?- |1 `) H+ ]
+ u! k5 s) x! k. Z3 ^& ^% OPrivate Sub Form_Load()
) C: m- L3 v! O j4 ]2 i# J6 {
( I4 ~9 ~, w+ T0 L) {/ _8 FEnd Sub
" ?! Q7 ~8 m. C' E& F! Q6 e' L0 i- v! o, ^" q" {5 l
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
* y% Q- G3 V" O Me.sktServer.Close5 e4 I9 w7 n: U* t
Me.sktServer.Accept requestID* L8 b3 L" P; k; c. m# Q
End Sub
5 I: R7 M+ b6 p8 ?; k$ W
. `+ n& y. [% V0 j3 a1 O8 V6 ^Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
5 s _* M, a) P- T/ S6 a9 J$ E Dim Buffer As String1 o3 I, a8 d3 F1 K+ Y7 i
Me.sktServer.GetData Buffer
# u+ @% [; J9 I; l* i! J Me.txtReceive.Text = Buffer5 Q0 q$ ?9 \) t% `! m! M! H( m# r' R
End Sub
- P5 N) S; Q" t, ^, n% ]/ \% ? |
zan
|