[avmir]

Неужто для Windows 7 никто скриптов не писал?

[266903582]

Столкнулся с похожей ситуацией. Помогает СontrolSend в Edit-объект, в причинах разбираться не стал, на этом этапе моя проблема была решена...

[avmir]

После некоторого редактирования скрипта

Код:

#Include <GUIComboBox.au3>
#Include <GUIComboBoxEx.au3>
#include <IE.au3>
#Include <WinAPI.au3>
#Include <WinAPIEx.au3>

$sURL = $CmdLine[1]
$sWorkPaht = $CmdLine[2]
$sFileName = $CmdLine[3]
$sSaveAsWindow = "Сохранение веб-страницы"

Opt("WinTitleMatchMode", 2)

If FileExists($sWorkPaht & $sFileName) Then FileDelete($sWorkPaht & $sFileName)

$oIE = _IECreate ($sURL) ;, 0, 1, 1, 0) ; $sURL - первый параметр 'URL'

$win_handle = WinGetHandle("Windows Internet Explorer", $sURL)

_WinAPI_SetKeyboardLayout($win_handle, 0x0419)

Do
	Send("{ALTDOWN}{ALTUP}")
	sleep(500)
	Send("ф")
	sleep(500)
	Send("с")
	sleep(500)
Until WinExists($sSaveAsWindow, "")

WinWait($sSaveAsWindow,"")
If Not WinActive($sSaveAsWindow,"") Then WinActivate($sSaveAsWindow,"")
WinWaitActive($sSaveAsWindow,"")
sleep(500)

; здесь мы переходим в папку в которую должны сохраняться страницы
ControlSetText ($sSaveAsWindow, "", "Edit1", $sWorkPaht) ; $sWorkPaht - второй параметр 'рабочая папка'
_GUICtrlComboBoxEx_SetCurSel(ControlGetHandle($sSaveAsWindow, "", "ComboBox2"), 1)
ControlClick ($sSaveAsWindow, "", "Button1")

; здесь сохраняем MHT файл с нужным именем
ControlSetText ($sSaveAsWindow, "", "Edit1", $sFileName, 1) ; "test" - третий параметр 'имя файла'
_GUICtrlComboBoxEx_SetCurSel(ControlGetHandle($sSaveAsWindow, "", "ComboBox2"), 1)
ControlClick ($sSaveAsWindow, "", "Button1")

sleep(500)

$Timer = TimerInit()
While TimerDiff($Timer) < 2000000000
    $hFile = _WinAPI_CreateFile($sWorkPaht & $sFileName, 2, 2, 0)
    If $hFile Then
        _WinAPI_CloseHandle($hFile)
        ExitLoop
    EndIf
    Sleep(1000)
WEnd

Sleep(1000)

If Not $hFile Then
    ; Ошибка
    ConsoleWrite('File not found or time out.' & @CR)
Else
    ConsoleWrite('OK' & @CR)
EndIf

WinClose($win_handle)

Exit($win_handle)

он стал сохранять файл с нужным именем, но всё также несмотря на то, что он выбирает в ComboBox "Тип файла" второй пункт "Веб-архив, один файл (*.mht)" (при этом на экране видны изменения!), а при эмуляции нажатия на кнопку "Сохранить" файл сохраняется как HTML (с файлами в отдельной папке) (это превый пункт в ComboBox-е, т.е. по-умолчанию).

Как заставить скрипт сохрянять файл в формате MHT?

Господа помогите пожалуйста, уже столько времени ничего не получается

[Iska]

avmir, такое пробовали?

Update: ага, вижу: пробовали. Проблема в том, что библиотека CDO некорректно оформляет путь на css, оформленный ссылкой — JScript: Пример сохранения web-страницы в TXT, HTML и MHT (веб-архив):

Одна тонкость - MHT формируется библиотекой CDO с ошибкой - когда в веб-архив внедрен внешний CSS файл (<link rel="stylesheet" type="text/css" href="file.css" />), то ссылку на него библиотека указывает неверно, вследствие чего страница из mht отображается без стиля из этого файла. Если же css-таблица вписана в сам html-исходник с помощью тега <style>, то тогда все отображается верно.

[avmir]

Кроме того, IE8 или 9 длительно ждет пока не загрузятся все картинки со страницы, и только по прошествии какого-то времени "разрешает" сохранить страницу.
А CDO судя по всему не заморачивается с этим. "Картинка сейчас недоступна?" - "Ну и фиг с ней".

Мне нужно-то только как-то "зафиксировать" выбранный в ComboBox-е элемент...

[Iska]

avmir, так и в IE было — чересчур малый таймаут. Возможно, как Вы говорите, в свежих версиях IE сие поправили.

[avmir]

Нет. В восьмерке всё работало на УРА...

Может кликами можно как-то сделать? Пробовал, во время исполнения скрипта, кликами повторить выбор пунката "Веб-архив, один файл (*.mht)" - всё сохранилось правильно.
Да и еще мысль - в IE всегда этот выбор запоминался. Я так думаю, в момент выбора элемента данные заносились в реестр. Может при сохранении IE берет "тип файла" не из ComboBox-а, а как раз из реестра? Может, весь этот гемор связан как раз с параноидальностью "семерки"?

[Iska]

Нет. В восьмерке всё работало на УРА... »

Я, говоря про «свежие версии IE», как раз и имел в виду версии после шестой.