Sto riaggiornando il programma come consigliato da alcuni di voi.
In pratica invece di inserire a parte in un altro Form il codice ottico l'ho inserito nel form principale senza far apparire per forza tutta la pagina.
Ora il problema è che non riesco ad impostare la TextBox per l'inserimento del codice e sucessivamente il tasto Invia per confermarlo ed inviare definitivamente l'sms. Vi posto il pezzetto di codice inerente ai link fino a quel punto.
___________________________________________________________
Private Sub botInviaSMS_Click()
Wb.Navigate "
areaprivati.190.it/190/trilogy/jsp/…;
Do Until Wb.ReadyState = READYSTATE_COMPLETE 'aspetto che il carticamento della pagina sia completato
DoEvents
Loop
'preparo l'invio dell'sms
Wb.Navigate "
areaprivati.190.it/190/fsms/…; & txtDestinatario.Text & "&message=" & txtTestoSMS.Text & "&availableChars=355&x=46&y=8"
Do Until Wb.ReadyState = READYSTATE_COMPLETE 'aspetto che il carticamento della pagina sia completato
DoEvents
Loop
Wb.Navigate "
areaprivati.190.it/190/trilogy/jsp/…;
'
areaprivati.190.it/190/fsms/…'
Wb.Navigate "
areaprivati.190.it/190/fsms/…;
Wb2.Navigate "
areaprivati.190.it/190/fsms/…;
Wb2.Visible = True
Dim Domanda As Integer
Domanda = MsgBox("Inserisci il codice che apparirà nella pagina per poter inviare l'sms.", vbOKOnly + vbExclamation, Me.Caption)
Form2.Show
Command5.Enabled = True
Command6.Enabled = True
End Sub
___________________________________________________________
In pratica qui c'è ancora la parte di codice che apre il Form2, che sarebbe un WebBrowser nel quale appare la pagina internet per l'inserimento del codice direttamente dal sito.
Siccome è brutto in questa maniera, ho inserito l'immagine del codice direttamente nel Form principale:
___________________________________________________________
Wb2.Navigate "
areaprivati.190.it/190/fsms/…;
___________________________________________________________
Ho inserito di seguito la Text1 in cui vorrei inserire il codice visualizzato, e il Command10 che dovrebbe inviare il tutto per spedire l'sms ma, sono fermo qui.
Io ho provato in più modi ma senza esito positivo.
Il WebBrowser2 contenente l'immagine una volta clickato invio con questo collegamento :
___________________________________________________________
Wb2.Navigate "
areaprivati.190.it/190/fsms/…; & txtDestinatario.Text & "&message=" & txtTestoSMS.Text & "&verifyCode=" & Text1.Text
(ho provato e riprovato molti modi diversi per il link)
___________________________________________________________
torna alla schermata per l'inserimento del numero di telefono del destinatario, messaggio da inserire e tasto procedi. Dovrebbe invece inviare il messaggio avendo verificato il codice ottico e farmi apparire la pagina di avvenuto successo dal sito.
Sono stato un po lungo lo so, scusatemi, ma non è facile per me spiegare il problema.
Spero di aver elencato prove sufficienti per far si che qualcuno di voi mi possa aiutare.
Spero in una risposta, perchi volesse mi contatti pure qui : mauriziolatigre@altervista.org
Un grazie anticipato a chi mi darà una mano, ciao a tutti!
mmmmmm
