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

...

Moderátor: Mods_senior

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod ITCrowd » 26 kvě 2020 10:20

Tak tady to je:

Kód: Vybrat vše

'**********************************************
'*   Skript kontrolního spouštění programů    *
'*        Vytvořeno pro PC-HELP               *
'**********************************************
'*      Etienn@Script v.1.0 (c) 2020          *
'**********************************************

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, WshShell, Fso
Const ADC = "c:\Program Files (x86)\Google\Chrome\Application\chrome.exe" 'Spousteny program
Const ADCren = "c:\Program Files (x86)\Google\Chrome\Application\chrome.bak" 'Prejmenovany exe
Const Proc = "notepad.exe" 'kontrolovany proces
Set Fso= CreateObject("Scripting.FileSystemObject")

' Prvni spusteni - kontrola jmena
If (Fso.FileExists(ADC)) Then
Fso.MoveFile ADC, ADCren
End If
WScript.Sleep 200

' Kontrola procesu
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 = Proc Then Negativ
Next

Set WshShell = Wscript.CreateObject("Wscript.Shell")
Fso.MoveFile ADCren, ADC
WScript.Sleep 200
WshShell.Run Chr(34) & ADC & Chr(34), 1, True
Fso.MoveFile ADC, ADCren

Set WshShell = Nothing
Set objWMIService = Nothing
Set colProcess = Nothing
Set Fso= 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
   Set Fso= Nothing
   WScript.Quit
End Sub


Text zkopíruj, vlož do notepadu a pojmenuj třeba Launcher.vbs, ulož.

Launcher po spuštění zkontroluje přítomnost chrome.exe, pokud ho najde, přejmenuje ho na chrome.bak. Tím je zajištěno první přejmenování.
Dále otestuje, zda je v paměti přítomen proces notepad.exe. Pokud ho zjistí, vypíše hlášku. Pokud notepad v paměti není, přejmenuje chrome.bak na chrome.exe a spustí ho.
Dále čeká na ukončení programu chrome.exe. Jakmile se program ukončí, přejmenuje chrome.exe na chrome.bak a ukončí se.
Kontrolovaný proces a program jsou uloženy v Const, můžeš si je přepsat dle libosti.

Možná nástraha je v právech, systém nemusí dovolit přejmenování souboru ve složce Program files. To lze řešit:
1. Vytvořit link na laucher, ve vlastnostech linku nastavit vyšší práva (spustit jako správce).
2. Pravoklik na .exe spouštěného programu, záložka zabezpečení a pro sebe nastavit práva na Full Control (úplné řízení).
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Reklama
Uživatelský avatar
TK1991
Level 1.5
Level 1.5
Příspěvky: 138
Registrován: březen 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod TK1991 » 27 kvě 2020 14:13

Cau. Moc som nemal teraz cas to skusat tak som to hodil do PC na minutu a spapalo to skvelo. :thumbup:

Vdaka!

Uživatelský avatar
TK1991
Level 1.5
Level 1.5
Příspěvky: 138
Registrován: březen 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod TK1991 » 24 pro 2020 13:48

Zdravím. Po určitej dobe som preinštaloval windows a začalo mi to vyhadzovať túto chybu. Predtým som s tým problém nemal ale všimol som si že predtým bol chrome nainštalovaný do priečinku "program file (86) a teraz je to v "Program files". Ale možno sa len mýlim. Dá sa to nejako vyriešiť? samozrejme cesty sú správne čo sa týka toho skriptu.

Skúšal som robiť čo píšeš že mám vytvoriť link na "launcher" ale neviem vôbec čo to znamená "vytvoriť link". Ďakujem

ddddddd.jpg

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod ITCrowd » 24 pro 2020 22:09

Pokud jsi nepřidával, či neodebíral žádné řádky a řádek 18 sedí, pak:
- zkontroluj práva k souboru chrome.exe. Účet, který spouští skript, musí mít full control
- zkontroluj cesty ve skriptu
Jinak sem dej ten 18-tý řádek

Dodatečně přidáno po 3 hodinách 21 minutách 3 vteřinách:
Ještě ten launcher - skript někam uložíš. Pravoklik - vytvořit zástupce. Zástupce si dáš na plochu. Pravoklik na zástupce, vlastnosti, čudlík změnit ikonu a navedeš ho na .exe, který má spouštět. Tím bude mít ikonu, jakou potřebuješ.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
TK1991
Level 1.5
Level 1.5
Příspěvky: 138
Registrován: březen 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod TK1991 » 25 pro 2020 15:34

Co myslíš tým skontroľovať práva? Chrome je nainštalovaný tuna:
C:\Program Files\Google\Chrome\Application
Nachádza sa tu chrome.exe
Klikol som pravým, vlastnosti, kompatibilita, spustiť tento program ako správca + som klikol na zmeniť práva pre všetkých užívateľov a klikol som tiež na "spustiť tento program ako správca". Mal si na mysli to alebo niečo iné?

