Запуск скрипта в html-странице возможен только в IE?

@Ципихович Эндрю · Регистрация: 10.04.2009

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

Здравствуйте, вопрос мой простой, ввиду того что слабо знаю ВБскрипт, хотел то запускать посерьёзней скрипт, не вышло, начал с малого, подскажите где ошибка
2
если в ВБскрипте будут строки, по созданию объекта, например
Dim MSComm1 As MSComm
Set MSComm1 = New MSComm
тогда скрипт запустится??, на всех браузерах?? или только на ИЕ??

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<!-- -->
<html>
<head><title>Примеры</title></head>
<SCRIPT LANGUAGE = VBScript>
 
Sub link_onmouseover()
link.style.fontstyle = "Italic"
End Sub
 
Sub link_onmouseout()
link.style.fontstyle = "Normal"
End Sub
 
</SCRIPT>
</head>
 
<body>
<!--ID - это идентификационный номер объекта, www.piter-press.ru - это на что ссылается-->
<a ID=link href="www.piter-press.ru">текст ссылки</a></br>
</body>
 
</html>

Добавлено через 14 часов 21 минуту
спасибо, разобрался

@IIIypuk · 20.11.2011, 09:41

Ципихович Эндрю, Только на IE (хотя не факт) и только на Windows.
Так как в других ОС (Linux, *BSD) VBS не используется, там есть Perl/Python...

@Ципихович Эндрю · 20.11.2011, 10:44 **[ТС]**

а в ИЕ можно безопасность оключить, чтобы не делать лишних телодвижений??
чего это он, ИЕ сам своё детище принимает только после проверки безопасности??

Vovan-VE · 20.11.2011, 10:49

Сообщение от Ципихович Эндрю

чего это он, ИЕ сам своё детище принимает только после проверки безопасности??

Вот пришлют Вам по мылу какбы шаблон страницы со зловредом в виде VBS, который будет выполнять ряд зловредных задач из области администрирования, вот тогда и узнаете, для чего нужна безопасность.

@Ципихович Эндрю · 20.11.2011, 10:52 **[ТС]**

не путайте простые вещи, есть файл хтмл, я его хозяин, один раз сказал - не проверять и всё, я же хозяин, а тут как всегда проблема века...

Vovan-VE · 20.11.2011, 11:15

Сообщение от Ципихович Эндрю

не путайте простые вещи, есть файл хтмл, я его хозяин, один раз сказал - не проверять и всё, я же хозяин

Вот он и подумает: "Хозяин-барин. Не проверять, так не проверять." И не будет никого никогда проверять (если это вообще возможно). Настоящих зловредов в том числе. Ну нет у него понятия "проверять то, но не проверять сё". Либо всё проверять, нибо всё не проверять.

@Ципихович Эндрю · 20.11.2011, 11:24 **[ТС]**

ой нет, речь об одном файле!!!! это же элементарно, файл свойста, выставить, то что нужно - но нет такого функционала
Бог с ним, подскажите пожалуйста, где накосячил

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
30
31
32
33
34
35
36
37
38
39
40
41
42
<!-- -->
<html>
<head><title>Звоним</title></head>
<script language = VBScript>
 
Option Explicit
 
Sub Все_модемы()
    
    On Error Resume Next
 
    Dim strComputer As String
    strComputer = "."
 
    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
 
    Dim objItem As Object
 
    Dim Количество_модемов As Byte
    Dim Результат As String
 
    For Each objItem In colItems
        Количество_модемов = Количество_модемов + 1
        Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & Chr$(13)
    Next
 
    MsgBox$ "Количество модемов: " & Количество_модемов & Chr$(13) & Результат
 
End Sub
 
</script>
</head>
 
<body>
<!--ID - это идентификационный номер объекта-->
<button>Кнопка ID=khopka value="Надпись на кнопке"</button>
</body>
</html>

надо, чтобы на кнопке было написано только - Надпись на кнопке
На неё нажал MsgBox вылез с сообщением о модемах

Vovan-VE · 20.11.2011, 11:41

Сообщение от Ципихович Эндрю

подскажите пожалуйста, где накосячил

VBScript и VB - это разные языки. Нет существует в VBS некоторых ключевых слов, вроде As (вместе со вмеси вытекающими ключевыми словами типов данных: String, Object, Byte), нет функций, заканчивающихся на $ (Chr$ и т.п.).
Функции MsgBox$ нет даже в VB.

