zákaz spúšťať obe programy naraz Vyřešeno

[TK1991]

áno mám ho nainstalovaný, vlastne ten skript hovorí že ak nemám spustený chrome tak môžem spustiť combonator.exe? alebo sa mýlim?

Edit:keď ho dám spustiť vyhodí túto chybu:

Bez názvu.jpg (14.41 KiB) Zobrazeno 546 x

Edit2: chýbala tam medzera ale aj tak to nerobí čo by som chcel

[Reklama]

[petr22]

Cim ten soubor editujes?

Vypada to ze tam mas jine znaky nez v tom skriptu v odkazu. Spousta Windows programu nepracuje korektne s textovymi soubory a pridava ti tam co nema.

Skus pouzit na editaci souboru Notepad++.

[TK1991]

robil som to cez notepad. Skúsil som no žiadna zmena :)

[petr22]

Udelej znova copy + paste celeho skriptu do Notepadu++.

[TK1991]

to som spravil a nič. skript nevyhadzuje chybu ale ani nerobí čo by som chcel

[ITCrowd]

Můžu to zkusit napsat ve vbs.
Jde tedy o to, aby se program nespustil pokud poběží chrome? Skript si zjistí jeho přítomnost v procesech.
Dále potřebuji přesné umístění programu, který se má spouštět - např. C:\Program Files\muj Program.exe.
Dále, chceš ošetřit i to, že pokud bude spuštěn ten program, pak se chrome nespustí?
Uvidím jak to půjde, ale do konce roku by mohlo být hotovo.
Pokud budeš chtít věnovat nějakou částku, pak ji můžeš věnovat na provoz tohoto fóra.

[TK1991]

Ide o to aby sa tieto programy:
"C:\Program Files (x86)\Combonator\combonator.exe"
"C:\Program Files (x86)\PokerSnowie\PokerSnowie.exe"
"C:\Program Files (x86)\Power-Equilab\Power-Equilab.exe"

nemohli stretnúť s (aby ich nebolo možné spustiť ak beži):
"C:\Program Files (x86)\PokerStars.EU\PokerStarsUpdate.exe"
a naopak.
Predstavujem si to tak že napr beží program combonator a ja počas toho idem spustiť program pokerstars tak mi vyskoči okno ž informáciou že program nie je možne spustiť lebo..
Ten chrome som tam dal iba ako ukážku, vôbec si ho nevšímaj :)

[ITCrowd]

OK. Ještě potřebuji vědět, jak ty programy vypadají v procesech.
Stiskneš kombinaci Ctrl+Shift+Esc, tím vyvoláš správce úloh. Klikneš na záložku Procesy. Pravděpodobně to bude stejné, ale kdyby ne, je lepší to zjistit.

[TK1991]

myslíš názvy? tie prvé programy sedia no ten druhý nie.

[ITCrowd]

Ne nemyslím. Co je na tom složitého? To cos dodal je záložka Aplikace. Nikoli procesy.

OK. Ještě potřebuji vědět, jak ty programy vypadají v procesech.
Stiskneš kombinaci Ctrl+Shift+Esc, tím vyvoláš správce úloh. Klikneš na záložku Procesy. Pravděpodobně to bude stejné, ale kdyby ne, je lepší to zjistit.

Dodatečně přidáno po 1 hodině 27 minutách 3 vteřinách:
Tady to je:

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)Audacityaudacity.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

Obsah okna Code si zkopíruj, vlož do notepadu a ulož s příponou ".vbs".
Do proměnné ADC si dáš cestu k programu, co chceš spouštět.
Řádek "If objProcess.Name = "chrome.exe" Then Negativ" testuje proces, který nesmí běžet (zde chrome.exe).
U toho updatu budeš muset testovat procesy tři => doplníš si další dva řádky If.
Pro každý program si vytvoříš zvlášť skript, kterým budeš program spouštět. Skript si nejdříve otestuje proces, a pokud jej nenajde, pak program spustí. Pokud najde kolizní proces, vypíše varovnou hlášku a ukončí se.

[TK1991]

Bez názvu.jpg (14.47 KiB) Zobrazeno 455 x

nejaká chyba, btw. myslíš procesy na pozadí? lebo tam sa mi tie programy nezobrazujú

[ITCrowd]

Uvedená chyba může být chyba syntaxe - zkontroluj, zda je vše, tak jak je v příkladě.
další možnost je, že nefunguje wmi konzola - zkontroluj, zda v systému běží "Služba WMI" a má nastaveno spouštění "Automaticky".
Ověříš přes příkazový řádek, do kterého zadáš příkaz "wmic" (bez úvozovek). Konzola by se měla ohlásit:
wmic:root\cli>
Je to chyba syntaxe - z nějakého důvodu se nepřenesly dvě zpětná lomítka. Uprav si řádek končící:
=impersionate}!\\