Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Gestione nuova finestra con InternetExplorer.Application e NewWindow
Forum - Visual Basic 6 - Gestione nuova finestra con InternetExplorer.Application e NewWindow

Avatar
snkine (Normal User)
Newbie


Messaggi: 2
Iscritto: 17/04/2012

Segnala al moderatore
Postato alle 18:33
Martedì, 17/04/2012
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:

Codice sorgente - presumibilmente VB.NET

  1. Dim web As Object
  2. Dim web2 As Object
  3. Dim mdoc As Object
  4. Dim sURL As String
  5. Dim ppDisp As Object
  6. Dim Cancel As Boolean
  7.  
  8. Private Sub Command1_Click()        
  9.     If web Is Nothing Then
  10.         Set web = CreateObject("InternetExplorer.application")
  11.         Set web2 = CreateObject("InternetExplorer.application")
  12.     End If    
  13.     web.Visible = True
  14.     web.ToolBar = 0    
  15.     On Error Resume Next
  16.     web.Navigate2 "http://xxx.xxx.xxx.xxx"
  17.     Call elenca
  18.     Set ppDisp = web2.object  
  19.     On Error GoTo 0  
  20. End Sub
  21.  
  22. Sub elenca()
  23. On Error Resume Next
  24. Dim I, x As Integer
  25. Open "c:\ciccio.txt" For Output As #99
  26. For I = 0 To web.All.length
  27.     On Error Resume Next
  28.     Print #99, "***************************************"
  29.     Print #99, "TagNome =" & web.All(I).tagName
  30.     Print #99, "Nome =" & web.All(I).Name
  31.     Print #99, "inde =" & web.All(I).sourceIndex
  32.     Print #99, "Tipo =" & web.All(I).Type
  33.     Print #99, "Value =" & web.All(I).Value
  34.     Print #99, "Text =" & web.All(I).Text
  35.     Print #99, "src =" & web.All(I).src
  36.     Print #99, "innerText =" & web.All(I).innerText
  37.     Print #99, "http =" & web.All(I).href
  38.     Print #99, "***************************************"  
  39.     On Error GoTo 0
  40. Next I
  41. Close #99
  42. 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.

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 7:38
Giovedì, 19/04/2012
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..

PM Quote
Avatar
snkine (Normal User)
Newbie


Messaggi: 2
Iscritto: 17/04/2012

Segnala al moderatore
Postato alle 8:05
Giovedì, 19/04/2012
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

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 22:27
Giovedì, 19/04/2012
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?

PM Quote