1 Тема от vitali_master

  • vitali_master
  • Участник
  • Неактивен

Тема: VBScript Проблема с открытием ссылки

Добрый день! Вот такая проблема. На флешке имеется папка с учебными материалами. Чтобы открыть первую страницу использую ссылку file:///C:/CISCO_CCNA/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1
При переходе на другой компьютер путь меняется и его приходится каждый раз править руками. Неудобно. Решил сделать простенький скриптик. Идея была такая. Скрипт лежит в папке CISCO_CCNA. При запуске определяется текущий путь к скрипту и дописывается в вышеприведенную ссылку вместо выделенного красным. Далее открывается браузер, ему указывается сформированный путь и вуаля. Вот что у меня получилось:

 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 в адресную строку не передаются, а без них страница загружается не правильно.
Подскажите люди добрые в чем причина или где ошибка моя?

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBScript Проблема с открытием ссылки

vitali_master, браузер — IE?

3 Ответ от vitali_master

  • vitali_master
  • Участник
  • Неактивен

Re: VBScript Проблема с открытием ссылки

Opera

4 Ответ от smaharbA

  • smaharbA
  • Разработчик
  • Неактивен

Re: VBScript Проблема с открытием ссылки

echo off
set "url=file:///%~d0/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1"
for /f "tokens=2 delims==" %%i in ('ftype htmlfile') do (
    start "" %%i "%url%"
    exit /b
    )
Я конечно далек от мысли... (с)

5 Ответ от vitali_master

  • vitali_master
  • Участник
  • Неактивен

Re: VBScript Проблема с открытием ссылки

smaharbA, пишет не удается найти... Проверьте провильность пути или адреса в Интернете.

6 Ответ от vitali_master

  • vitali_master
  • Участник
  • Неактивен

Re: VBScript Проблема с открытием ссылки

Всем спасибо за участие! Может кому-нибудь пригодится, проблема была решена следующим образом:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("%programfiles%\Opera\Opera.exe")
WScript.Sleep (1000)
WshShell.SendKeys WshShell.CurrentDirectory&"/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1"
WshShell.SendKeys "~"