VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立你自己的浏览器-发送到软盘
发表评论(0)作者:Soma Sundaram, 平台:VB6.0+Win98, 阅读:8033, 日期:2001-04-28
Send to Floppy

1. Add an Inet Control ( Component – Microsoft Internet Transfer Control )
2. Add these line into your Click Event

Dim ss As String, sss As String
ss = InputBox(“Enter file name to Save : “)
If Right(ss, 3) = “.htm” Then
sss = “A:\” & ss
Else
sss = “A:\” & ss & “.htm”
End If
Dim b() As Byte
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = webbrowser1.LocationName
b() = Inet1.OpenURL(, icByteArray)
On Error GoTo Extn
Open sss For Binary Access Write As #1
Put #1, , b()
Close #1
MsgBox “File Saved. Location is : “” & sss”
Extn:
If Err.Number = 71 Then
MsgBox “There is no Floppy or it may be damaged.”
End If