Web Browser Question on saving this ones tough.

I do believe you would be better off using the Webbrowser Control in place of the richtextbox... The richtextbox doesn't handle pictures all that well (I know, I know, it does sometimes

You can save the page along with all the graphics usign the webbrowser control. Let me demonstrate:

Private Sub Command1_Click()

WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "http://wwwapps.ups.com/etracking/tracking.cgi?tracknums_displayed=5&TypeOfInquiryNumber=T&HTMLVersion=4.0&InquiryNumber1=1Z8201EX0341489143&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=&InquiryNumber5=&track.x=31&track.y=8"

End Sub

if you want to automate it (i.e., dont prompt user to save to a particular location) then you need to do as mbeers said.

i've always told myself i would try writing this code one day...your question reminded me of it.  its not 100% accurate just yet (still has a bug or two) but heres how it works.  create a folder on your desktop called UPS and paste and run this code.  the images and htm file will all be saved to that folder:


Dim filePath As String
Dim imgCount As Long
Dim imgArr() As String


Public Sub GetPage(strUrl As String, fileName As String)
    Dim b() As Byte
    Inet1.Cancel
    Inet1.Protocol = icHTTP
    Inet1.URL = strUrl
    b() = Inet1.OpenURL(, icByteArray)

    Open fileName For Binary Access Write As #1
    Put #1, , b()
    Close #1
End Sub


Private Sub Command1_Click()
    Dim i, pos As Long
    Dim j As Integer
    Dim fileName As String
    ReDim imgArr(1 To 1) As String
    For i = 0 To WebBrowser1.Document.All.length - 1
        If WebBrowser1.Document.All(i).tagname = "IMG" Then
            pos = InStrRev(WebBrowser1.Document.All(i).src, "/")
            fileName = Right$(WebBrowser1.Document.All(i).src, Len(WebBrowser1.Document.All(i).src) - pos)
            For j = 1 To UBound(imgArr)
                If fileName = imgArr(j) Then
                    GoTo SkipDownload
                End If
            Next
            imgCount = imgCount + 1
            ReDim Preserve imgArr(1 To imgCount)
            imgArr(imgCount) = fileName
            Call GetPage(WebBrowser1.Document.All(i).src, filePath & fileName)
            DoEvents
SkipDownload:
            WebBrowser1.Document.All(i).src = filePath & fileName
        End If
    Next
    Open filePath & "UPS.htm" For Output As #1
    Print #1, WebBrowser1.Document.body.innerhtml
    Close #1
    MsgBox "Webpage downloaded"
End Sub

Private Sub Form_Load()
    filePath = "C:\Windows\Desktop\UPS\"
    WebBrowser1.Navigate "http://wwwapps.ups.com/etracking/tracking.cgi?tracknums_displayed=5&TypeOfInquiryNumber=T&HTMLVersion=4.0&InquiryNumber1=1Z8201EX0341489143&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=&InquiryNumber5=&track.x=31&track.y=8"
End Sub

btw, 50 points is rated as being an easy question <hint hint>

Edited text of question.

Edited text of question.

LOL

what the hell did you edit??  was there some grammar error i missed?

Sorry I was trying to increase the points by the whopping five more I have.  Sorry for the low point total.  I am new to the board but you can bet I am going to become a regular.

AzraSound your answer was great and did exactly what I wanted it to do.  Thanks a million.

I would also like to thank Orbitaltech and mbeers for trying to help.  I am sure you guys were trying to send me on the right path but AzraSound gave me everything I needed.  I have a feeling He/She is addicted to this board.

How do I give you these points.

Michael

there is a button next to my comment that you can press that says "Accept comment as answer"  

glad we could help

Comment accepted as answer

Thanks for the help and if I had more points I would give them to you.  Excellent Job!!!

i cant believe i forgot about framed pages!  when i have some time i'm going to update the project and post it somewhere.