@Ципихович Эндрю · 20.11.2011, 11:49 **[ТС]**

одно сделал, осталось с обработчиком нажатия на кнопку проблема
на что это: Chr$(13) заменить надо помню, но вылетело с головы, что-то vb....

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
<!-- -->
<html>
<head><title>Звоним</title></head>
<script language = VBScript>
 
Option Explicit
 
Sub Все_модемы()
    
    On Error Resume Next
 
    Dim strComputer As String
    strComputer = "."
 
    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
 
    Dim objItem As Object
 
    Dim Количество_модемов As Byte
    Dim Результат As String
 
    For Each objItem In colItems
        Количество_модемов = Количество_модемов + 1
        Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & Chr$(13)
    Next
 
    MsgBox "Количество модемов: " & Количество_модемов & Chr$(13) & Результат
 
End Sub
 
</script>
</head>
 
<body>
<!--ID - это идентификационный номер объекта-->
<!--button>Кнопка ID=khopka value="Надпись на кнопке"</button>-->
<button onclick="Все_модемы()">Надпись на кнопке</button>
</body>
</html>

Добавлено через 1 минуту

Сообщение от Vovan-VE

String, Object, Byte

извиняюсь, только сейчас прочёл, и что делать???

Vovan-VE · 20.11.2011, 12:01

Сообщение от Ципихович Эндрю

извиняюсь, только сейчас прочёл, и что делать?

Очевидно, объявлять переменные без указания типа и нигде не пытаться использовать $.

@Ципихович Эндрю · 20.11.2011, 12:07 **[ТС]**

я еще не в шоколаде

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
<!-- -->
<html>
<head><title>Звоним</title></head>
<script language = VBScript>
 
Option Explicit
 
Sub Все_модемы()
    
    On Error Resume Next
 
    Dim strComputer 
    strComputer = "."
 
    Dim objWMIService
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    Dim colItems 
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
 
    Dim objItem 
 
    Dim Количество_модемов 
    Dim Результат 
 
    For Each objItem In colItems
        Количество_модемов = Количество_модемов + 1
        Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & Chr(13)
    Next
 
    MsgBox "Количество модемов: " & Количество_модемов & Chr(13) & Результат
 
End Sub
 
</script>
</head>
 
<body>
<!--ID - это идентификационный номер объекта-->
<!--button>Кнопка ID=khopka value="Надпись на кнопке"</button>-->
<button onclick="Все_модемы()">Надпись на кнопке</button>
</body>
</html>

Что ему ещё надо??

Сообщение от Vovan-VE

Очевидно, объявлять переменные без указания типа

- шикарно, телодвижений меньше, хотя как он без типов справится?

Vovan-VE · 20.11.2011, 12:15

Сообщение от Ципихович Эндрю

хотя как он без типов справится?

У него же есть Variant на все случаи жизни.

@Ципихович Эндрю · 20.11.2011, 12:22 **[ТС]**

Сообщение от Vovan-VE

У него же есть Variant на все случаи жизни.

- не сахар для него

Сообщение от Ципихович Эндрю

Что ему ещё надо??

не работает
VB и VBScript братья? а формы в VBScript делать можно?

Памирыч · 20.11.2011, 12:32

Ципихович Эндрю, VBS тебе погоду не сделает в странице. Он в осле работает мягко говоря неважно.

@Ципихович Эндрю · 20.11.2011, 12:35 **[ТС]**

некоторые люди говорят, если не умеешь, это я про себя, то не надо сваливать на ... в даном случае на осла, подожду Vovan-VE
А что мне сделает погоду?

Vovan-VE · 20.11.2011, 12:49

Сообщение от Ципихович Эндрю

не сахар для него

Остальные основные типы данных подразумеваются неявно внутри Variant'а. Выбора нет.

Сообщение от Ципихович Эндрю

VB и VBScript братья? а формы в VBScript делать можно?

Сводные. Нельзя. Только MsgBox и InputBox.

@Ципихович Эндрю · 20.11.2011, 13:12 **[ТС]**

Сообщение от Ципихович Эндрю

Что ему ещё надо??

, подскажите пожалуйста в скрипте в 11 посту

