[VBS] Process Find and Activate

[VBS] Process Find and Activate

vbs script 입니다.

Process ID 를 찾아서 Activate 해주니까 쉽게 동작합니다.

예제는 PotPlayer 라는 동영상 재생용 멀티미디어 프로그램이고

현재 실행된 프로세스를 Name을 통해 찾고

가장 마지막에 실행되어있는 프로세스를 활성화시켜서 SendKeys 로 전체화면 설정,

프로세스가 없으면 새롭게 실행시켜 주고 SendKeys로 전체화면 설정.

 

Set WshShell = WScript.CreateObject("WScript.Shell")
Dim oWMI, oQuery, oProc, iCount, LastProc
Set oWMI = GetObject("winmgmts:")
Const ProcessName = "PotPlayer"
Set oQuery = oWMI.ExecQuery("SELECT * FROM win32_process WHERE Name LIKE '%" & ProcessName & "%'")

iCount = 0
For Each oProc In oQuery
	Set LastProc = oProc
	iCount = iCount + 1
Next

If iCount = 0 Then
	WshShell.Run "PotPlayer64.exe"
	WScript.Sleep(3000)
	WshShell.AppActivate "PotPlayer"
	WScript.Sleep(500)
	WshShell.SendKeys "%{ENTER}"
Else
	WshShell.AppActivate LastProc.ProcessId
	WScript.Sleep(1000)
	WshShell.SendKeys "%{ENTER}"
End If