PPRuNe Forums - View Single Post - VB6 programme query
View Single Post
Old 6th May 2008 | 16:43
  #3 (permalink)  
BOAC
Per Ardua ad Astraeus
 
Joined: Mar 2000
Posts: 18,575
Likes: 4
From: UK
Sounds good, Hyph, but treat me as someone with a white stick and guide dog I do not really know where to start!

I have constructed an example script here (NB secure site plucked at random). NB I am using the VB web browser control.
+++++++++++++++++++++++++++++++++++++++++++

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVallpWindowName As String) As Long

Private Sub Form_Load()
WebBrowser1.Navigate ("https://www.capitaloneonline.co.uk/C...sumer/Login.do")
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) Then
SendKeys "{TAB 1}"
SendKeys "Hello World"
End If
End Sub
+++++++++++++++++++++++++++++++++

and up comes a similar window asking if I wish to display insecure items. So, apologies for the ignorance, but how do I record AND INCORPORATE a macro to send 'Yes' or tab to 'yes' and 'Enter' or ALT Y........................ to that window?
BOAC is offline  
Reply