Potrebna pomoc - skripta za restart IE

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zdravo drugari.
Ja nisam programer pa mi treba vasa pomoc. Dakle kao sto sam napisao u naslovu, potrebna mi je vbs skripta koja ce da gasi internet explorer i da ga pali da svaka 2 minuta. Da li bi mogao neko od vas da mi pomogne i napise mi skriptu?
Hvala unapred!

• 2Ovo se svidja korisnicima: ThePhilosopher, E.L.I.T.E.
  
  Registruj se da bi pohvalio/la poruku!

Svrha?

Imaj na umu da će IE11 (a možda i starije verzije) da nude "Restore session" ako se proces nasilno gasi (a ako se ne gasi nasilno, onda nije sigurno da će da se ugasi; npr. ako su otvorena bar dva taba onda neće).


Const nRestartAfter = 120 <- 2 min, možeš da menjaš po želji, bitno da je u sekundama.

+ RestartIE.vbsOption Explicit Dim Shell, FSO, nInitialTimerState, nLastTimerState Set Shell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Const nRestartAfter = 120 nInitialTimerState = Timer nLastTimerState = nInitialTimerState Sub Run(sFile, sAttr, nShowWindow, bWait)   On Error Resume Next   Shell.Run Chr(34) & sFile & Chr(34) & sAttr, nShowWindow, bWait   On Error Goto 0 End Sub Sub CheckAndRestart Dim nCurrentTimerState, nTimeDiff   WScript.Sleep(500)   nCurrentTimerState = Timer   If nCurrentTimerState < nLastTimerState Then nCurrentTimerState = nCurrentTimerState + 86400   nTimeDiff = nCurrentTimerState - nLastTimerState   If nTimeDiff < nRestartAfter Then Exit Sub   Run "taskkill", "/f /im iexplore.exe", 0, True   Run Shell.ExpandEnvironmentStrings("%ProgramFiles%") & "\Internet Explorer\iexplore.exe", "", 1, False   nLastTimerState = nCurrentTimerState End Sub Run "taskkill", "/f /im iexplore.exe", 0, True Run Shell.ExpandEnvironmentStrings("%ProgramFiles%") & "\Internet Explorer\iexplore.exe", "", 1, False Do   CheckAndRestart Loop

• 1Ovo se svidja korisniku: ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

Napisano: 16 Feb 2014 0:44

Internet Explorer mi je neophodan za prikazivanje odredjenog sadrzaja u real time-u. Ne znam bas kako da ti objasnim, ali potrebno mi je da su podaci koji se prikazuju uvek tacni. Web page uzima vrednosti sa PLC-a i ispisuje ih. Posle nekog vremena IE prestane da radi jednostavno i neophodno je da se ugasi i upali ponovo, a u home page sam stavio link koji koristim. Zato mi je potrebna skripta koja gasi IE i opet ga pali na odredjeno vreme.
Hvala puno za ovu skriptu. Isprobacu je i reci cu kakav je rezultat.

Dopuna: 26 Feb 2014 7:14

@dr_Bora

Ovo je super. Sljaka kao leptir. Jedino sto je problemcic je sto u Task Manager-u vlada ludilo



Jel je moguce da se ubaci komanda za gasenje skripte?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Šta pokreće te procese i šta rade?


Hoćeš da se po gašenju iexplore.exe gasi i wscript.exe?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa da. Bilo bi super ako bi i to moglo.
Nemam pojma sta pokrece ovaj proces. Moguce nesto uz IE... Je ne sais pas.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

OK, ovo treba da sačuvaš kao RestartIE.vbs da bi radilo.

Prosto, wscript hostuje i samu ovu skriptu pa se ne može tek tako kill-ovati svaki proces, već se mora odraditi filtriranje po komandnoj liniji (zato je bitno ime skripte).

Option Explicit Dim Shell, FSO, nInitialTimerState, nLastTimerState, objWMIService, colProcesses, objProcess Set Shell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Const nRestartAfter = 120 nInitialTimerState = Timer nLastTimerState = nInitialTimerState Sub Run(sFile, sAttr, nShowWindow, bWait)   On Error Resume Next   Shell.Run Chr(34) & sFile & Chr(34) & sAttr, nShowWindow, bWait   On Error Goto 0 End Sub Sub CheckAndRestart Dim nCurrentTimerState, nTimeDiff   WScript.Sleep(500)   nCurrentTimerState = Timer   If nCurrentTimerState < nLastTimerState Then nCurrentTimerState = nCurrentTimerState + 86400   nTimeDiff = nCurrentTimerState - nLastTimerState   If nTimeDiff < nRestartAfter Then Exit Sub   Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")   For Each objProcess in colProcesses     If (LCase(objProcess.Name) = "iexplore.exe") Or (LCase(objProcess.Name) = "wscript.exe") And (InStr(1, objProcess.CommandLine, "restartie", vbTextCompare) = 0) Then       On Error Resume Next       objProcess.Terminate       On Error Goto 0     End If   Next   Run Shell.ExpandEnvironmentStrings("%ProgramFiles%") & "\Internet Explorer\iexplore.exe", "", 1, False   nLastTimerState = nCurrentTimerState End Sub Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process") For Each objProcess in colProcesses   If (LCase(objProcess.Name) = "iexplore.exe") Or (LCase(objProcess.Name) = "wscript.exe") And (InStr(1, objProcess.CommandLine, "restartie", vbTextCompare) = 0) Then     On Error Resume Next     objProcess.Terminate     On Error Goto 0   End If Next Run Shell.ExpandEnvironmentStrings("%ProgramFiles%") & "\Internet Explorer\iexplore.exe", "", 1, False Do   CheckAndRestart Loop

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da li mogu da promenim ime file-a koji se startuje tako da ne pokrece ie.exe nego neku drugu vbs skriptu? Da li nece stvoriti probleme ako pokrecem drugu vbs skriptu umesto ie.exe?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa, ne znam sta tacno pokusavas da uradis, ali ne vidim sta bi moglo da bude problem.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala puno na pomoci! Dobio sam sve sto sam pozeleo.

O cemu se radi?
Koristim IE za prikazivanje nekog sadrzaja koji se konstantno menja. To su u glavnom neke slike. Imam skriptu da se IE refresh-uje na odredjeno vreme jer ako se ne refresh-uje desi se da zakuca i sliku ne prikazuje.
Posle nekog vremena primetio sam da ni refresh ne pomaze nego mora da se ugasi/upali da bi proradio. Zato mi je bila potrebna skripta koja ce to da radi. Skripta koja refresh-uje stranu je takodje vbs.
Verovatno bi cak mogla i da se doda u ovu skriptu, ali vise mi odgovara ovako jer kada poziva vbs skriptu za paljenje - ne trazi "Restore session".

Sta da kazem sem HVALA PUNO!!!! Dodjem pice!!!