HTA: ResizeTo - отказано в доступе

Dragokas · Регистрация: 25.12.2011

Студворк — интернет-сервис помощи студентам

Кросспост (на форуме скрипткодеров пока глухо), может здесь есть умные люди.

Есть простейший код:

Кликните здесь для просмотра всего текста

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
<head>
  <title>My Project</title>
 
  <HTA:APPLICATION
    APPLICATIONNAME="Test Project"
    ID="objHTA"
    VERSION="1.0"
    BORDER="thin"
    BORDERSTYLE="raised"
    MAXIMIZEBUTTON="no"
    MINIMIZEBUTTON="yes"
    ICON="logo.ico"
    SCROLL="no"
    CONTEXTMENU="no"
    NAVIGABLE="no"
    SELECTION="no"
    SINGLEINSTANCE="yes"
    WINDOWSTATE="normal"
  />
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
 
<script language="VBScript">
Option Explicit
On Error Resume Next
 
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oShell: Set oShell = CreateObject("WScript.Shell")
Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")
Dim oNetwork: Set oNetwork = CreateObject("WScript.Network")
 
Sub Window_onLoad()
  self.Focus()
  SetSize()
End Sub
 
Function SetSize()
   Dim x: x=700
   Dim y: y=550
   window.resizeTo x, y
   window.moveTo ((screen.availWidth / 2) - (x / 2)), ((screen.availHeight / 2) - (y / 2))
end function
 
Sub My_Click()
    msgbox "My_Click"
End Sub
 
</script>
 
<html>
<style>
  BODY
  {
    background-color: RGB(40, 0, 115);
    font-color: RGB(80, 0, 200);
    font-family: Helvetica;
    font-size: 8pt;
    margin-top: 10px;
    margin-left: 15px;  
  }
</style>
 
<BODY BACKGROUND="images/logo_sz.png"
  BGCOLOR="Aqua"
  TEXT="Yellow"
  LINK="#FF0000"
  VLINK="#505050"
  MARGINHEIGHT="30"
  TOPMARGIN="30"
  LEFTMARGIN="40"
  MARGINWIDTH="40">
 
  <H1 ALIGN="center">Выберите в меню версию Вашей операционной системы,а так же соответствую разрядность</H1>
  <p>Параметры выбраны?</p>
 
  <input type="button" value="Установить запуск системных служб по умолчанию" name="run_button" onClick="My_Click()">
</body>
</html>

1 из 5-10 запусков выдает ошибку "Отказано в доступе"
на строке с "window.resizeTo x, y" (чаще всего на ОС Windows XP)

В MSDN нашел решение через добавление разрешения в раздел HKLM:
http://support.microsoft.com/kb/942173/ru (еще не проверял)

Смущает, что для этого мне понадобятся повышенные привилегии.
И хоть для меня это не проблема,
может есть более простое решение?
(как, к примеру, заранее задать размер и положение окна, если это возможно).

Подскажите, пожалуйста, как бы Вы решили эту задачу.

@Eva Rosalene · 26.11.2013, 13:38

Сообщение от Dragokas

как, к примеру, заранее задать размер и положение окна, если это возможно

К сожалению, мне такие шаманства неизвестны

Добавлено через 7 минут
И да - за 150 запусков ни одной ошибки

Dragokas · 26.11.2013, 21:59 **[ТС]**

Сообщение от FraidZZ

И да - за 150 запусков ни одной ошибки

Шо ж у ~~тебя~~ меня все ни как у людей

Но это наблюдалось только на XP.
На 7 все норм.

Добавлено через 51 секунду
Было бы все хорошо, но ошибка вылазит, даже если написать

Visual Basic
1
On error resume next

@Eva Rosalene · 27.11.2013, 14:44

Сообщение от Dragokas

On error resume next

Это же только в VBS скриптах под WSH oO, нет?

raxper · 27.11.2013, 17:21

...машина на работе, XP PRO SP3 + корпоративный кашпировский + политиками ограничение в админ-правах ...жмакал раз 150, полет нормальный.

@Eva Rosalene · 28.11.2013, 14:41

Не по теме:

Сообщение от raxp

..жмакал раз 150

Надеюсь, не ручками? :D

raxper · 28.11.2013, 15:04

...сначала руцями, потом батником

Dragokas · 28.11.2013, 18:56 **[ТС]**

raxp, FraidZZ, спасибо за тесты.
Накладывается некая специфика системы (например XP EN сбоев не было).

Мне подсказали.
Вот такой пример не выдает сбоев:

Кликните здесь для просмотра всего текста

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
<html>
 
<head>
  <title>My Project</title>
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
 
  <hta:application
   applicationName="Test Project"
   id="objHTA"
   singleInstance="yes"
   />
 
  <script language="VBScript">
Sub Window_onLoad()
    On Error Resume Next
    window.resizeTo 700, 550
    window.moveTo ((screen.availWidth / 2) - 350), ((screen.availHeight / 2) - 275)
End Sub
  </script>
</head>
 
<body
 comment=background="images/logo_sz.png"
 bgcolor="aqua"
 text="yellow"
 >
</body>
 
</html>

Осталось сравнить в чем разница.

@Eva Rosalene · 28.11.2013, 20:55

КМК, On Error Resume Next внутри функции. Поясню. В JS On Error Resume Next нету. Там эти понятия отсутствуют в принципе. Функции Window_OnLoad() могут быть написаны как на JS так и на VBS. Следовательно mshta не знает, может ли функция поддерживать такое или нет и при вызове функции не использует такую директиву. Я не уверен в этом, но похоже.

Dragokas · 28.11.2013, 21:18 **[ТС]**

Если не может, будет ошибка компиляции.
ЗЫ. В JS есть try...catch.

А еще работает Option Explicit.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

raxper 10237 / 6615 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	27.11.2013, 17:21
	...машина на работе, XP PRO SP3 + корпоративный кашпировский + политиками ограничение в админ-правах ...жмакал раз 150, полет нормальный. 2

raxper 10237 / 6615 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	28.11.2013, 15:04
	...сначала руцями, потом батником 0

@Eva Rosalene Модератор 5241 / 2115 / 416 Регистрация: 06.01.2013 Сообщений: 4,846
	28.11.2013, 20:55
	КМК, On Error Resume Next внутри функции. Поясню. В JS On Error Resume Next нету. Там эти понятия отсутствуют в принципе. Функции Window_OnLoad() могут быть написаны как на JS так и на VBS. Следовательно mshta не знает, может ли функция поддерживать такое или нет и при вызове функции не использует такую директиву. Я не уверен в этом, но похоже. 0

Dragokas 18031 / 7734 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	28.11.2013, 21:18 [ТС]
	Если не может, будет ошибка компиляции. ЗЫ. В JS есть try...catch. А еще работает Option Explicit. 0