🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.internet.web
Article #904

VB to C++ Help

#904
From: Al C
Date: Thu, 01 Dec 2005 17:05
35 lines
2031 bytes
I've never had to try this before and hope someone can help.  I need to read
the contents of a shopping cart by reading their hidden html forms.  I was
given the following example in VB.  Could someone please help translate?

Set mDoc = WebBrowser1.Document
Dim title As String
Dim cart_count As Integer
Dim output As String

title = mDoc.frames(1).Document.Title
If (title = "Order Review") Then
    cart_count = mDoc.frames(1).Document.frmheader.tot_forms.Value
    If (cart_count > 0) Then
        For i = 1 To cart_count
            Select Case i
            Case 1:
                output = "Cart Details:" + vbCrLf
                output = output +
mDoc.frames(1).Document.frmcarthd_1.carthdr.Value + vbCrLf
                output = output +
mDoc.frames(1).Document.frmcartdet_1.cartpart_1.Value + vbCrLf
                MsgBox output
            Case 2:
                output = "Cart Details:" + vbCrLf
                output = output +
mDoc.frames(1).Document.frmcarthd_2.carthdr.Value + vbCrLf
                output = output +
mDoc.frames(1).Document.frmcartdet_2.cartpart_1.Value + vbCrLf
                MsgBox output
            End Select
        Next
    End If

Thanks,
Al
Technical Details
Message-ID: <438f2c55$1@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news2.volia.net!news-out.newsgroups.com!propagator2-sterling.newsfeeds.com!in.nntp.be!caladan.landsraad.net!newsgroups.borland.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: feeec,618a63818ab8b9df,start
X-Google-Attributes: gidfeeec,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: "Al C" <alanc@jancointernational.com>
Newsgroups: borland.public.cppbuilder.internet.web
Subject: VB to C++ Help
Date: Thu, 1 Dec 2005 12:05:59 -0500
Lines: 37
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
NNTP-Posting-Host: 71.10.8.194
Message-ID: <438f2c55$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1133456469 71.10.8.194 (1 Dec 2005 09:01:09 -0700)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news2.volia.net!news-out.newsgroups.com!propagator2-sterling.newsfeeds.com!in.nntp.be!caladan.landsraad.net!newsgroups.borland.com!not-for-mail