Newsgroup: it.comp.aiuto
Titolo: aiuto per script

Salve,
non so se è questo il posto giusto ma ci provo: avrei bisogno di uno
script (è giusto il termine?) da posizionare sul desktop (di win98se).
Al doppio click mi deve far partire un programma (Hauppage wintv, un
normale programma di Televideo) posizionato in:
C:\Programmi\vtplus\vtplus32.exe
dopo un ritardo di circa 5 o 10 secondi poi farei partire uno script che
fa parte del precedente programma:
C:\Documenti\Tradx9.vts.
In pratica:
1) avvia vtplus32 e caricalo completamente
2) aspetta 10 secondi (in modo che il vtplus32 sia attivo)
3) avvia tradx9
Come si può fare a scrivere qualcosa?
Grazie e saluti

 Come si può fare a scrivere qualcosa?
si puo far meglio[1] :
set oShell = CreateObject("WScript.Shell")
oShell.run"C:\Programmi\vtplus\vtplus32.exe"
WScript.Sleep 10000
oShell.run"C:\Documenti\Tradx9.vts"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
'[1]
set oShell = CreateObject("WScript.Shell")
oShell.run"C:\Programmi\vtplus\vtplus32.exe"
While not oShell.AppActivate("CAPTION DELLA FINESTRAvtplus32.exe") '[2]
wscript.Sleep 500
Wend
oShell.run"C:\Documenti\Tradx9.vts"
'[2]
La caption vtplus32.exe  la ottieni semplicemente lanciando a mano vtplus32.exe
aspetti che si carichi e poi Control+ALT+CANC  e copi ESATTAMENTE [3]
cosa appare nel task manager
'[3]  AppActivate e'  CaSe SeNsitIve   perciodiquiche'  al posto di
CAPTION DELLA FINESTRAvtplus32.exe    se nel task appare  VtPlus
devi metterci ESATTAMENTE  VtPlus   e NON  VTplus
--
Fosco

 > C:\Documenti\Tradx9.vts.
L'estensione vts e' registrata ?
http://filext.com/detaillist.php?extdetail=vts
se NON devi far partire anche il programma che la gestrisce
tipo c:\windows\notepad.exe c:\test.txt
esempio
set oShell = CreateObject("WScript.Shell")
oShell.run"C:\Programmi\vtplus\vtplus32.exe"
WScript.Sleep 10000
oShell.run"c:\Prorammi\prog.exe C:\Documenti\Tradx9.vts"
PS:
'oShell.run NON accetta programmi con spazi
'per esempio questo NON funge
set oShell = CreateObject("WScript.Shell")
oShell.run"C:\Programmi\Internet Explorer\IEXPLORE.EXE"
'per ovviare
set oShell = CreateObject("WScript.Shell")
oShell.run"""C:\Programmi\Internet Explorer\IEXPLORE.EXE"""
' o la path in 8.3
'C:\PROGRA~1\INTERN~1\IEXPLORE.EXE
--
Fosco

 "Fosco"
Ciao Fosco,
non so se avevi letto l'ultimo post...
Volevo ringraziarti per lo script su VLC:
ora fa il suo dovere...
Grazie ancora
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 oShell.run"C:\Documenti\Tradx9.vts"
WOW, grande, funziona a meraviglia.
Ti vorrei chiedere altre 2 cose:
che codice bisogna scrivere per rispondere automaticamente "Sì" alla
richiesta di aggiornare automaticamente i dati di una cartella Excel
alla sua apertura?
All'apertura di una seconda cartella come far attivare automaticamente
le macro in essa contenute?
Grazie ancora e saluti

 ora fa il suo dovere...
Uhh perfetto .. se hai bisogno chiedi pure
--
Fosco

 le macro in essa contenute?
NON me ne intendo di excell .. magari e cosa che si puo fare
senza fare strani giri e ti conviene domandare direttmente qui :
news:free.it.comp.officexp.excel
news:microsoft.public.it.office.excel
se non risolvi riposta che si prova un workaround ... NON mettere
excel nel soggetto che l'ho messo tra i filtri di OE
Si puo' fare di meglio con altri metodi eccoti uno spunto in vbs
2 script :
'1 ' lancialo ma NON cliccare sul messagbox
set oShell = CreateObject("WScript.Shell")
  MsgBox "MESSAGEBOX"
'2 lancia questo che clicchera sul messagebox
Set oShell = CreateObject("WScript.Shell")
oShell.AppActivate "Vbscript"  '(focus)
WScript.Sleep 1500 ' sleep per darti tempo e vedere cosa fa'
oShell.AppActivate "Vbscript"  ' di nuovo per sicurezza
oShell.SendKeys"{ENTER}" ' mando invio si puo' mandare
' alternativamente anche S o N o O per si no ok
''' oShell.SendKeys"S"
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
--
Fosco