Что нового

Помогите решить проблему

Сообщения
95
Репутация
-1
Доброе время суток. Помогите решить проблему.



Код:
#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
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Код:
Case $Button1
			Local $AX

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

это поможет найти не объявленные переменные
 
Автор
Xabib2302
Сообщения
95
Репутация
-1
joiner
И еще одна проблема. Если в реестре отсутствует ветка или строка, то вместо сообщения Версия для Internet Explorer не установлена появляется сообщение Установлена версия для Internet Explorer:
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Код:
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:
в одной теме не задавай разные вопросы. один вопрос одна тема по правилам форума. насчет названия темы тоже момент- оно должно отображать проблему .
 
Верх