Автор Тема: Помогите решить проблему  (Прочитано 122 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Xabib2302 [?]

  • Новичок
  • *
  • Сообщений: 24
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Помогите решить проблему
« Создано: Апрель 14, 2018, 10:30:22 »
Доброе время суток. Помогите решить проблему.

 

Код: AutoIt [Выделить]
#AutoIt3Wrapper_icon=Install.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Fileversion=10.04.2018
#AutoIt3Wrapper_Res_Description=Adobe Flash Player Installer by HeX
#AutoIt3Wrapper_Res_ProductVersion=10.04.2018
#AutoIt3Wrapper_Res_LegalCopyright=HeX © 2018
#AutoIt3Wrapper_Res_Language=1049
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UPX_Parameters=--best
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region
$Form1 = GUICreate("Form1", 442, 362, 200, 131)
$Group1 = GUICtrlCreateGroup("Этап #1. Проверка версии и деинсталляция.", 16, 8, 417, 185)
$Button1 = GUICtrlCreateButton("Проверить версию для Internet Explorer", 24, 32, 401, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Проверить версию для AOL, Firefox, Netscape, Opera", 24, 72, 401, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Проверить версию для платформы Chromium", 24, 112, 401, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Запустить деинсталлятор Adobe Flash Player", 24, 152, 401, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Этап #2. Установка.", 16, 200, 417, 145)
$Button5 = GUICtrlCreateButton("Установить Adobe Flash Player для Internet Explorer", 24, 224, 401, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("Установить Adobe Flash Player для AOL, Firefox, Netscape, Opera", 24, 264, 401, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("Установить Adobe Flash Player для платформы Chromium", 24, 304, 401, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
    GUISetState(@SW_HIDE)
    if $AX = RegRead("HKLM\SOFTWARE\Macromedia\FlashPlayerActiveX", "Version") then
    MsgBox(0, 'Adobe Flash Player Installer by HeX', 'Установлена версия для Internet Explorer: ' & $AX)
    Else
    MsgBox(0, 'Adobe Flash Player Installer by HeX', 'Версия для Internet Explorer не установлена.')
    EndIf
    GUISetState(@SW_SHOW)
EndSwitch
WEnd
 


Русское сообщество AutoIt

Помогите решить проблему
« Отправлен: Апрель 14, 2018, 10:30:22 »

Оффлайн joiner [?]

  • Расмус-бродяга
  • AutoIt Гуру
  • *****
  • Сообщений: 2646
  • Репутация: 448
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Помогите решить проблему
« Ответ #1, Отправлен: Апрель 14, 2018, 10:37:32 »
Код: AutoIt [Выделить]
        Case $Button1
            Local $AX

и вообще - объявляй все переменные. либо локальные либо глобальные, а то такие ошибки будут крашить программу
запиши в начале скрипта
Код: AutoIt [Выделить]
Opt("MustDeclareVars", 1)  

это поможет найти не объявленные переменные
Были времена, когда солнце было ярче, трава зеленее, а водка сорокоградуснее

Оффлайн Xabib2302 [?]

  • Новичок
  • *
  • Сообщений: 24

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Помогите решить проблему
« Ответ #2, Отправлен: Апрель 14, 2018, 11:14:41 »
joiner
И еще одна проблема. Если в реестре отсутствует ветка или строка, то вместо сообщения Версия для Internet Explorer не установлена появляется сообщение Установлена версия для Internet Explorer:

Оффлайн joiner [?]

  • Расмус-бродяга
  • AutoIt Гуру
  • *****
  • Сообщений: 2646
  • Репутация: 448
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Помогите решить проблему
« Ответ #3, Отправлен: Апрель 14, 2018, 11:49:01 »
Код: AutoIt [Выделить]
        Case $Button1
            GUISetState(@SW_HIDE)
            Local $AX = RegRead("HKLM\SOFTWARE\Macromedia\FlashPlayerActiveX", "Version")
            If Not @error Then
                MsgBox(0, 'Adobe Flash Player Installer by HeX', 'Установлена версия для Internet Explorer: ' & $AX)
            Else
                MsgBox(0, 'Adobe Flash Player Installer by HeX', 'Версия для Internet Explorer не установлена.')
            EndIf
            GUISetState(@SW_SHOW)

OffTopicв одной теме не задавай разные вопросы. один вопрос одна тема по правилам форума. насчет названия темы тоже момент- оно должно отображать проблему .

Русское сообщество AutoIt

Re: Помогите решить проблему
« Ответ #3 Отправлен: Апрель 14, 2018, 11:49:01 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
4 Ответов
2664 Просмотров
Последний ответ Август 24, 2010, 16:23:15
от gregaz
6 Ответов
2366 Просмотров
Последний ответ Сентябрь 13, 2011, 17:13:38
от agikon
8 Ответов
2729 Просмотров
Последний ответ Сентябрь 20, 2011, 12:52:24
от joiner
0 Ответов
2382 Просмотров
Последний ответ Июнь 25, 2012, 16:44:48
от admirko
5 Ответов
2444 Просмотров
Последний ответ Октябрь 26, 2012, 01:01:15
от joiner
4 Ответов
1854 Просмотров
Последний ответ Ноябрь 29, 2013, 13:46:45
от Exieros
0 Ответов
1038 Просмотров
Последний ответ Декабрь 03, 2013, 22:28:31
от madmasles
14 Ответов
2281 Просмотров
Последний ответ Май 21, 2015, 17:19:07
от madmasles
0 Ответов
542 Просмотров
Последний ответ Июль 17, 2015, 05:02:47
от madmasles
0 Ответов
256 Просмотров
Последний ответ Июль 08, 2017, 16:45:37
от ssvih-miaa