mshta vbscript:execute("Set SH=CreateObject(""WScript.Shell""):SH.Run ""notepad"":
SH.AppActivate ""メモ帳"":SH.Run ""ping localhost -n 1"",0,True:SH.SendKey ""TEST"":Close")