MsgBox ("Do you want to start the autoclicker?", vbOkOnly, "Autoclicker")
CreateObject("WScript.Shell").Run("""C:\Users\Henry\Desktop\Fun.vbs""")
MsgBox ("Do you want to stop the autoclicker?", vbOkOnly, "Autoclicker")
ответ
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process")
For Each objItem in colItems
'msgbox objItem.ProcessID & " " & objItem.CommandLine
If objItem.name = "Calculator.exe" then objItem.terminate
Next
Это убивает calculator.exe. Измените его на wscript.exe. Возможно, вы захотите проверить командную строку, если хотите просто убить fun.vbs.
Спасибо, это действительно помогает – Jontzjr
Следующая процедура убивает все процессы, командные строки которых содержат указанную строку. 3 строки ниже подпрограммы предназначены для тестирования. Мы приостанавливаем процедуру, показывая окно сообщения, и когда вы отклоняете окно сообщения, мы убиваем экземпляр сценария, поэтому второе окно сообщения не появляется. Когда вы используете его, вы хотите заменить последние 3 строки с
KillProcesses "Fun.vbs"
я был бы осторожен с использованием этого и указать, как большая часть командной строки, как это возможно, чтобы убедиться, что я абсолютно положительно совпадают только процессы, я хочу прекратить. Вы можете изменить Диспетчер задач и добавить столбец для отображения командной строки для каждого запущенного процесса. В приведенной ниже подпрограмме поиск в командной строке не зависит от регистра.
Option Explicit
Sub KillProcesses(strPartOfCommandLine)
Dim colProcesses
Dim objProcess
Dim lReturn
' Get list of running processes using WMI
Set colProcesses = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Process")
For Each objProcess in colProcesses
If (Instr(1, objProcess.Commandline, strPartOfCommandLine, vbTextCompare) <> 0) Then
lReturn = objProcess.Terminate(0)
End If
Next
End Sub
Msgbox "Before being killed"
KillProcesses "KillProcesses.vbs"
Msgbox "After being killed"
Я сделал перед сценарием, который спрашивает вас, что вы делали vbscript, чтобы убить и записать результат в файл.
Так просто, дать попробовать:
Option Explicit
Dim Titre,Copyright,fso,ws,NomFichierLog,temp,PathNomFichierLog,OutPut,Count,strComputer
Copyright = "[© Hackoo © 2014 ]"
Titre = " Process "& DblQuote("Wscript.exe") &" running "
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("Wscript.Shell")
NomFichierLog="Process_WScript.txt"
temp = ws.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,1)
Count = 0
strComputer = "."
Call Find("wscript.exe")
Call Explorer(PathNomFichierLog)
'***************************************************************************************************
Function Explorer(File)
Dim ws
Set ws = CreateObject("wscript.shell")
ws.run "Explorer "& File & "\",1,True
end Function
'***************************************************************************************************
Sub Find(MyProcess)
Dim colItems,objItem,Processus,Question
Set colItems = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process " _
& "Where Name like '%"& MyProcess &"%' AND NOT commandline like '%" & wsh.scriptname & "%'",,48)
For Each objItem in colItems
Count= Count + 1
Processus = Mid(objItem.CommandLine,InStr(objItem.CommandLine,""" """) + 2) 'Extraction of the commandline script path
Processus = Replace(Processus,chr(34),"")
Question = MsgBox ("Did you want to stop this script : "& DblQuote(Processus) &" ?" ,VBYesNO+VbQuestion,Titre+Copyright)
If Question = VbYes then
objItem.Terminate(0)'Kill this process
OutPut.WriteLine DblQuote(Processus)
else
Count= Count - 1 'decrement the counter -1
End if
Next
OutPut.WriteLine String(100,"*")
OutPut.WriteLine count & Titre & " were stopped !"
End Sub
'**********************************************************************************************
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************
- 1. Может кто-нибудь помочь мне исправить эту программу «argv»?
- 2. Может кто-нибудь помочь мне исправить эту программу
- 3. Может ли кто-нибудь помочь мне отладить мою программу
- 4. Может ли кто-нибудь помочь мне оптимизировать эту инструкцию mysql?
- 5. Может ли кто-нибудь помочь мне решить эту проблему?
- 6. Может ли кто-нибудь помочь мне исправить эту формулу excel?
- 7. Может ли кто-нибудь помочь мне исправить эту случайную матрицу
- 8. Может ли кто-нибудь помочь мне упростить/ускорить эту функцию?
- 9. Может ли кто-нибудь помочь мне исправить мою запись этой процедуры и запустить эту программу?
- 10. Может ли кто-нибудь помочь мне устранить эту программу (она переносит матрицу с помощью указателей)
- 11. Может кто-нибудь помочь мне понять эту ошибку переполнения стека
- 12. Может кто-нибудь помочь мне решить эту проблему в C#
- 13. Может кто-нибудь помочь мне дальше в эту игру Galaga?
- 14. Может кто-нибудь помочь мне добавить категорию в эту должность?
- 15. [Swift2, XCode7] может помочь мне решить эту ошибку в JSON
- 16. Может кто-нибудь помочь мне отладить мою программу python?
- 17. может ли код сделать эту программу быстрее?
- 18. может кто-нибудь помочь мне перевести эту программу c на сборку MIPS?
- 19. Может ли помочь мне разрешить события мыши?
- 20. Почему я не могу закрыть эту программу?
- 21. МОЖЕТ ЛИ ПОМОЧЬ мне с оптимизацией sp?
- 22. Может кто-нибудь помочь мне понять следующую программу python?
- 23. Может ли кто-нибудь мне помочь?
- 24. Может ли кто-нибудь помочь мне упростить?
- 25. Может кто-нибудь помочь мне векторизовать/ускорить эту петлю Matlab?
- 26. Может ли кто-нибудь объяснить эту программу?
- 27. Может кто-нибудь помочь мне понять эту ошибку
- 28. Как мне выполнить эту программу?
- 29. Может кто-нибудь помочь мне понять эту ошибку NoMethodError?
- 30. может любой орган помочь мне перенаправить эту страницу
Лучше формат кода. Было бы полезно более подробное описание предполагаемого использования кода. –