Что нового

[Автоматизация] Автоматический запуск файла после скачивания?

pandemia

Новичок
Сообщения
12
Репутация
0
Всем :IL_AutoIt_1: доброго дня!
Вопрос такой: Как в моем updater сделать так чтобы после загрузки, файл автоматически запускался, ну или предлагал запуск а в случае отказа от запуска отменял скачивание!
Моя кнопка на скачивание!
Код:
Case $Button1
   InetGet("http//:Filedown.gg//file.exe","myfile.exe")
   MsgBox (64, "Удачная загрузка","Можно продолжать")
 

gunter123

Продвинутый
Сообщения
159
Репутация
69
Отказаться от загрузки после загрузки?
Вот вам такой вариант - удаляет файл, если пользователь отказался запустить его
Код:
#include <Inet.au3>

InetGet("http//:Filedown.gg//file.exe", @ScriptDir & "/myfile.exe")

If Not @error Then
   If MsgBox(4, "Файл загружен", "Запустить файл?") = 6 Then
	  Run(@ScriptDir & "/myfile.exe")
   Else
	  FileDelete(@ScriptDir & "/myfile.exe")
   EndIf
Else
   MsgBox(4096, "Ошибка", "Ошибка скачивания")
EndIf

Или такой вариант - не скачивает файл вообще, если пользователь отказался
Код:
#include <Inet.au3>

If MsgBox(4, "myfile.exe", "Загрузить файл?") = 6 Then
   InetGet("http//:Filedown.gg//file.exe", @ScriptDir & "/myfile.exe")
   If Not @error Then
	  Run(@ScriptDir & "/myfile.exe")
   Else
	  MsgBox(4096, "", "Ошибка")
   EndIf
EndIf
 
Автор
P

pandemia

Новичок
Сообщения
12
Репутация
0
gunter123 сказал(а):
Отказаться от загрузки после загрузки?
Вот вам такой вариант - удаляет файл, если пользователь отказался запустить его
Код:
#include <Inet.au3>

InetGet("http//:Filedown.gg//file.exe", @ScriptDir & "/myfile.exe")

If Not @error Then
   If MsgBox(4, "Файл загружен", "Запустить файл?") = 6 Then
	  Run(@ScriptDir & "/myfile.exe")
   Else
	  FileDelete(@ScriptDir & "/myfile.exe")
   EndIf
Else
   MsgBox(4096, "Ошибка", "Ошибка скачивания")
EndIf

Или такой вариант - не скачивает файл вообще, если пользователь отказался
Код:
#include <Inet.au3>

If MsgBox(4, "myfile.exe", "Загрузить файл?") = 6 Then
   InetGet("http//:Filedown.gg//file.exe", @ScriptDir & "/myfile.exe")
   If Not @error Then
	  Run(@ScriptDir & "/myfile.exe")
   Else
	  MsgBox(4096, "", "Ошибка")
   EndIf
EndIf

Спасибо огромное это действительно работает для меня! Вы лучшие ребята! Те кто помогает нам неучам!
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
pandemia

Предупреждение За нарушение общих правил (пункт В.2):
Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.


С уважением, ваш Глобальный модератор.
 
Верх