Riadok 18 je:
Fso.MoveFile ADC, ADCren

Vďaka

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod ITCrowd » 25 pro 2020 15:43

Takhle to vypadá na operu:
Full Control = úplné řízení. Účet, pod kterým je skript spouštěn, musí mít práva k chrome.exe na úplné řízení.
Přílohy
Prava.jpg
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
TK1991
Level 1.5
Level 1.5
Příspěvky: 138
Registrován: březen 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod TK1991 » 25 pro 2020 16:01

aaaaaa.jpg


Už to mám ako ty, okrem toho som popridával práva aj pri tých ďalších možnostiach o ktorých som ani nevedel že existujú (konto neznáme atď...) no stále mi vyhadzuje tú istú chybu :(

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod ITCrowd » 25 pro 2020 16:05

Vlož sem ten skript tak jak aktuálně vypadá.
Pod jakým účtem ten skript spouštíš?
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
TK1991
Level 1.5
Level 1.5
Příspěvky: 138
Registrován: březen 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod TK1991 » 25 pro 2020 17:45

Mám v pc len jeden účet..

'**********************************************
'* Skript kontrolního spouštění programů *
'* Vytvořeno pro PC-HELP *
'**********************************************
'* Etienn@Script v.1.0 (c) 2020 *
'**********************************************

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, WshShell, Fso
Const ADC = "C:\Program Files\Google\Chrome\Application\chrome.exe" 'Spousteny program
Const ADCren = "C:\Program Files\Google\Chrome\Application\chrome.bak" 'Prejmenovany exe
Const Proc = "PokerStars.exe" 'kontrolovany proces
Set Fso= CreateObject("Scripting.FileSystemObject")

' Prvni spusteni - kontrola jmena
If (Fso.FileExists(ADC)) Then
Fso.MoveFile ADC, ADCren
End If
WScript.Sleep 200

' Kontrola procesu
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 = Proc Then Negativ
Next

Set WshShell = Wscript.CreateObject("Wscript.Shell")
Fso.MoveFile ADCren, ADC
WScript.Sleep 200
WshShell.Run Chr(34) & ADC & Chr(34), 1, True
Fso.MoveFile ADC, ADCren

Set WshShell = Nothing
Set objWMIService = Nothing
Set colProcess = Nothing
Set Fso= 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
Set Fso= Nothing
WScript.Quit
End Sub

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod ITCrowd » 25 pro 2020 17:58

Ptal jsem se:
ITCrowd píše:Pod jakým účtem ten skript spouštíš?

Neptal jsem se, kolik účtů máš.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
TK1991
Level 1.5
Level 1.5
Příspěvky: 138
Registrován: březen 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod TK1991 » 25 pro 2020 18:04

Neviem čo znamená daná otázka :(

EDIT: ak pôjdem do ovládacieho panelu a kliknem na pouzivatelske konta tak tam mam len jedno konto a pod tym kontom pise správca..

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod ITCrowd » 25 pro 2020 19:35

Název účtu :-)
Zkus tohle:
pravoklik na nadřazenou složku - tedy v tomto případě "Application".
záložka zabezpečení/upravit
klik na Přidat
Klik na upřesnit
Klik na Najít
Zobrazí se ti všechny účty. Vyber ten svůj, nastav mu Úplné řízení a zvol v nastavení pro všechny objekty ve složce.
Přílohy
Prava.png
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Lze udělat skript?
    od User123456 » 21 dub 2023 19:01 » v Vše ostatní (sw)
    1
    1150
    od Grander Zobrazit poslední příspěvek
    21 dub 2023 19:21
  • Skript na vytvoreni zastupce slozky
    od ajr » 01 úno 2024 21:21 » v Windows 11, 10, 8...
    1
    585
    od ITCrowd Zobrazit poslední příspěvek
    02 úno 2024 08:36
  • PC po vypnutí stále běží
    od Donator_HD » 07 pro 2023 00:25 » v Problémy s hardwarem
    0
    1382
    od Donator_HD Zobrazit poslední příspěvek
    07 pro 2023 00:25
  • PC po vypnutí stále běží (větráky, periferie, HDD)
    od Kvp2 » 06 pro 2023 00:47 » v Problémy s hardwarem
    10
    2733
    od Kvp2 Zobrazit poslední příspěvek
    14 pro 2023 00:12
  • Nově postavené pc běží, ale není obraz Příloha(y)
    od JMaSha » 19 srp 2023 06:15 » v Problémy s hardwarem
    22
    1603
    od JMaSha Zobrazit poslední příspěvek
    19 srp 2023 19:29

Zpět na “Vše ostatní (sw)”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů