ripeto per chi non avesse letto la prima parte:
Salve a tutti, ho un piccolo problema da risolvere.
Ho creato un form con Visual basic che prende dei dati da internet ad intervalli di 1 minuto, il problema è che se navigo con il mio browser (Explorer o Firefox), per esempio so cercando un link dai miei dati preferiti (mouse puntato sui link dopo aver cliccato sul menu dei preferiti), il form in questione (se sta scaricando i dati) prende il focus e praticamente mi chiude il menu dei preferiti che avevo selezionato.
Come posso risolvere questo problema?
Grazie.
Oregon ci sei??.......
questo è il codice:
Option Explicit
Dim WithEvents IE As SHDocVw.InternetExplorer
Private Sub Form_Load()
trovasito
End Sub
Private Sub trovasito()
On Error Resume Next
If IE Is Nothing Then 'creo solo la 1a volta
Set IE = CreateObject("InternetExplorer.Application")
End If
IE.Navigate "http://forum.html.it/forum/index.php?"
End Sub
Private Sub IE_DocumentComplete(ByVal xpDisp As Object, xURL As Variant)
On Error Resume Next
Dim doc As MSHTML.HTMLDocument, b As MSHTML.IHTMLBodyElement
Dim num, endnum As Long, symbol As String, indata, strnew, strdata, strvar As String
'Command1.Enabled = True
Set doc = IE.Document
'MsgBox b.innerText
'Set doc = pDisp.Document
Set b = doc.body
'Form1.Text2 = b.innerText
Text1.Text = b.innerText
indata = b.innerText
symbol = "Benvenuto"
num = InStr(1, indata, symbol) + Len(symbol) + 12
endnum = num + 6 'InStr(num, inData, symbol1)
strnew = Mid(indata, num, endnum - num)
Text2.Text = strnew
Set IE = Nothing
End Sub
Private Sub Timer1_Timer()
trovasito
End Sub