IMHO.WS - VB: Скрипт выдает ошибку

IMHO.WS (http://www.imho.ws/index.php)

- Веб-программирование (http://www.imho.ws/forumdisplay.php?f=29)

- - VB: Скрипт выдает ошибку (http://www.imho.ws/showthread.php?t=59999)

djon72

27.05.2004 13:58

VB: Скрипт выдает ошибку

Господа спецы, выручайте! Скрипт от Мангуста для передачи закачки флэшгет для оперы выдает ошибку. В чем проблема? Текст ниже:

Dim desc
desc=""
ref=""
if WScript.Arguments.Count>1 then
desc=WScript.Arguments(1)
end if
if WScript.Arguments.Count>2 then
ref=WScript.Arguments(2)
end if
AddLink WScript.Arguments(0), desc, ref

Sub AddLink(ByVal Url, ByVal Info, ByVal Refer)
set JetCarCatch=CreateObject("JetCar.Netscape")
JetCarCatch.AddUrl Url, Info, Refer
end sub

Hubbitus

27.05.2004 14:00

Ошибку-то какую выдает?

djon72

27.05.2004 15:05

Hubbitus
Строка: 10
Символ: 1
Ошибка: Индекс выходит за пределы допустимого диапазона
Код: 800А0009

dr-evil

27.05.2004 15:51

AddLink WScript.Arguments(0), desc, ref
а тут не 1 должно быть?

aoxyz_30330

27.05.2004 23:58

я ватще не понимаю, нафика под веб на вбскрипт писаать? нетскейп же вообще не поймет етого ...

Sheryld

28.05.2004 14:41

а в asp(обычном) очень даже удобно делать на нем обработчики, да и с com работать(а asp-классика это читай com).
а про броузеры можно не беспокоиться(для asp):

Код:

<script language="VBScript" runat="server">

code here

</script>

Sheryld

28.05.2004 14:50

а где проверка есть ли вообще аргументы?
т.е. твоя ошибка это обычный NULL. т.е. нету такого объекта Arguments(0) в коллекции Arguments - нету нулевого аргумента? а вот почему это - х.з.:
моя версия что у тебя просто не создается объект WSHost(Windows Script Host).
p.s. все это имхо, на основе инфы из MSDN.

djon72

29.05.2004 14:43

Спасибо всем, кто откликнулся. Тема закрыта. Скрипт рабочий. Решение проблемы было не в нем и находится здесь http://www.imho.ws/showthread.php?t=47314

repeek

29.05.2004 18:45

@djon72!

спасибо за линк!

Repeek

Часовой пояс GMT +4, время: 11:19.