Skript ktorý kontroľuje či beží proces...

[TK1991]

zalezi naco to potrebujes?

Tejto otazke asi nerozumiem. Proste nechcem aby dochadzalo k tomu te spustim dve programy v jednom case.

Budem to pouzivat len ja vo svojom pocitaci. Dolezite pre mna je aby som to nastavil iba raz a nemusel by som to robit pri kazdom spusteni PC

[Reklama]

[Diallix]

dobre, nakodim to, postnem to tu. precitaj si potom spravu odomna.

[ITCrowd]

Pokud by ti stačilo pouze upravit spouštění - něco jako launcher, pak stačí skript.
Výhoda je ta, že nic neběží trvale, nevýhoda je ta, že musíš např. na ploše vytvořit ikonu pro spouštění programu. A pokud skript někam uložíš a na ploše vytvoříš zástupce pro spouštění skriptu, pak tomuto zástupci můžeš i změnit ikonu na ikonu spouštěného programu.
Vzorový kód spustí audacity pouze v případě, že neběží chrome.

Kód: Vybrat vše

'**********************************************
'*   Skript kontrolního spouštění programů    *
'**********************************************
'*      e.t.script v.1.0 (c) 2017             *
'**********************************************

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, WshShell
Const ADC = "c:\Program Files (x86)\Audacity\audacity.exe"

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")

For Each objProcess in colProcess
If objProcess.Name = "chrome.exe" Then Negativ
Next

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run Chr(34) & ADC & Chr(34)

Set WshShell = Nothing
Set objWMIService = Nothing
Set colProcess = Nothing
WScript.Quit

' Negative
Sub Negativ
   MsgBox "Program nelze spustit!" & vbcrlf & "Detekován proces: " & objProcess.Name ,vbOKOnly + vbCritical, "UPOZORNĚNÍ!" 
   Set objWMIService = Nothing
   Set colProcess = Nothing
   Set WshShell = Nothing
   WScript.Quit
End Sub

Kód satčí zkopírovat, vložit do notepadu a uložit s příponou .vbs.

[TK1991]

To mi prave nestaci. Lebo ak omylom otvorim program nie cez ten skript tak mam problem. Xize problem sa ciastocne vyriesi ale nie uplne.

[ITCrowd]

I to by se dalo vyřešit. Třeba přejmenováním toho .exe souboru. Pak by jinak spustit nešel, ledaže by sis ho úmyslně přejmenoval.

[TK1991]

ktorý konkrétne exe súbor? Dajme tomu že sa bavíme o chrome. Pojdem do program files nájdem zložku google a daný súbor ktorým sa spúšťa chrome premenujem. Chrome mi ide spustiť tak či tak. Alebo ako si to myslel?

[ITCrowd]

Musí se přejmenovat to exe. Pak wokna neví, že jde o spustitelný soubor.
Když přejmenuješ chrome.exe na např. chrome.bak, nespustíš ho.

[TK1991]

Ale v takomto prípade to nespustím už nikdy ani cez ten skript.

[ITCrowd]

Ten skript bude fungovat jako launcher. Spustíš skript, ten zkontroluje, zda není kritický proces v paměti, přejmenuje chrome.bak na chrome.exe, spustí. Vyčká do ukončení chrome.exe. Jakmile se chrome.exe ukončí, skript přejmenuje chrome.exe na chrome.bak a ukončí se.

[TK1991]

ITCROWD: nemal by si zaujem to spravit? Kolko by ma to vyslo?

[ITCrowd]

Myslel jsem, že ses dohodl s diallixem.
Můžu to zkusit. Stát tě to nebude nic, pokud bys chtěl něco zaplatit, pak můžeš přispět na provoz fóra.

[TK1991]

Nemá čas. Tak ťa o to poprosím, určite prispejem. Vďaka