17/04/12 16:33
snkine
Ciao a tutti e complimenti per lo splendido forum!
Ho la necessità di risolvere il problema che vi elenco:
Partendo da un form su cui compilare delle TextBox devo poi lanciare il login verso una pagina browser standalone. Il problema nasce dal fatto che puntando il link che mi interessa vengo reindirizzato automaticamente verso una nuova finestra popup. Praticamente il primo link apre soltanto l'istanza che rimanda verso la seconda pagina di accesso.
Per cause di forza maggiore non ho la possibilità di aprire le pagine in un WebBrowser integrato nel form.
Al momento sono riuscito ad arrivare a questo punto ma non ne vado fuori, se qualcuno ha un'idea ve ne sarei eternamente grato.
La sub Elenca dovrebbe (dico dovrebbe perchè al momento non lo fa) crearmi un file di testo nel quale mi elenca tutti i tag della pagina su cui poi andrò a compilare i campi precedentemente settati dal form.
Ho la necessità di risolvere il problema che vi elenco:
Partendo da un form su cui compilare delle TextBox devo poi lanciare il login verso una pagina browser standalone. Il problema nasce dal fatto che puntando il link che mi interessa vengo reindirizzato automaticamente verso una nuova finestra popup. Praticamente il primo link apre soltanto l'istanza che rimanda verso la seconda pagina di accesso.
Per cause di forza maggiore non ho la possibilità di aprire le pagine in un WebBrowser integrato nel form.
Al momento sono riuscito ad arrivare a questo punto ma non ne vado fuori, se qualcuno ha un'idea ve ne sarei eternamente grato.
Dim web As Object Dim web2 As Object Dim mdoc As Object Dim sURL As String Dim ppDisp As Object Dim Cancel As Boolean Private Sub Command1_Click() If web Is Nothing Then Set web = CreateObject("InternetExplorer.application") Set web2 = CreateObject("InternetExplorer.application") End If web.Visible = True web.ToolBar = 0 On Error Resume Next web.Navigate2 "http://xxx.xxx.xxx.xxx" Call elenca Set ppDisp = web2.object On Error GoTo 0 End Sub Sub elenca() On Error Resume Next Dim I, x As Integer Open "c:\ciccio.txt" For Output As #99 For I = 0 To web.All.length On Error Resume Next Print #99, "***************************************" Print #99, "TagNome =" & web.All(I).tagName Print #99, "Nome =" & web.All(I).Name Print #99, "inde =" & web.All(I).sourceIndex Print #99, "Tipo =" & web.All(I).Type Print #99, "Value =" & web.All(I).Value Print #99, "Text =" & web.All(I).Text Print #99, "src =" & web.All(I).src Print #99, "innerText =" & web.All(I).innerText Print #99, "http =" & web.All(I).href Print #99, "***************************************" On Error GoTo 0 Next I Close #99 End Sub
La sub Elenca dovrebbe (dico dovrebbe perchè al momento non lo fa) crearmi un file di testo nel quale mi elenca tutti i tag della pagina su cui poi andrò a compilare i campi precedentemente settati dal form.
aaa