标题:vb能不能用Winsock编写浏览器
只看楼主
猪肉
Rank: 1
等 级:新手上路
帖 子:96
专家分:1
注 册:2007-3-8
 问题点数:0 回复次数:6 
vb能不能用Winsock编写浏览器
vb能不能用Winsock编写浏览器
小弟在网上搜索了一下,没有发现用Winsock编写浏览器的文章,请问这里有没有高手能解答一下,如果能写出一个最简单用Winsock编写浏览器源代码提供学习就更好。

我相信在VB中一定能用Winsock编写浏览器,但不知道怎么写。


搜索更多相关主题的帖子: 浏览器 Winsock 编写 
2007-03-12 19:23
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
得分:0 

饿 没有HTML的解释器也不行的``用WEBBROWSER吧``


佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
2007-03-12 20:09
猪肉
Rank: 1
等 级:新手上路
帖 子:96
专家分:1
注 册:2007-3-8
得分:0 
只要能浏览就是取得网页的html代码,至于怎么显示都行。有没有人会写。
2007-03-12 20:10
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
得分:0 

看看下面的代码对你有没有用.
如图下图:



[CODE]Private Sub Command1_Click()
Winsock1.RemoteHost = "nease.com" '连接主机
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
Dim strCommand As String
Dim strWebPage As String

strWebPage = "http://www.nease.com/"
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/html" + vbCrLf
strCommand = strCommand + vbCrLf
Winsock1.SendData strCommand
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim webData As String
Winsock1.GetData webData, vbString
TxtWebPage.Text = TxtWebPage.Text + webData
End Sub[/CODE]


不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2007-03-12 23:35
猪肉
Rank: 1
等 级:新手上路
帖 子:96
专家分:1
注 册:2007-3-8
得分:0 

谢谢,我昨晚也编好了一个。

2007-03-13 12:25
猪肉
Rank: 1
等 级:新手上路
帖 子:96
专家分:1
注 册:2007-3-8
得分:0 
有问题了,用Winsock编写浏览器的时候怎么伪造COOKIE信息?有谁懂的吗?
2007-04-16 18:05
geziang
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2007-10-4
得分:0 
怎么显示?
2008-02-05 23:09



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-123870-1-1.html




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

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