1 Тема от Ципихович Эндрю

  • Ципихович Эндрю
  • Участник
  • Неактивен

Тема: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

Здравствуйте, как программно открыть локальный файл и кликнуть на мессагу при открытии файла
Страница может содержать опасные программы (элементы АктивеХ) разрешить их выполнение?
Надо кликнуть на "Да" и при этом чтобы ишачок открылся полностью
на ВБ(А) начало есть

Sub Открыть_нужный_html_файл()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "J:\Просмотровщик дисков, папок, файлов.html", vbNormalFocus 'открывает указанный согласно адреса ...
IE.Visible = True 'открывает, делает видимым Микрософт Интернет Эксплоер
Beep
End Sub

2 Ответ от shiz

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

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

Ввиду ограниченности познаний из стандартных средств ничего лучше WshShell.SendKeys посоветовать не могу.
А зачем это надо, если дело не только в теоретическом интересе?
Что за "Просмотровщик дисков, папок, файлов.html"?
Может задача решится если переименовать его в "Просмотровщик дисков, папок, файлов.hta"?

Забыл пароль и потерял e-mail.

3 Ответ от Ципихович Эндрю (изменено: Ципихович Эндрю, 2012-10-04 21:52:57)

  • Ципихович Эндрю
  • Участник
  • Неактивен

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

А зачем это надо

- чтобы не было лишних телодвижений, если я запускаю свой файл со своего компьютера, значит я знаю что делаю

Может задача решится если переименовать его в "Просмотровщик дисков, папок, файлов.hta"

конечно, только хта и хтмл это разные вещи и я выбираю хтмл

WshShell.SendKeys

- как это всё в коде будет?

4 Ответ от wisgest

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

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

Ципихович Эндрю пишет:

чтобы не было лишних телодвижений, если я запускаю свой файл со своего компьютера, значит я знаю что делаю

Может быть, стоит изменить установки для зоны безопасности «Мой компьютер»:
как разрешить выполнение скриптов элементов activex в локальной зоне?

http://wisgest.name

5 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • Участник
  • Неактивен

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

спасибо ответ для меня как я понял:
все описанные выше действия выполнит следующий скрипт:

var WshShell=WScript.CreateObject("WScript.Shell");
var key1="HKLM\\SOFTWARE\\Policies\\Microsoft\
\Windows\\CurrentVersion\\Internet Settings\\";
var key2=(readValue(key1+"Security_HKLM_only") ? "HKLM" : "HKCU");
var val2=key2+"\\SOFTWARE\\Microsoft\\Windows\
\CurrentVersion\\Internet Settings\\Zones\\0\\Flags";
var flags=readValue(val2);
WshShell.RegWrite(val2,(flags&0xffffffdf)|1,"REG_DWORD");
deleteValue(key1+"Security_options_edit");
deleteValue(key1+"Security_zones_map_edit");

function readValue(s){
    try{
        return(WshShell.RegRead(s));
    }
    catch(e){
        return(0);
    }
}
function deleteValue(s){
    try{
        WshShell.RegDelete(s);
    }
    catch(e){}
}

так?
не знал, да забыл, вроде этот текст скрипта в тхт файл, потом изменить расширение, на какое? и двойной клик по файлу, так?

6 Ответ от wisgest

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

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

Расширение «.js»

http://wisgest.name

7 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • Участник
  • Неактивен

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

ну да, спасибо, вспомнил, но тогда что-то с кодом, я попробовал у меня Дримвьвер стал запускаться и тишина...
или как нужно?

8 Ответ от wisgest

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

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

Ципихович Эндрю пишет:

но тогда что-то с кодом, я попробовал у меня Дримвьвер стал запускаться и тишина...
или как нужно?

Dreamweaver не станет запускаться от того, что что-то с кодом, а от того, что он, по-видимому, установлен как программа по умолчанию открываютщая js-файлы.
В таком случае можно попробовать в командной строке выполнить 

WScript.exe файл.js
Ципихович Эндрю пишет:

и тишина...или как нужно?

А этот код по тихому вносит изменения в реестр, никаких сообщений при этом быть не должно.
Хотя эти изменения можно сделать вручную.

http://wisgest.name

9 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • Участник
  • Неактивен

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

спасибо, попробую, что не так - напишу

10 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • Участник
  • Неактивен

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

Дословно, сделал Пуск Выполнить туда вставил
WScript.exe P:\Открывать_локальный_html_файл_IE_и_не_нажимать_кнопку_в_его_MsgBox.js
такой файл по указанному пути существует, нажал ОК, видимо не помогло, так как снова спрашивает
Хотя эти изменения можно сделать вручную - согласен, но так считаю проще, но пока не фурычит...

11 Ответ от wisgest

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

Re: Открыть нужный html файл в IE и нажать кнопку в его MsgBox

Ципихович Эндрю пишет:

Открывать_локальный_html_файл_IE_и_не_нажимать_кнопку_в_его_MsgBox.js
<…>
видимо не помогло, так как снова спрашивает

— неправильное понимание осуществляемых изменений.
Правильное: включить возможность редактирования настроек безопасности зоны  с помощю стандартного диалога настройки IE (вкладка «Безопастность»,
отдельно эту вкладку можно открыть щёлкнув по значку зоны безопасности в строке состояния IE,
также программно:

rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,1

или

rundll32.exe inetcpl.cpl,LaunchSecurityDialogEx

).

Появился в списке зон безопасности «Мой компьютер» (наряду с «Интернет», «Местная интрасеть», «Надежные узлы», «Ограниченные узлы»)?

http://wisgest.name