powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript Проблема с открытием ссылки
25 сообщений из 28, страница 1 из 2
VBScript Проблема с открытием ссылки
    #37378832
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день! Вот такая проблема. На флешке имеется папка с учебными материалами. Чтобы открыть первую страницу использую ссылку file:///C:/CISCO_CCNA/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1
При переходе на другой компьютер путь меняется и его приходится каждый раз править руками. Неудобно. Решил сделать простенький скриптик. Идея была такая. Скрипт лежит в папке CISCO_CCNA. При запуске определяется текущий путь к скрипту и дописывается в вышеприведенную ссылку вместо выделенного красным. Далее открывается браузер, ему указывается сформированный путь и вуаля. Вот что у меня получилось:
Код: plaintext
1.
2.
 Set WshShell = CreateObject("WScript.Shell")
pth2 ="file://localhost/"&WshShell.CurrentDirectory&"/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1"
WshShell.Run pth2 
И вот тут начинаются проблемы. Браузер открывает вкладку, где в адресной строке
написано file://localhost/G:/CISCO_CCNA/Exploration1/theme/cheetah.html,
т.е. параметры ?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1 в адресную строку не передаются, а без них страница загружается не правильно.
Подскажите люди добрые в чем причина или где ошибка моя?
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37378954
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуйте
Код: plaintext
WshShell.Run "start """" /MIN " & pth2 
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37378963
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
localhost как туда затесался?
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37378977
vitali_beginner,
символ ? не допустим в имени файла. Вот умный скриптхост и отсекает всё что правее.

Попробуйте поставить пробел перед параметрами ( не факт, что спасёт)
Код: plaintext
/cheetah.html ?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter= 1 

ЗЫ: если можете выложить cheetah.html на форум - попробую у себя скрипт потерзать.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379077
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
@ Akina
Не помогло. Выдает ошибку: Не удается найти указанный файл.

@ пробуй камнем
Пробел тоже не помог.
Вот код страницы cheetah.html
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title></title>
    <link rel="stylesheet" type="text/css" href="../css/style.css"/>
    <script language="javascript" src="../js/logic.js"></script>
</head>
<body bgcolor="#ffffff">
<script type="text/javascript">
    // <![CDATA[
   writeFlash(); 
    // ]]>
</script>
</body>
</html>
Видим там javascript logic.js. Вот его листинг
Код: plaintext
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.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
/* logic.js */

function getBrowser() {
    c = navigator.appName+"\n";
    if (c.indexOf("Microsoft") > - 1 ) {
        c = "IE";
    } else {
        c = "other";
    }
    return c;
}


function writeFlash() {
    // check url for chapter
    var url = new String(window.location);
    if (url.indexOf("c1lang=") >  0 ) {
        var c1lang = url.substr(url.indexOf("c1lang=")+ 7 ,  2 );
    } else {
        var c1lang = "en";
    }
    if (url.indexOf("c1id=") >  0 ) {
        var c1id = url.substr(url.indexOf("c1id=")+ 5 ,  12 );
    } else {
        var c1id = "en0100000000";
    }
    lang1 = c1lang+"="+c1id;
    if (url.indexOf("c2lang=") >  0 ) {
        var c2lang = url.substr(url.indexOf("c2lang=")+ 7 ,  2 );
    } else {
        var c2lang = "en";
    }
    if (url.indexOf("c2id=") >  0 ) {
        var c2id = url.substr(url.indexOf("c2id=")+ 5 ,  12 );
    } else {
        var c2id = "en0100000000";
    }
    lang2 = c2lang+"="+c2id;
    
    if (url.indexOf("chapter=") >  0 ) {
        var ch = url.substr(url.indexOf("chapter="), url.length);
    } else {
        var ch = "chapter=1";
    }

    var f = '<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="100%" height="100%" id="cheetah" align="top">';
    f += '<param name="allowScriptAccess" value="sameDomain" />';
    f += '<param name="movie" value="../swf/cheetah.swf?'+lang1+'&'+lang2+'&'+ch+'" />';
    f += '<param name="menu" value="false" />';
    f += '<param name="quality" value="high" />';
    f += '<param name="bgcolor" value="#FFFFFF" />';
    f += '<embed src="../swf/cheetah.swf?'+lang1+'&'+lang2+'&'+ch+'" menu="false" quality="high" bgcolor="#FFFFFF" width="100%" height="100%" name="cheetah" align="top" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />';
    f += '</object>';
    
    document.write(f);
}


function openGlobalTool(ref) {
    var w =  800 ;
    var h =  600 ;
    var gtwin = window.open(ref, "gtwin", "status=0,toolbar=0,location=0,menubar=0,directories=0,resizable=1,width="+w+",height="+h);
}

function openActivity(ref, path) {
    var w =  800 ;
    var h =  470 ;
    var eawin = window.open(ref+"?path="+path, "eawin", "status=0,toolbar=0,location=0,menubar=0,directories=0,resizable=1,width="+w+",height="+h);
}

function openDocument(ref) {
    var w =  800 ;
    var h =  600 ;
    var docwin = window.open(ref, "docwin", "status=0,toolbar=0,location=0,menubar=0,directories=0,resizable=1,scrollbars=1,width="+w+",height="+h);
}

function openExternal(ref) {
    var w =  800 ;
    var h =  600 ;
    var docwin = window.open(ref, "docwin", "status=0,toolbar=0,location=1,menubar=0,address=1,directories=0,resizable=1,scrollbars=1,width="+w+",height="+h);
}

function openELAB(ref) {
    var w =  800 ;
    var h =  600 ;
    var docwin = window.open(ref, "docwin", "status=0,toolbar=0,location=1,menubar=0,address=1,directories=0,resizable=1,scrollbars=1,width="+w+",height="+h);
}

function openPT(ref) {
    var browser = getBrowser();
    var w =  300 ;
    var h =  150 ;
    if (browser == "IE") {
        var ptwin = window.open("../pt.html?pt="+ref, "ptwin", "status=0,toolbar=0,location=0,menubar=0,directories=0,resizable=1,width="+w+",height="+h);
    } else {
        var ptwin = window.open(ref, "ptwin", "status=0,toolbar=0,location=0,menubar=0,directories=0,resizable=1,width="+w+",height="+h);
    }
}
function openQuiz(ref, path) {
    var w =  740 ;
    var h =  460 ;
    var ptwin = window.open(ref+"?path="+path, "quizwin", "status=0,toolbar=0,location=0,menubar=0,directories=0,scrollbars=0,resizable=1,width="+w+",height="+h);
}
    

function showCourseMenu() {
    window.opener.focus();
}
Может можно переписать скрипт с java на vbscript. На я в javascript не силен, впрочем как и в vbscript.))
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379093
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Еще раз ненавязчиво спрошу: с какой стати в переменную pth2 попала строка localhost? Вы знаете, что такое localhost?
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379136
Antonariy,
ну браузер так отрабатывает, что с него взять.
Как по мне, что
file:///{путь}
, что
file://./{путь}
, что
file://localhost/{путь}
- всё едино. Разве что первый вариант более привычен глазу.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379143
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 Antonariy
Согласно википедии
localhost (127.0.0.1—127.255.255.255) — зарезервированный диапазон IP-адресов для обозначения так называемого «локального хоста», то есть для сети, состоящей только из одного компьютера. Как правило, используется всего один адрес — 127.0.0.1, который устанавливается на специальный сетевой интерфейс «внутренней петли» (англ. loopback) в сетевом протоколе TCP/IP. В Unix-подобных системах данный интерфейс обычно именуется «loN», где N — число, либо просто «lo». При установке соединений в этой вырожденной «сети» присутствует только один компьютер, при этом сетевые протоколы выполняют функции протоколов межпроцессного взаимодействия.

Использование адреса 127.0.0.1 позволяет устанавливать соединение и передавать информацию для программ-серверов, работающих на том же компьютере, что и программа-клиент, независимо от конфигурации аппаратных сетевых средств компьютера (не требуется сетевая карта, модем, и прочее коммуникационное оборудование, интерфейс реализуется при помощи драйвера псевдоустройства в ядре операционной системы). Таким образом, для работы клиент-серверных приложений на одном компьютере не требуется изобретать дополнительные протоколы и дописывать программные модули.

Обычно адресу 127.0.0.1 однозначно сопоставляется имя хоста «localhost» и/или «localhost.localdomain».

В IPv6 локальному хосту сопоставляется IP-адрес ::1/128 (0:0:0:0:0:0:0:1).

Таким образом localhost указывает на то, что ресурс следует искать на этом же компьютере. Но это не важно. Если приведенную выше ссылку (которая НЕ содержит localhost) скопировать и вставить в адресную строку браузера, то после нажатия Enter браузер автоматически добавит localhost. Поэтому считаю некритичным присутствие или отсутствие в ссылке параметра localhost. Что критично, так это то, что в адресную строку не передаются параметры, идущие после вопросительного знака. Как это обойти?
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379186
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: vitali_beginner
> Согласно википедии

А вы не читайте на ночь советских газет (с)
открываешь файл под названием hosts и добавляем ко всем строкам, у которых нет, в начало символ #
потом добавляем строку:
94.100.191.202 localhost
сохраняем файл и пробуем перейти в браузере по адресу localhost ;)))

> Таким образом localhost указывает на то, что ресурс следует искать на этом же компьютере.

Таким образом localhost ни на что не указывает

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379206
vitali_beginner,
в скрипте есть ссылка на
Код: plaintext
../swf/cheetah.swf
выложите эту флэшку
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379208
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А вообще да, я перепутал /c/ и /c:/.

Можно создать ярлык с этим адресом, запустить и удалить.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379237
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
@ пробуй камнем
Вот ссылка на флешку cheetah.swf:
http://letitbit.net/download/79727.757e0133522741fe8812fa610f82/cheetah.rar.html
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379240
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А хотя создавать/удалять нельзя, нужно просто иметь его на флешке и менять ссылку перед запуском.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379248
vitali_beginner@ пробуй камнем
Вот ссылка на флешку cheetah.swf:
http://letitbit.net/download/79727.757e0133522741fe8812fa610f82/cheetah.rar.html на летитбит с работы не доберусь. Если оно не оч.большое - выложите здесь, а так смогу проболжить эксперименты только вечером.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379291
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
@ Antonariy
Пробовал создать ярлык на рабочем столе, записал в URL file:///G:/CISCO_CCNA/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1, запустил.
Браузер открывает вкладку, где в адресной строке
написано file://localhost/G:/CISCO_CCNA/Exploration1/theme/cheetah.html,
а параметры ?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1 в адресную строку все равно не передаются.

@ пробуй камнем
Архив весит 152 КБ, не пропускает.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379295
vitali_beginner,
авторАрхив весит 152 КБ, не пропускает. я не поленюсь и из двух кусков собрать )))
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379314
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vitali_beginnerАрхив весит 152 КБ, не пропускает.
вырежьте оттуда немного лишнего 2кбайтного кода
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379351
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
пробуй камнемя не поленюсь и из двух кусков собрать )))
Вот из двух кусков
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379352
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379353
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня работает.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379385
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AntonariyУ меня работает.
Да Ваш скрипт работает, но у Вас в примере в адресную строку передается один параметр, а у меня несколько. И когда я вместо
Код: plaintext
S_PARAM = "?test=test"
подставляю свои параметры
Код: plaintext
S_PARAM = "?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1"
то ярлык создается нормально, URL-адрес в свойствах file:///G:/CISCO_CCNA/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1 .
А вот после запуска ярлыка все по старому:
Браузер открывает вкладку, где в адресной строке
написано file://localhost/G:/CISCO_CCNA/Exploration1/theme/cheetah.html,
а параметры ?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1 в адресную строку все равно не передаются.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379392
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Браузер у вас какой?
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379500
vitali_beginner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AntonariyБраузер у вас какой?
Opera, версия 11.50
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379521
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А у меня IE. Проблема в опере.

Тогда другой вариант. Создавать html-файл с <meta http-equiv="refresh" content="0;ваш урл"> и открывать его.
...
Рейтинг: 0 / 0
VBScript Проблема с открытием ссылки
    #37379526
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не выдержал и решил поучавствовать в беседе) vitali_beginnerто ярлык создается нормально. А вот после запуска ярлыка все по старому: возможно дело в параметрах ярлыка. несколько топиков потрачено на это. туда ведь нуно записывать параметры специальным секретным способом)
...
Рейтинг: 0 / 0
25 сообщений из 28, страница 1 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript Проблема с открытием ссылки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]