Что нового

Открытие файлов с расширением *.snp в программе Snapshot Viewer на весь экран

SharkyEXE

Новичок
Сообщения
134
Репутация
0
Версия AutoIt: 3.3.8.1 - 3.3.9.4
Описание:
1) этот код я вставляю в файл 1.au3
2) из 1.au3 при помощи Aut2exe я делаю файл 1.exe
3) файл 1.exe я кладу рядом с файлом SNAPVIEW.EXE, файл 1.exe я кладу в папку C:\Program Files\Snapshot Viewer
4) делаю ассоциацию на файлах *.snp, свойства файла - приложение...
Итого хочется:
1) если я просто запускаю файл 1.exe - то это условие 1, для условия 1 у меня запускается программа SNAPVIEW.EXE на весь экран, что-то вроде в этот код этот код куда-то, куда надо, вставить строку
Run('SNAPVIEW.EXE', @SW_MAXIMIZE)
2) если я запускаю файлы *.snp - то это условие 2, для условия 2 файлы *.snp открываются в программе SNAPVIEW.EXE на весь экран, то есть для условия 2 полностью работает весь этот код этот код
Примечания:
Исходный код здесь
Неактуально:
Всё предыдущее содержимое шапки/самого первого сообщения этой темы до 14-03-2013
Всем здравствуйте.
1) Установил программу Snapshot Viewer (http://sderni.ru/171600)
2) При открытии файла 1.snp (файл 1.snp находится внутри файла 1.zip, файл 1.zip можно скачать по ссылке http://sderni.ru/171601) происходит открытие файла 1.snp не на весь экран, то есть вот так http://sderni.ru/171603

Пожалуйста, у когое сть время, возможность, желание - модифицируйте программу Snapshot Viewer (http://sderni.ru/171600) при помощи AutoIt таким образом, чтобы открытие файла 1.snp и вообще, открытие файлов с расширением *.snp происходило на весь экран монитора

Насколько я пока ковыряюсь, я иду пока в сторону
Код:
Run('SNAPVIEW.EXE', '', @SW_MAXIMIZE)
Хотя я могу ошибаться, хотя создал файл C:\Program Files\Snapshot Viewer\1.au3 с кодом выше, при помощи Aut2Exe сделал из C:\Program Files\Snapshot Viewer\1.au3 файл C:\Program Files\Snapshot Viewer\1.exe, запускаю файл C:\Program Files\Snapshot Viewer\1.exe, программа Snapshot Viewer запускается на весь экран (http://sderni.ru/171604), уже какой-никакой успех
Но только надо как-то в код выше добавить открытие файлов с расширением *.snp

Спасибо.
 

BIOS

Жизнь - игра. График - супер, но сюжет - хреновый.
Сообщения
173
Репутация
69
Код:
ShellExecute ( "1.snp", "", "", "open", @SW_MAXIMIZE )


Или

Код:
Run('SNAPVIEW.EXE 1.snp', '', @SW_MAXIMIZE)
 
Автор
S

SharkyEXE

Новичок
Сообщения
134
Репутация
0
BIOS
Насколько я понял, Ваши два варианта годятся только для файла 1.snp
А мне бы хотелось универсальности, чтобы файл с любым именем с расширением *.snp, в том числе и 1.snp, открывался на весь экран
Спасибо.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
SharkyEXE,
Можно сделать, например, так, чтобы при перетаскивании файлов *.snp на AutoIt exe-файл, он открывался в Вашей программе на весь экран. Показать как?
 
Автор
S

SharkyEXE

Новичок
Сообщения
134
Репутация
0
Можно сделать, например, так, чтобы при перетаскивании файлов *.snp на AutoIt exe-файл, он открывался в Вашей программе на весь экран. Показать как?
А нельзя никак, пожалуйста, без перетаскивания сделать?
Прошу меня понять правильно, просто мне так неудобно станет, то и дело таскать файлы с расширением *.snp на exe файл.
А так я привык - тыкнул быстро два раза левой кнопкой мышки по файлу *.snp, развернул программу на весь экран и смотрю файл.
Только вот мне надоело уже каждый раз при просмотре файлов *.snp то и дело программу разворачивать на весь экран, на весь экран всяко приятнее смотреть файлы *.snp, чем в небольшом окне.
Спасибо.
 

WSWR

AutoIT Гуру
Сообщения
941
Репутация
363
SharkyEXE

Код:
Run('SNAPVIEW.EXE ' & $CmdLine[1], '', @SW_MAXIMIZE)


Ассоциируйте *.snp с exe, сделаным из этого скрипта (Свойства файла - приложение...)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
SharkyEXE,
Код:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $sExe = @ProgramFilesDir & '\Snapshot Viewer\SNAPVIEW.EXE'

If Not @Compiled Then Exit MsgBox(16, 'Error', 'Compiled only')
If Not $CmdLine[0] Then Exit
For $i = 1 To $CmdLine[0]
	If StringRight($CmdLine[$i], 4) = '.snp' Then
		Run('"' & $sExe & '" "' & $CmdLine[$i] & '"', '', @SW_MAXIMIZE)
		ExitLoop
	EndIf
Next
А что делать, см. выше.
 
Автор
S

SharkyEXE

Новичок
Сообщения
134
Репутация
0
Ассоциируйте *.snp с exe, сделаным из этого скрипта (Свойства файла - приложение...)
Сделал, но при открытии файла 1.snp мне выдается окно с заголовком Просмотр снимков и текстом Ошибка при открытии файла снимка
Пожалуйста, если это возможно, проверьте Вы у себя, у Вас это работает или нет, может быть я что-то не то делаю, ссылки на программу и файл 1.snp есть в шапке этой моей темы.
Спасибо.

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $sExe = @ProgramFilesDir & '\Snapshot Viewer\SNAPVIEW.EXE'

If Not @Compiled Then Exit MsgBox(16, 'Error', 'Compiled only')
If Not $CmdLine[0] Then Exit
For $i = 1 To $CmdLine[0]
If StringRight($CmdLine[$i], 4) = '.snp' Then
Run('"' & $sExe & '" "' & $CmdLine[$i] & '"', '', @SW_MAXIMIZE)
ExitLoop
EndIf
Next
Офигеть, всё работает, ура. :IL_AutoIt_1:

Всем большое спасибо за помощь в решении моей проблемки.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
SharkyEXE,
Предупреждение Оформите, пожалуйста, тему в соответствии с Правилами обязательного оформления тем в разделе "Стол заказов"

С уважением, ваш Модератор.


Надо было первое сообщение поправить. :smile:
Код:
#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $sExe = @ScriptDir & '\SNAPVIEW.EXE'

If Not FileExists($sExe) Then Exit MsgBox(16, 'Error', 'Положите меня сначала в папку с SNAPVIEW.EXE')
If $CmdLine[0] Then
	For $i = 1 To $CmdLine[0]
		If StringRight($CmdLine[$i], 4) = '.snp' Then
			Run('"' & $sExe & '" "' & $CmdLine[$i] & '"', '', @SW_MAXIMIZE)
			Exit
		EndIf
	Next
Else
	Run('"' & $sExe & '"', '', @SW_MAXIMIZE)
EndIf
 
Верх