Stránka 2 z 3
Re: zákaz spúšťať obe programy naraz
Napsal: 23 pro 2017 23:47
od 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 548 x
Edit2: chýbala tam medzera ale aj tak to nerobí čo by som chcel
Re: zákaz spúšťať obe programy naraz
Napsal: 24 pro 2017 00:00
od 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++.
Re: zákaz spúšťať obe programy naraz
Napsal: 24 pro 2017 00:09
od TK1991
robil som to cez notepad. Skúsil som no žiadna zmena :)
Re: zákaz spúšťať obe programy naraz
Napsal: 24 pro 2017 00:15
od petr22
Udelej znova copy + paste celeho skriptu do Notepadu++.
Re: zákaz spúšťať obe programy naraz
Napsal: 24 pro 2017 09:11
od TK1991
to som spravil a nič. skript nevyhadzuje chybu ale ani nerobí čo by som chcel
Re: zákaz spúšťať obe programy naraz
Napsal: 24 pro 2017 21:49
od 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.
Re: zákaz spúšťať obe programy naraz
Napsal: 25 pro 2017 09:43
od 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 :)
Re: zákaz spúšťať obe programy naraz
Napsal: 25 pro 2017 09:58
od 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.
Re: zákaz spúšťať obe programy naraz
Napsal: 25 pro 2017 10:24
od TK1991
myslíš názvy? tie prvé programy sedia no ten druhý nie.
Re: zákaz spúšťať obe programy naraz
Napsal: 25 pro 2017 11:06
od ITCrowd
Ne nemyslím. Co je na tom složitého? To cos dodal je záložka Aplikace. Nikoli procesy.
ITCrowd píše: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 SubObsah 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.
Re: zákaz spúšťať obe programy naraz
Napsal: 25 pro 2017 12:56
od TK1991
- Bez názvu.jpg (14.47 KiB) Zobrazeno 457 x
nejaká chyba, btw. myslíš procesy na pozadí? lebo tam sa mi tie programy nezobrazujú
Re: zákaz spúšťať obe programy naraz
Napsal: 25 pro 2017 14:15
od 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}!\\