电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> VB编程>>vb点击查看url源码:

vb点击查看url源码

来源:www.cncfan.com | 2006-4-15 | (有3008人读过)

添加Transfer控件和WebBrowser控件,一个COMMAND和一个文本框。
参考以下代码:
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.xxxx.com"
End Sub

Private Sub Command1_Click()
Dim HtmlByte() As Byte
Dim sHtml As String,sTemp As String
Inet1.URL=WebBrowser1.LocationURL
HtmlByte()=Inet1.OpenURL
Open App.Path+"\xxxx.htm" For Binary As #1
Put#1,,HtmlByte()
Close #1
Open App.Path+"\xxxx.htm" For Input As #1
Do While Not EOF(1)
Line Input #1,sTemp
sHtml=sHtml+sTemp
Loop
Text1=sHtml
Close #1
End Sub
VB编程热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号