|
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
|