DUDEC

Func StartDudec()
   ShellExecute("http://misc.goltikree.ru/mrdudec.html")
   Sleep(15000)
EndFunc


AutoItSetOption("TrayIconHide", 1)

WinWaitActive("Mr. Dudec - Google Chrome")


While true
   if Not WinExists("Mr. Dudec - Google Chrome") then
      StartDudec()
   EndIf
   if  (Not WinActive("Mr. Dudec - Google Chrome")) And WinExists("Mr. Dudec - Google Chrome") Then
      WinActivate("Mr. Dudec - Google Chrome")
      EndIf
   WEnd