Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript Проблема с открытием ссылки / 25 сообщений из 28, страница 1 из 2
  1  все
03.08.2011, 14:48
    #37378832
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
Добрый день! Вот такая проблема. На флешке имеется папка с учебными материалами. Чтобы открыть первую страницу использую ссылку 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
| Ответить | Цитировать | Написать  
03.08.2011, 15:23
    #37378954
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
Попробуйте
Код: plaintext
WshShell.Run "start """" /MIN " & pth2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 15:27
    #37378963
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
localhost как туда затесался?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 15:31
    #37378977
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
vitali_beginner,
символ ? не допустим в имени файла. Вот умный скриптхост и отсекает всё что правее.

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

ЗЫ: если можете выложить cheetah.html на форум - попробую у себя скрипт потерзать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 16:03
    #37379077
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
@ 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
| Ответить | Цитировать | Написать  
03.08.2011, 16:10
    #37379093
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
Еще раз ненавязчиво спрошу: с какой стати в переменную pth2 попала строка localhost? Вы знаете, что такое localhost?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 16:23
    #37379136
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
Antonariy,
ну браузер так отрабатывает, что с него взять.
Как по мне, что
file:///{путь}
, что
file://./{путь}
, что
file://localhost/{путь}
- всё едино. Разве что первый вариант более привычен глазу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 16:27
    #37379143
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
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
| Ответить | Цитировать | Написать  
03.08.2011, 16:44
    #37379186
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
> Автор: vitali_beginner
> Согласно википедии

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

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

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

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

Можно создать ярлык с этим адресом, запустить и удалить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:03
    #37379237
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
@ пробуй камнем
Вот ссылка на флешку cheetah.swf:
http://letitbit.net/download/79727.757e0133522741fe8812fa610f82/cheetah.rar.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:03
    #37379240
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
А хотя создавать/удалять нельзя, нужно просто иметь его на флешке и менять ссылку перед запуском.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:06
    #37379248
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
vitali_beginner@ пробуй камнем
Вот ссылка на флешку cheetah.swf:
http://letitbit.net/download/79727.757e0133522741fe8812fa610f82/cheetah.rar.html на летитбит с работы не доберусь. Если оно не оч.большое - выложите здесь, а так смогу проболжить эксперименты только вечером.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:25
    #37379291
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
@ 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
| Ответить | Цитировать | Написать  
03.08.2011, 17:28
    #37379295
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
vitali_beginner,
авторАрхив весит 152 КБ, не пропускает. я не поленюсь и из двух кусков собрать )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:36
    #37379314
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
vitali_beginnerАрхив весит 152 КБ, не пропускает.
вырежьте оттуда немного лишнего 2кбайтного кода
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:51
    #37379351
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
пробуй камнемя не поленюсь и из двух кусков собрать )))
Вот из двух кусков
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:52
    #37379352
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 17:52
    #37379353
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
У меня работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 18:13
    #37379385
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
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
| Ответить | Цитировать | Написать  
03.08.2011, 18:17
    #37379392
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
Браузер у вас какой?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 20:07
    #37379500
vitali_beginner
vitali_beginner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
AntonariyБраузер у вас какой?
Opera, версия 11.50
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 20:32
    #37379521
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
А у меня IE. Проблема в опере.

Тогда другой вариант. Создавать html-файл с <meta http-equiv="refresh" content="0;ваш урл"> и открывать его.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2011, 20:37
    #37379526
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript Проблема с открытием ссылки
не выдержал и решил поучавствовать в беседе) vitali_beginnerто ярлык создается нормально. А вот после запуска ярлыка все по старому: возможно дело в параметрах ярлыка. несколько топиков потрачено на это. туда ведь нуно записывать параметры специальным секретным способом)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript Проблема с открытием ссылки / 25 сообщений из 28, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 482ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158521]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 346ms
total:  482ms
x
x
Закрыть


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