월드 오브 워크래프트 단축키를 반복해서 눌러주는 VBScript

wow-hotkey-j.vbs

Dim WshSHell
set WshShell = CreateObject("WScript.Shell")
Do While True
	set service = GetObject ("winmgmts:")

	Dim flag
	flag = False
	For Each Process in Service.InstancesOf ("Win32_Process")
		If Process.Name = "Wow-64.exe" Then
			WshShell.AppActivate("월드 오브 워크래프트")
			WshShell.SendKeys("j")
			WScript.Sleep(1000)
			flag = True
			Exit For
		End If
	Next
	If flag = False Then
		WScript.quit
	End If
	WScript.Sleep(100)
LOOP