Модераторы: Sardar, Aliance
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Простой скрипт с VBS на JavaScript 
V
    Опции темы
iff
Дата 7.2.2011, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: 2
Всего: 16



Написал небольшой скрипт на VBS, на JavaScript перевести неполучается.
Код

Dim IsTyping

Sub text_onFocus
    IsTyping = True
End Sub

Sub text_onBlur
    IsTyping = False
End Sub

Sub Window_onLoad
    SetInterval "If Not IsTyping Then Document.Location = Document.Location", 1000
End Sub

Фрагмент веб-страницы:
Код

<form>
<input type="text" size="80" name="text">



--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
Amphiluke
Дата 7.2.2011, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


   ☽
***


Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 39
Всего: 112



Видимо, так:
Код

var isTyping = false;
window.onload = function() {
    setInterval(function() {if (!isTyping) window.location.reload();}, 1000);
}
function focusBlur(e) {
    if (!e) e = event;
    isTyping = (e.type == "focus");
}


Код

<input type="text" size="80" name="text" onfocus="focusBlur(event);" onblur="focusBlur(event);" />


Это сообщение отредактировал(а) Amphiluke - 7.2.2011, 19:44
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | JavaScript: для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0972 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.