Mach4_PT
09-03-2008, 12:02
Boas,
Alguém me sabe dizer como é que com o Visual Basic 6.0 posso mudar as opções do Internet Explorer.
Por exemplo, o que eu quero fazer é com que o meu programa desactive a execução de scripts activo.
Já agora... tenho um problema com o meu programa.
Eu tenho um programa que faz umas coisinhas com o controlo WebBrowser do VB6... mas por vezes este dá erro e quando o mando fechar ele fecha-se mas continua a correr em background. Existe algum "caso diagnosticado" deste problema com esse controlo?
Partes do código relevante
Private Sub Timer1_Timer()
quant = Text4.Text
Timer1.Interval = 5000
Session = web.LocationURL
Session = InString(Session, "ses", "&l")
Label3.Caption = Session
While (Session = "")
DoEvents
Wend
If Not Len(Session) = 12 Then
MsgBox "Erro, tenta conectar-te novamente", vbCritical
Else
End If
Timer1.Enabled = False
If Text6.Text = "0" Then
contruir
Else
contruir2
End If
Label1.Caption = Label1.Caption + 1
End Sub
Private Sub Timer3_Timer()
web.Navigate2 "about:blank"
Command1.Enabled = True
Label4.Caption = "Erro"
End Sub
Sim o programa só bloqueia quando dá esse erro referido no timer3.
Obrigado
Alguém me sabe dizer como é que com o Visual Basic 6.0 posso mudar as opções do Internet Explorer.
Por exemplo, o que eu quero fazer é com que o meu programa desactive a execução de scripts activo.
Já agora... tenho um problema com o meu programa.
Eu tenho um programa que faz umas coisinhas com o controlo WebBrowser do VB6... mas por vezes este dá erro e quando o mando fechar ele fecha-se mas continua a correr em background. Existe algum "caso diagnosticado" deste problema com esse controlo?
Partes do código relevante
Private Sub Timer1_Timer()
quant = Text4.Text
Timer1.Interval = 5000
Session = web.LocationURL
Session = InString(Session, "ses", "&l")
Label3.Caption = Session
While (Session = "")
DoEvents
Wend
If Not Len(Session) = 12 Then
MsgBox "Erro, tenta conectar-te novamente", vbCritical
Else
End If
Timer1.Enabled = False
If Text6.Text = "0" Then
contruir
Else
contruir2
End If
Label1.Caption = Label1.Caption + 1
End Sub
Private Sub Timer3_Timer()
web.Navigate2 "about:blank"
Command1.Enabled = True
Label4.Caption = "Erro"
End Sub
Sim o programa só bloqueia quando dá esse erro referido no timer3.
Obrigado