Oppure

Loading
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.:hail:

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
19/04/12 5:38
GrG
ma la finestra popup ti si apre in una nuova finestra oppure viene caricata all'interno della finestra su cui stai lavorando?

Perchè se il sito ti reindirizza automaticamente a qualche altro sito pubblicitario devi prima vedere come è fatto il sito... perchè a questo punto mi chiedo (senza vb6) come fai a connetterti dato che ogni volta che ti colleghi vieni reindirizzato da un'altra parte..
aaa
19/04/12 6:05
snkine
Ciao GrG, praticamente succede questo:

-punto il primo link;
-si chiude la prima finestra automaticamente e se ne apre una nuova dove effettuo il login al sistema;
-una volta effettuato il login al sistema dovrò accede ad un'ulteriore finestra cliccando su un link della predecente per effettuare le manovre che mi interessano.

Non si tratta di siti pubblicitari o altro, sto sviluppando una cosa per lavoro quindi non ho nemmeno la possibilità di saltare tra una pagina e l'altra a causa della blindatura del sistema.

Grazie anticipatamente, Luca
aaa
19/04/12 20:27
GrG
ok adesso ti sei spiegato esaurientemente su ciò che devi fare.. ma cos'è di preciso che non sai fare? cioè qual'è il passaggio che ti manca?
aaa