Добавлено через 1 минуту

Сообщение от Vovan-VE

Только MsgBox

MsgBox надеюсь на несколько кнопок можно делать?, как?

Vovan-VE · 20.11.2011, 13:13

Сообщение от Ципихович Эндрю

подскажите пожалуйста в скрипте в 11 посту

Какие ошибки выдаёт?

@Ципихович Эндрю · 20.11.2011, 16:04 **[ТС]**

да нет их, просто нажимаешь, а оно не фурычит

Добавлено через 2 часа 34 минуты
переделал на английский манер

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<!-- -->
<html>
<head><title>Звоним</title></head>
<!--VBScript
только на IE (хотя не факт) и только на Windows, так как в других ОС (Linux, *BSD) VBScript не используется, там есть Perl/Python 
переменные объявлять без указания типа, то есть они все имеют тип Variant 
не существует в VBScript некоторых ключевых слов
вроде As (вместе со вмеси вытекающими ключевыми словами типов данных: String, Object, Byte)
нет функций, заканчивающихся на $ (Chr$, MsgBox$ и т. п.)
галочка "Display a notification about every script error" в настройках IE на закладке Advanced
-->
<script language = VBScript>
 
Option Explicit
 
Sub Full_modems()
    
    On Error Resume Next
 
    Dim strComputer 
    strComputer = "."
 
    Dim objWMIService
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    Dim colItems 
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
 
    Dim objItem 
 
    Dim Count_modem 
    Dim Result 
 
    For Each objItem In colItems
        Count_modem = Count_modem + 1
        Result = Result & Count_modem & " " & objItem.Model & " - " & objItem.AttachedTo & Chr(13)
    Next
 
    MsgBox "Количество модемов: " & Count_modem & Chr(13) & Result
 
End Sub
 
</script>
</head>
 
<body>
<!---->
<button onclick="Full_modems()">Надпись на кнопке</button>
</body>
</html>

Сообщение есть но не то, говорит количество модемов 1, их у меня два и имена не называет
???
закладка Advanced как по русски??
передовой
продвинутый
усовершенствованный
прогрессивный
выдвинутый
авансированный
повышенного типа
самый современный
выдвинутый вперед
успевающий
????????????

Добавлено через 8 минут
в этой части:
галочка "Display a notification about every script error" - "Показывать уведомление о каждой ошибке сценария"
в настройках IE на закладке Advanced - Сервис - Свойства обозревателя - Дополнительно
разобрался

Добавлено через 6 минут
галочку то я поставил, а где смотреть

Сообщение от Ципихович Эндрю

уведомление о каждой ошибке сценария

@Ципихович Эндрю · 21.11.2011, 16:42 **[ТС]**

понял, что

Сообщение от Ципихович Эндрю

уведомление о каждой ошибке сценария

само покажет, но не показывает, а почему считает не правильно?

Добавлено через 4 минуты
мне по поводу моего скрипта подсказали
"Кроме этого ошибка происходит при вызове GetObject(). Почему-то не может создать объект при том что если выполнить этот скрипт через WSH никаких ошибок не выдается"

В VBScript'е не волоку, не подскажите??

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@IIIypuk 10 / 10 / 1 Регистрация: 19.11.2011 Сообщений: 101
	20.11.2011, 09:41
	Ципихович Эндрю, Только на IE (хотя не факт) и только на Windows. Так как в других ОС (Linux, *BSD) VBS не используется, там есть Perl/Python... 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,321
	20.11.2011, 10:44 [ТС]
	а в ИЕ можно безопасность оключить, чтобы не делать лишних телодвижений?? чего это он, ИЕ сам своё детище принимает только после проверки безопасности?? 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,321
	20.11.2011, 10:52 [ТС]
	не путайте простые вещи, есть файл хтмл, я его хозяин, один раз сказал - не проверять и всё, я же хозяин, а тут как всегда проблема века... 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	20.11.2011, 12:32
	Ципихович Эндрю, VBS тебе погоду не сделает в странице. Он в осле работает мягко говоря неважно. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,321
	20.11.2011, 12:35 [ТС]
	некоторые люди говорят, если не умеешь, это я про себя, то не надо сваливать на ... в даном случае на осла, подожду Vovan-VE А что мне сделает погоду? 0