Далее Ваш выход .

Так я в этом не бум бум, поэтому и прошу помощи

Const ProcName = "chrome.exe"
Set colEvents = GetObject("winmgmts:\\.\Root\CIMV2").ExecNotificationQuery( _
  "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' " & _
  "AND TargetInstance.Name = '" & ProcName & "'")  
Do 
 Set objEvent = colEvents.NextEvent  
 MsgBox "Вы запустили процесс " & objEvent.TargetInstance.Name
Loop

Далее Ваш выход .

В таком случае не проще через файл hosts решить?
127.0.0.1 facebook.com
127.0.0.1 www.facebook.com
и т.п.

Так мне нужно не просто запретить доступ на сайт, а закрыть браузер и вернуться в игру

kitaev83, укажите потребный язык префиксом заголовка темы.

Вы не вирус, случаем, пишете?

Какой язык мне все равно, лишь бы работало )))
Нет не вирус, есть игра angry birds, хочу сделать детям на большом сенсорном экране, а там есть ссылки в меню на твитер, фейсбук. И нужен такой скрипт чтобы при нажатии этих кнопок открется браузер его сразу закрыть.

Вы не вирус, случаем, пишете?

Спасибо