| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 753 人关注过本帖
标题:WebBrowser与Sock控件也冲突??
只看楼主 加入收藏
onej
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2005-5-15
收藏
 问题点数:0 回复次数:1 
WebBrowser与Sock控件也冲突??



遇到一个问题:


***************************客户端*********************


Private Sub Form_Load()
' 指定服务器主机名
SockClient.RemoteHost = "127.0.0.1"
' 指定服务器端口名
SockClient.RemotePort = 2000
' 连接到服务器
SockClient.Connect
WebBrowser1.Navigate http://my.yahoo.com '这里,如果写上这句则出现错误;注释掉则正常运行
End Sub

Private Sub SockClient_DataArrival(ByVal bytesTotal As Long)
Dim DataStr As String

SockClient.GetData DataStr

Debug.Print "接受的数据:" & DataStr '正常应显示True

End Sub


Private Sub Form_Unload(Cancel As Integer)
sockserver.Close
End Sub

***************************服务端********************************


Private Sub Form_Load()
sockserver.LocalPort = 2000 '服务器端口号,最好大于1000
sockserver.Listen '开始侦听
End Sub

' 建立新连接
Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)
If sockserver.State <> sckClosed Then sockserver.Close
sockserver.Accept requestID '表示客户请求连接的ID号
SendMsg = True
sockserver.SendData SendMsg
End Sub


Private Sub Form_Unload(Cancel As Integer)
sockserver.Close
End Sub

搜索更多相关主题的帖子: Sock WebBrowser 控件 
2005-12-03 14:49
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
WebBrowser1.Navigate http://my.yahoo.com '这个URL没有加引号?

天津网站建设 http://www./
2005-12-03 17:53
快速回复:WebBrowser与Sock控件也冲突??
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.049904 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved