<p>建立你自己的瀏覽器－另存為</p>
<p></p>
<p></p>
<p>Add an Inet Control (Component – Microsoft Internet Transfer Control )</p>
<p>Add an Commondialong Control ( Component – Microsoft Common Dialog Control)</p>
<p>Commondialong name – commandialog1</p>
<p></p>
<p>Dim lrs As String</p>
<p>Commondialog1.ShowSave</p>
<p>lrs = commaondialog1.FileName</p>
<p>If Right(lrs, 4) = “.htm” Then</p>
<p>lrs = lrs</p>
<p>Else</p>
<p>lrs = lrs & “.htm”</p>
<p>End If</p>
<p>Dim b() As Byte</p>
<p>Inet1.Cancel</p>
<p>Inet1.Protocol = icHTTP</p>
<p>Inet1.URL = webbrowser1.locationname</p>
<p>If Inet1.URL <> “” Then</p>
<p>b() = Inet1.OpenURL(, icByteArray)</p>
<p>Open lrs For Binary Access Write As #1</p>
<p>Put #1, , b()</p>
<p>Close #1</p>
<p>End If</p>
<p> </p>
<p> </p>