[ Grozdanic_Predrag @ 05.08.2013. 14:27 ] @
Pozdrav svima.

Napravio sam malu skriptu:
Set WshShell = CreateObject("WScript.Shell")
Do
WshShell.Run """C:\Program Files\Internet Explorer\iexplore.exe"" -k d:\site\site.html"

set service = GetObject ("winmgmts:")

for each Process in Service.InstancesOf ("Win32_Process")
If Process.Name = "ssmypics.scr" then
WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")
for each Process in Service.InstancesOf ("Win32_Process")

If Process.Name = "ssmypics.scr" then
End If
next

End If
next


WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")

Loop

i ona bi trebala startuje IE8 i u slucaju da se ugasi isti (Alt+F4) da se odmah startuje. Vec je uradjeno duponjavanje Regisrty-a da startuje tu skriptu umesto explorer-a.
Takodje, set-ovan je screensaver koji treba da se startuje u odredjeno vreme neaktivnosti neki screensaver.
Ono sto nemogu da namestim u VBS skripti je da se detektuje kada se ugasi screensaver i kada se to dogodi, da pogasi sve IE8 i da ode na pocetak da se startuje opet prvi IE8.

Znaci, jedna beskonacna petlja.

Svaki savet je jako potreban.

[ Grozdanic_Predrag @ 07.08.2013. 09:05 ] @
116 pregleda a nijedan odgovor?!?! Mislim da su ljudi na godisnjem...

Malo sam razradio VBS ali mi opet treba pomoc a kako vidim, uradicu sve bez pomoci ES... Barem nek neko pogleda i nek da neki predlog...
Sto se tice novog VBS-a, nemogu na napravim beskonacnu petlju...
Svaki predlog bi bio vise nego koristan!

Set WshShell = CreateObject("WScript.Shell")

'funkcija za startovanje IE
Function StartIE
IsItSCsVStarted = False 'IsItSCVStarted je podatak koji govori da li je startovan SCsV ili nije
WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")
WshShell.Run """C:\Program Files\Internet Explorer\iexplore.exe"" d:\site\site.html"
IEStarted = True
End Function

'funkcija za testiranje da li se startovao screensaver
Function CheckProcessSCV
set service = GetObject ("winmgmts:")
for each Process in Service.InstancesOf ("Win32_Process")
If Process.Name = "ssmypics.scr" then
IsItSCsVStarted = True
Exit For
End If
next
End Function

'funkcija za testiranje close-a screensaver-a
Function CheckClose
for each Process in Service.InstancesOf ("Win32_Process")
If Process.Name = "ssmypics.scr" then
WScript.Sleep 1000
else
WshShell.Run ("c:\windows\system32\pskill.exe iexplore.exe")
IsItSCsVStarted = False
End If
next
End Function

Do
'startovanje funkcije za startovanje IE; IEStarted = False -- nije startovan IE
if IEStarted = False then
Call StartIE
else

'check-iraj da li se startovao screensaver
If IsItSCsVStarted = False then
call CheckProcessSCV
else

'ukoliko je startovan SCSV testiraj kada ce se ugasiti
If IsItSCsVStarted = True then
callCheckClose
Else

Loop

Tacnije za ovaj Loop na kraju kaze gresku 'loop' without 'do' a do sam vec postavio.
[ loto17 @ 07.08.2013. 14:29 ] @
A, da u Do petlju dodas End If naredbe koje nedostaju ;)

Mozda nesto ovako:
Code:

Do
'startovanje funkcije za startovanje IE; IEStarted = False -- nije startovan IE
If IEStarted = False Then
  Call StartIE
Else

'check-iraj da li se startovao screensaver
 If IsItSCsVStarted = False Then
    Call CheckProcessSCV
 Else
  'ukoliko je startovan SCSV testiraj kada ce se ugasiti
    Call CheckClose
  End If
 End If
Loop





[Ovu poruku je menjao loto17 dana 07.08.2013. u 15:59 GMT+1]
[ Grozdanic_Predrag @ 07.08.2013. 20:59 ] @
@loto17
Hvala puno na ispravci.
Uzgred, kod sam uz saradnju sa programerom ipsravio i dopunio i sad radi onako kako je i zamisljeno kao pravi kiosk.

Pozz.