[VB6] Chiudere in automatico la Form

[xstef@tin.it]

Ciao a tutti
ho un problema, sono nuovo e ci capisco poco.

Ho creato un exe con queste 3 istruzioni dentro form_load

1 WebBrowser1.Navigate "10.xx.x.xx/default_.asp"
2 me.hide
3 end

la pagina default ha dentro un windows.open e lancia un nuovo browser

se tengo tutte e 3 non mi funziona, se cancello END funziona perfettamente

dove sbaglio?
Grazie

[fu510n]

Spiega meglio... Cosa succede con END?
Non viene aperta la nuova finestra?

E che utilità ha questa applicazione?


Cmq puoi procedere così (sostituendo l'url):

        System.Diagnostics.Process.Start("iexplore.exe", "http://www.html.it")
        End

Buon Proseguimentos

[xstef@tin.it]

mi spiego meglio:ho un'applicazione in asp, per evitare di visualizzare tutti le url e i menu di explorer volevo creare un eseguibile che aprisse un browser, lanciasse la pagina e che si chiudesse in modo che la nuova finestra rimanesse pulita.

infatti la pagina default.asp contiene un comando javascript
window.open('default_exe.asp', '', 'width=100,height=100,scrollbars=yes')


se ometto "end" funziona tutto ma lanciando l'exe 3-4 volte e andando a guardare nel task manager mi trovo tanti processi quanti ne ho lanciati.

mettendo "end" i processi si chiudono regolarmente ma non mi parte il primo comando cioè l'apertura del browser "WebBrowser1.Navigate"

ho provato a mettere una msgbox e così funziona ma costringere l'utente a cliccare sulla ok a questo punto lo faccio cliccare sulla X della form.

infine ho provato a usare il comando che mi hai detto ma mi da "errore 424 necessario oggetto"

[fu510n]

Prova a controllare dove risiede il tuo InternetExplorer....

Cmq sia a questo punto ti consiglio di inserire un timer con

Interval = 5000

5 secondi....

Ricorda di impostare la proprietà "Enabled" su true perchè in automatico è false.

Sull'evento TICK del Timer imposti il comando "END".

In questo modo dai tempo al WebBrowser di caricare la pagina, eseguire lo script e rimanere in attesa di essere terminato perchè il problema è proprio questo.

E' una soluzione poco professionale ma risolve il tuo problema.

[xstef@tin.it]

non è che me la potresti scrivere tu, in vb sono quasi zero
grazie

[fu510n]

Ho appena fatto una prova per risolvere il problema della posizione del browser che se differente da Internet Explorer ti restituisce un errore.

Il seguente codice non fa altro che prendere il percorso del tuo browser predefinito dal registro di sistema e richiamare quello passandogli come parametro l'url (sotto forma di stringa) che desideri:

       Dim RegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("HTTP\shell\open\command", False)
        Dim Browser As String = RegKey.GetValue("").ToString
        Browser = Browser.Substring(Browser.IndexOf("""") + 1, Browser.LastIndexOf("""") - 1)
        MessageBox.Show(Browser)
        System.Diagnostics.Process.Start(Browser, "http://www.html.it")
        End

[fu510n]

ops... ho dimenticato la MessageBox

Fammi sapere se funziona

[MItaly]

@fu510n: sta parlando di VB6, in VB.NET End non c'è.
@xstef@tin.it:
In primo luogo End non si usa: è un residuo del BASIC dei tempi antichi che esegue uno shutdown "sporco" del programma (senza distruggere correttamente le classi e i controlli). Inoltre per fare quello che vuoi imposta la proprietà Visible del form a False, quindi inserisci questo codice:

Option Explicit
Private Sub Form_Load()
    WebBrowser1.Navigate "10.xx.x.xx/default_.asp"
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Unload Me
End Sub

.

[fu510n]

Dunque.... MItaly concordo con te sull'utilizzo dell' END che cmq c'e' in VB.NET... preferibile usare il Me.Close() in quanto END termina immediatamente l'esecuzione del programma.
Inoltre il controllo WebBrowser appartiene al Namespace: System.Windows.Forms del .Net Framework.
Non l'ho mai utilizzato

Ora aspettiamo che XStef ci dia qualche delucidazione su che versione di VB sta utilizzando e in caso di .NET, la versione del Framework.

[MItaly]

MItaly concordo con te sull'utilizzo dell' END che cmq c'e' in VB.NET

Hai ragione, dev'essere stato il mio subconscio che sperava che avessero rimosso quell'obbrobrio.

Inoltre il controllo WebBrowser appartiene al Namespace: System.Windows.Forms del .Net Framework.

Be', il controllo WebBrowser c'è anche in VB6 (come ocx), quindi non abbiamo indizi che ci aiutino.