VB Forum / General / September 2004

"http://dmoz.org/cgi-bin/add.cgi?where=Regional/North_America/United_States/
Ohio/Business_and_Economy/Real_Estate"

Hi Erica,

  I've tried your code in a test project (added a RichTextBox, a WebBrowser
and a CommandButton), and it seems to be working - somehow, if I declare the
wbtitle variable. Other than that, I'd made only minor, non-essential
adjustments.

Here's the modified code - it really shows the web page, then receives an
"incomplete data submitted" response.

'---------------------------------------------------------
  Option Explicit: DefObj A-Z

  Private Function SubmitDMOZ( _
              url As String, email As String, _
              title As String, desc As String _
           ) As Boolean

   Dim NavUrl          As String
   Dim wbtitle         As String      ' ***FORMALLY***

   On Error GoTo ErrHandler

     With RtfStatus
        .SelStart = Len(Me.RtfStatus.Text)
        .SelColor = vbBlack
        .SelText = vbNewLine & "Submitting " & Trim(url) & " to Open
Directory "
     End With

      NavUrl = _

"http://dmoz.org/cgi-bin/add.cgi?where=Regional/North_America/United_States/
Ohio/Business_and_Economy/Real_Estate"

     With wbbrowser
        .Navigate NavUrl
        Do
           DoEvents
        Loop While .Busy

        With .Document.All
           .Item("url").Value = Trim$(url)
           .Item("title").Value = Trim$(title)
           .Item("description").Value = Trim$(desc)
           .Item("email").Value = Trim$(email)
           .Item("submit")(1).Click
        End With
        Do
          DoEvents
        Loop While .Busy
     End With

     If wbtitle = "Submission Received" Then   ' ***???***
        SubmitDMOZ = True
     End If
     Exit Function

ErrHandler:
     Beep
     With Err
        Debug.Print "***Unexpected error*** : " & _
           .Number & " (&H" & Hex$(.Number) & ")" & vbNewLine & _
           vbNewLine & "   Source : " & .Source & _
           vbNewLine & "   Descr : " & .Description
     End With
  End Function

  Private Sub cmdGo_Click()
     If SubmitDMOZ("", "", "", "") Then
        Debug.Print "*OK*"
     Else
        Debug.Print "***Failed***"
     End If
  End Sub

'---------------------------------------------------------

hth