Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Problema Timer
Forum - Visual Basic 6 - Problema Timer

Avatar
LucAStyle (Normal User)
Newbie


Messaggi: 10
Iscritto: 31/01/2008

Segnala al moderatore
Postato alle 15:42
Venerdì, 01/02/2008
Ciao ho un problema perchè non riesco a far funzionare il timer e mi serve il vostro aiuto.

Vorrei che premendo un commandbutton mi si aprisse una pagina web

(questo è il codice
Dim shell As Object
        shell = CreateObject("shell.application")
        shell.open("http://www.pompeiluca.it")
)

e dopo un intervallo di 5 secondi vorrei che automaticamente terminasse il processo iexplore.exe

(questo è il codice
Dim procs As Object, proc As Object
        procs = GetObject("winmgmts:").ExecQuery("Select * FROM Win32_Process WHERE Name='iexplore.exe'")
        For Each proc In procs
            proc.Terminate()
        Next
)

Aiutatemi!:k:

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 16:05
Venerdì, 01/02/2008
ma questo programma in che linguaggio lo stai realizzando? VB6 o vb.net? perchè prima hai scritto un topic, e il codice che hai postato era vb.net e io ti ho detto che per problemi relativi al vb.net c'è la sezione apposita(.NET World), perchè in questa si parla di problemi relativi al vb6.

comunque un timer in VB6 su utilizza in questo modo:

Codice sorgente - presumibilmente VB.NET

  1. timer1.enable=true 'avvio del timer
  2. timer1.interval=5000 'setta 5 secondi
  3.  
  4. Private Sub Timer1_Timer()
  5. 'qui scrivi il codice da eseguire
  6. End Sub


Ciao.

Ultima modifica effettuata da LuigiBiasi il 01/02/2008 alle 16:11
PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 13:47
Sabato, 02/02/2008
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Timer1_Timer()
  2. 'qui scrivi il codice da eseguire
  3. End Sub



Preciamente,io non farei come te,ma se ho capito bene apri la pagina web appena apri il prog,e dopo 5 sec dall'apertura chiudi il processo...Allora,aggiungi un timer con interval a 5000 e enabled = true e metti

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Timer1_Timer()
  2. For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name='iexplore.exe'")
  3.      obj.Terminate
  4. Next
  5. End sub



MEntre in form load metti :
Codice sorgente - presumibilmente Plain Text

  1. Shell "http://www.ciao.it"


PM Quote