[VB6] Iterazione di una sub

[efreeti]

Per il problema 1 prova ad utilizzare un trucchetto del genere:

Private Sub cmdlink_Click()
Dim a As Variant

a=Shell ("d:\programmi\mozilla firefox\firefox.exe")
AppActivate a

For I = 1 To 4 ' Per aprire 4 Tabs
SendKeys "^(t)", True 'Invia la sequenza di tasti CTRL T per aprire i tabs
Next I '

End Sub

in questo anche se non vedi la finestra del browser il compilatore sa il suo trehadID e lo attiva non appena lo mostra.

Per il secondo problema non ne ho idea, ho provato anche io ma non ho cavato un ragno dal buco.... penso sia un tuo errore, nel caso di 1 to 5 a me da 5 risposte, mai 6

ricontrolla il codice

Efreeti

[GogetaSSJ]

Si quella prova l'ho fatta, ma siccome ci mette un pò di tempo ad attivarsi, lui non trova l'ID mi sembra, infatto ho optato per l'altra soluzione...

Per il secondo problema mi sa che è riconducibile al primo, perchè forse, essendo già attiva l'istanza, si crea macelli con le tab (non so se mi spiego)
Vabbè ora devo finire di fare la tesina per la maturità, dopo la partita dell'italia mi rimetto sul codice del programmino

[GogetaSSJ]

Se faccio come mi hai suggerito tu (avevo già provato mi sembra) mi apre firefox ma restituendomi questo errore:



Cosa faccio? Mi manca questo passo importante, se no non posso continuare a sviluppare il programma

[matpez]

Prova a dichiarare a di tipo Long

Poi controlla se a dopo che passa dalla shell assume un valore numerico!

[GogetaSSJ]

Ho appena provato, A assume sempre una valore numerico di 4 cifre, ma mi da sempre errore
Perché? Non capisco

[matpez]

Prima prova così: a=Shell ("Path Applicazione",vbMaximizedFocus)

se non funzion ancora prova af aggiungere questo: AppActivate a, True

[GogetaSSJ]

Sempre solito errore, sia che lo imposti a True sia con False

Altri suggerimenti?

[The DeViL's]

scusa ma se ci mette 3 o 4 secondi per aprire xche nn ritardi con una sleep?

[cionci]

Il ritardo non è quantificabile, quindi una sleep non basta...

Usa l'API FindWindow per trovare la finestra... Se non la trovi addormentati per un secondo...e rirpova...

[efreeti]

non ti è mai venuta in mente la gestione degli errori?????
prova in questo modo:

Dim a as Long
a=Shell("d:\programmi\mozilla firefox\firefox.exe",vbNormalFocus)
On Error GoTo ero
'iniz: decommenta questo se sotto decommenti il goto
AppActivate a
.....codice che volevi eseguire dopo

Exit Sub
ero:
If Err.Number=5 Then 'errore che ti viene fuori
Err.Clear
Resume Next ' oppure prova con un GoTo iniz vedi sopra
Else
MsgBox("Si è verificato un errore:" & VbCrLf & Err.Description,vbCritical+vbOkOnly,"Titolo Errore : " & Err.Number)
End If

Penso che così dovresti risolvere il problema
Ciauz ^_^
Efreeti

[GogetaSSJ]

Originariamente inviato da efreeti
non ti è mai venuta in mente la gestione degli errori?????
prova in questo modo:


Penso che così dovresti risolvere il problema
Ciauz ^_^
Efreeti

Sono un novellino, solo poche volte sono ricorso alla gestione degli errori, sono ancora troppo poco pratico.
Se copio ed incollo quello che mi hai suggerito mi dice che l'etichetta ero non è definita....

[GogetaSSJ]

Originariamente inviato da cionci
Il ritardo non è quantificabile, quindi una sleep non basta...

Usa l'API FindWindow per trovare la finestra... Se non la trovi addormentati per un secondo...e rirpova...

Come si usa Sleep? Nella Msdn non la trovo

[The DeViL's]

Originariamente inviato da GogetaSSJ
Come si usa Sleep? Nella Msdn non la trovo

scrivi fuori dal form cosi:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

e poi dove vuoi addormentare scrivi:

sleep 1000 per sesmpio ferma per 1 sec


ciao

[GogetaSSJ]

Ecco la Sleep funziona... ma c'è qualcosa che non va nell'appactivate, dopo 4 secondi (ho impostato sleep a 4000) mi restituisce il solito errore

[GogetaSSJ]

Ho scoperto quanto segue:

1 - Se è già aperta un'istanza di firefox, mi restituisce l'errore (ecco xkè me lo da sempre). Questo come si risolve?

2 - Se clicco sul pulsante che mi fa avvenire tutto quel ciclo, il browser si impone già come programma attivo e quindi l'appactivate non funge e tutto il resto... se seleziono il programma che ho scritto (o un'altra finestra) continua il ciclo e mi va ad aprire i tabs correttamente.

Ammazza quanti problemi che da un programmino così scemo....
Help me!!

[GogetaSSJ]

Il primo problema l'ho risolto, eliminando l'appactivate e quindi avvio solo il shell

Una grande mano me la da lo sleep, lo imposto a 3 secondi e sono sicuro.
Come per magia il problema delle istanze è pure sparito, sempre per colpa dell'appactivate. Son contento

Be ora sono proprio apposto, posso continuare tranquillamente (spero) la creazione del software. Al prossimo problema

Grazie a tutti!!!!!!!!

[The DeViL's]

visto? avevo ragione a dirti di usare la sleep!!!... e tutti che dicevano di no!!! (che soddisfazione )

[GogetaSSJ]

Non sembra ma ci sto ancora impazzendo dietro
Questa volta però c'entrano gli array. Mi sono girato mezza internet ma non ho trovato quello che cerco.

In pratica, tramite un ciclo, mi voglio memorizzare i vari link che ricavo in un array... il quale richiamerò dopo per incollare i vari indirizzi nel browser.
Ma come cavolo si fa?? Di certo devo creare un array dinamico, per cui uso la funzione Redim, ma non ci ho capito tanto...

Se vado a verificare, vado a riempire un solo elemento del vettore, non riesco a farlo incrementare. Mi da per buono solo Vettore(0), gli altri non esistono mai e trovo sempre l'ultimo elemento.
Ecco la codifica presente nel ciclo:

ReDim Preserve Vettore(V)
Vettore(V) = sline
L = L + 1
V = L

La variabile L mi serve per contare quanti tabs devo aprire nel browser, V ovviamente sarà uguale ad L perchè il numero di tabs corrispondono ai link da incollare.

Dove sbaglio?

[cionci]

Originariamente inviato da GogetaSSJ
Una grande mano me la da lo sleep, lo imposto a 3 secondi e sono sicuro.
Come per magia il problema delle istanze è pure sparito, sempre per colpa dell'appactivate. Son contento

Sicuro no...metti che ti si avvi il browser su una macchina lenta... In tal caso 3 secondi potrebbero none ssere sufficienti... Devi usare l'API FindWindow, e se non trovi la finestra aperta vai in Sleep per un secondo...

[GogetaSSJ]

Per quanto riguarda la faccenda del vettore, ci sono riuscito.
Come faccio ad usare le API? Ne ho sentito parlare molte volte ma non so usarle, mi puoi spiegare meglio come fare?

Grazie