VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立你自己的浏览器-另存为
发表评论(0)作者:Soma Sundaram, 平台:VB6.0+Win98, 阅读:8822, 日期:2001-04-28
Save As

Add an Inet Control (Component – Microsoft Internet Transfer Control )
Add an Commondialong Control ( Component – Microsoft Common Dialog Control)
Commondialong name – commandialog1

Dim lrs As String
Commondialog1.ShowSave
lrs = commaondialog1.FileName
If Right(lrs, 4) = “.htm” Then
lrs = lrs
Else
lrs = lrs & “.htm”
End If
Dim b() As Byte
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = webbrowser1.locationname
If Inet1.URL <> “” Then
b() = Inet1.OpenURL(, icByteArray)
Open lrs For Binary Access Write As #1
Put #1, , b()
Close #1
End If