; QuickSave for Opera Ver 1.1
#NoTrayIcon
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
$QuickSaveDir = @MyDocumentsDir & "\Web\"
$Title = "Сохранить как"
$Num = 1
WinWaitActive($Title, "", 5)
ControlDisable($Title, "", "SysListView321")
ControlCommand($Title, "", "ComboBox3", "SetCurrentSelection", 2) ; 1 - HTML with images, 2 - MHT
ControlCommand($Title, "", "ComboBox3", "SetCurrentSelection", 2) ; 1 - HTML with images, 2 - MHT
$text = ControlCommand($Title, "", "Edit1", "GetSelected", "")
If FileExists($QuickSaveDir & $text) Then
$result = StringInStr($text, ".", 0, -1)
$Name = StringLeft($text, $result - 1)
$Ext = StringMid($text, $result)
While FileExists($QuickSaveDir & $Name & "_" & $Num & $Ext)
$Num = $Num + 1
WEnd
$text = $Name & "_" & $Num & $Ext
EndIf
ControlCommand($Title, "", "Edit1", "EditPaste", $QuickSaveDir & $text)
ControlCommand($Title, "", "Button2", "Check", "")
Exit |
Кучу времени сэкономил. На этом форуме репутации нету? давайте ссылку, куда вам плюс поставить! =)