omnibuster
07-26-2009, 07:43 AM
With Vba I open some website, login (UName+Pw).
After clicking SubmitBtn in Website i need that Loop ended.
I was using this:
Do
intResponse = MsgBox("A you done?", _
vbYesNo + vbQuestion + vbSystemModal)
If intResponse = vbYes Then
GoTo 10
Else
End If
Loop
10
But MsgBox is behind the Website i.e. not realy visible.
Sub Going_Postal()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate "http:xxxxxx"
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
IE.Visible = True
Do
With .document.forms(1)
' .submit ' Works OK with this VBa command
End Loop when submit clicked manually???
End With
Loop
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
End With
' Do something...
IE.Quit: Set IE = Nothing
End Sub
After clicking SubmitBtn in Website i need that Loop ended.
I was using this:
Do
intResponse = MsgBox("A you done?", _
vbYesNo + vbQuestion + vbSystemModal)
If intResponse = vbYes Then
GoTo 10
Else
End If
Loop
10
But MsgBox is behind the Website i.e. not realy visible.
Sub Going_Postal()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate "http:xxxxxx"
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
IE.Visible = True
Do
With .document.forms(1)
' .submit ' Works OK with this VBa command
End Loop when submit clicked manually???
End With
Loop
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
End With
' Do something...
IE.Quit: Set IE = Nothing
End Sub