Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
<html>
<head>
<meta
http-equiv=Content-Type Content="text-html; charset=Windows-1251">
<meta
http-equiv=MSThemeCompatible Content=Yes>
<hta:application
id=hta_Alert
applicationName=My_Application
icon=ahui.exe
maximizeButton=no
border=thin
innerBorder=no
scroll=no
selection=no
contextMenu=no
singleinstance=yes
version=1.0
author=mozers™
>
<style type="text/css">
body {font-family:Verdana; font-size:12px; background-color:threedface; color:green;}
input {font-family:Verdana; font-weight:bold; font-size:18px; color:red;}
</style>
<script
language="JavaScript">
   
function
exit(){
       
self.close();
    }
</script>
<title></title>
</head>
<body><center><table
id="tb"><tr><td align="center">
<h3
id="Alert"></h3>
<input
type=button onClick="exit();" value="&nbsp;&nbsp;&nbsp;OK&nbsp;&nbsp;&nbsp;">
</td></tr></table></center></body>
<script
language="JavaScript">
   
var
cmdline = hta_Alert.commandLine.replace(/^".*?" */,'').split(",");
   
if (
cmdline[0]) Alert.innerHTML = cmdline[0];
   
if (
cmdline[1]) document.title = cmdline[1];
   
resizeTo(tb.offsetWidth + 40, tb.offsetHeight+60);
   
if (
cmdline[2]) setTimeout(exit, cmdline[2]*1000);
   
if ((
cmdline[3])&&(cmdline[4])) moveTo(cmdline[3], cmdline[4]);
</script>
</html>

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 14:00 25-07-2009 | Исправлено: mozers, 14:07 25-07-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru