codice vbs

[trittico69]

se voglio far aprire exsplorer con un codice vba scrivo

DIM OS
set oS = WScript.CreateObject("WScript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
With ie
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("iexplore.exe



ma se volessi far partire un programma/software/utility come devo modificarlo?
grazie

 

[Mursey]

Hai scritto pure troppo...

Per aprire un exe basta la seconda parte :

Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run("ciccio.exe")

Se vuoi imparare a programmare devi capire cosa stai facendo.
Il codice che hai riportato aveva gia' la risposta alla tua domanda.

 

[trittico69]

ho fatto in questo modo

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("C:\ufficio_servizi\ufficio_servizi.exe")
WScript.Sleep 1000
dim os
set OS = WScript.CreateObject("WScript.Shell")

os.SendKeys "nome utente"
WScript.Sleep 1000
OS.SendKeys "{tab}"
WScript.Sleep 1000
OS.SendKeys "password"
OS.SendKeys "{ENTER}"

aprendo il programma mi esce una finestra dove devo digitare nome utente e password ma come fatto sopra mi apre il programma e mi si apre anche il tasto start dei programmi in basso a sinistra dello schermo.
dove sbaglio?

 

[Mursey]

Invece di usare un'altro oggetto OS prova con WshShell.

Occhio che funziona solo se ufficio_servizi si apre con il fuoco sul campo nome utente.

 

[trittico69]

mi farebbe comodo un altro comando inserito in questo...il documento di testo dove ho inserito il codice e rinominato l'estensione in .vbs l'ho compresso con 7z, per poter metterci la password, quindi quando vado a cliccarci sopra mi resta aperta la finestra di 7z come posso richiuderla in automatico ?
grazie