哪里错了?(急!在线等)

Mars.CN 碳十四空间科技河北有限公司 CEO/总裁  2004-02-20 07:48:59
Private Sub Command1_Click()
Winsock2.Connect
End Sub

Private Sub Command2_Click()
MsgBox Winsock2.State
Winsock2.SendData "hello"
End Sub

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str
Text2.Text = str
End Sub

Private Sub Winsock2_Connect()
MsgBox "c"
End Sub

...全文
11 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7492

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-20 07:48
社区公告
暂无公告