View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
geebee geebee is offline
external usenet poster
 
Posts: 190
Default simulate clicking OK in msgbox

i really need the messagebox it seems for this towork. for example when i
step through the code, i get the messageboxes. and the link in the aol page
is clicked. but when i simply run the code, it doesnt work and i dont get
the msgbox zz. here is the full code:

Dim myIE As New InternetExplorer

Public Sub EE()

Dim myURL As String
Dim myURL33 As String
Dim myDoc As HTMLDocument
Dim strSearch As String
'Set starting URL and search string
myURL = "www.google.com"
'Make IE navigate to the URL and make browser visible
myIE.navigate myURL
myIE.Visible = True
Call EE2
End Sub



Sub EE2()
myIE.navigate "www.aol.com "
myIE.Visible = True
While myIE.Busy: DoEvents: Wend
Set o = myIE.document.all.tags("A")
M = o.Length: mySubmit = -1
For r = 0 To M - 1: zz = ""
zz = zz & "Link Index : " & r & " of " & o.Length - 1
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . tabindex : " & o.Item(r).tabIndex
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . tagname : " & o.Item(r).tagName
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . href : " & o.Item(r).href
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . type : " & o.Item(r).Type
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . name : " & o.Item(r).Name
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . innerhtml : " & o.Item(r).innerHTML
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . outerhtml : " & o.Item(r).outerHTML
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . rel : " & o.Item(r).rel
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . rev : " & o.Item(r).rev
zz = zz & String(3, vbCrLf)
'
zz = zz & "A . id : " & o.Item(r).ID
zz = zz & String(3, vbCrLf)
MsgBox zz


If InStr(1, o.Item(r).innerHTML, "Retailers on the Brink", vbTextCompare) Then
MsgBox "= F O U N D =" & vbCrLf & o.Item(r).innerHTML
o.Item(r).Click: Exit For
End If
Next


'MsgBox "DONE"

End Sub


"Office_Novice" wrote:

If you dont need the msgbox comment it out by placing a single quote ' in
front of it or just remove it all together.

"geebee" wrote:

hi,

its ok if the user does not have time to see the messagebox. i just need
the OK button to automatically be clicked.

thanks in advance,
geebee


"OssieMac" wrote:

don't understand what you are trying to achieve. If you simulate the clicking
of the OK button in your code then you will not see the msgbox because it
will all occur too quickly. the idea of the OK button is to give the user the
time they require to read the message.

perhaps you can post a snippet of your code including the msgbox.
--
Regards,

OssieMac


"geebee" wrote:

hi,

i would like to know if there is a way i can simulate clicking on the OK
button of a messagebox. i have the following:

msgbox zz

i am wanting to do this because when i run the code, for some reason it
skips over this, but when i step through it, it works...

thanks in advance,
geebee