Помощь с кодом

koks0017 · 30 Июн 2017

Версия AutoIt: 3.
Version 3.5.4
Описание:
Добрый день. Просьба помочь с кодом.

Собственно сам код. Он не работает.

Код:

#include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>
#include <MsgBoxConstants.au3>


$GUI  = GUICreate('Для аудиторий', 220, 80)
$knopka1=GUICtrlCreateButton ("Преподователи",5,15,100)
$knopka2=GUICtrlCreateButton ("Слушатели!",110,15,100)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $knopka1
            _Vibor_OC_Prepodov()
	    Case $knopka2
            _Vibor_OC_Clushateleu()
    EndSwitch
wend


Func _Vibor_OC_Prepodov()
    $GUI2 = GUICreate('Выбор ОС преподователя', 220, 80, -1, -1, -1, -1, $GUI)
	$knopka3=GUICtrlCreateButton ("Windows XP",5,15,100)
    $knopka4=GUICtrlCreateButton ("Windows 7",110,15,100)
    GUISetState()

    Do
    until GUIGetMsg() = -3

    GUIDelete($GUI2)
 EndFunc

 Func _Vibor_OC_Clushateleu()
    $GUI3 = GUICreate('Выбор ОС слушателя', 220, 80, -1, -1, -1, -1, $GUI)
	$knopka5=GUICtrlCreateButton ("Windows XP",5,15,100)
    $knopka6=GUICtrlCreateButton ("Windows 7",110,15,100)
    GUISetState()

    Do
    until GUIGetMsg() = -3

    GUIDelete($GUI3)
 EndFunc

While 2
   $nMsg = GUIGetMsg
   Switch $nMsg
	   Case $knopka3
			_Parametr()
	    Case $knopka4
			_Parametr2()
	    Case $knopka5
			_Parametr3()
	    Case $knopka6
			_Parametr4()
		 EndSwitch
	  WEnd

 Func _Parametr()
    $GUI4 = GUICreate('Параметры', 500, 400, -1, -1, -1, -1, $GUI2)
	$knopka7=GUICtrlCreateButton ("Установка InternetCensor",5,15,100)
    $knopka8=GUICtrlCreateButton ("Добавить белый лист сайтов",110,15,100)
	$knopka9=GUICtrlCreateButton ("Настроить меню пуск",110,100,100)
	$knopka10=GUICtrlCreateButton ("Отключить Windows Search",110,150,100)
	$knopka11=GUICtrlCreateButton ("Запуск файла win7.reg",110,200,100)
    GUISetState()

    Do
    until GUIGetMsg() = -3

    GUIDelete($GUI3)
 EndFunc

 Func _Parametr2()
    $GUI5 = GUICreate('Параметры', 500, 400, -1, -1, -1, -1, $GUI3)
	$knopka7=GUICtrlCreateButton ("Установка InternetCensor",5,15,100)
    $knopka8=GUICtrlCreateButton ("Добавить белый лист сайтов",110,15,100)
	$knopka9=GUICtrlCreateButton ("Настроить меню пуск",110,100,100)
	$knopka10=GUICtrlCreateButton ("Отключить Windows Search",110,150,100)
	$knopka11=GUICtrlCreateButton ("Запуск файла win7.reg",110,200,100)
    GUISetState()

    Do
    until GUIGetMsg() = -3

    GUIDelete($GUI3)
 EndFunc

 Func _Parametr3()
    $GUI6 = GUICreate('Параметры', 500, 400, -1, -1, -1, -1, $GUI2)
	$knopka7=GUICtrlCreateButton ("Установка InternetCensor",5,15,100)
    $knopka8=GUICtrlCreateButton ("Добавить белый лист сайтов",110,15,100)
	$knopka9=GUICtrlCreateButton ("Настроить меню пуск",110,100,100)
	$knopka10=GUICtrlCreateButton ("Отключить Windows Search",110,150,100)
	$knopka11=GUICtrlCreateButton ("Запуск файла win7.reg",110,200,100)
    GUISetState()

    Do
    until GUIGetMsg() = -3

    GUIDelete($GUI2)
 EndFunc

 Func _Parametr4()
    $GUI7 = GUICreate('Параметры', 500, 400, -1, -1, -1, -1, $GUI2)
	$knopka7=GUICtrlCreateButton ("Установка InternetCensor",5,15,100)
    $knopka8=GUICtrlCreateButton ("Добавить белый лист сайтов",110,15,100)
	$knopka9=GUICtrlCreateButton ("Настроить меню пуск",110,100,100)
	$knopka10=GUICtrlCreateButton ("Отключить Windows Search",110,150,100)
	$knopka11=GUICtrlCreateButton ("Запуск файла win7.reg",110,200,100)
    GUISetState()

    Do
    until GUIGetMsg() = -3

    GUIDelete($GUI2)
EndFunc

Если кто подскажет как это можно в дальнейшем реализовать то буду признателен.
Файлы с батонов будут лежать рядом с кодом. Если можно автоматизировать и этот процесс то скину их сюда.
Примечания:

ra4o · 30 Июн 2017

В функциях Вы дочерние окна таким образом создаёте ? Посмотрите , как правильно это делать:http://autoit-script.ru/index.php?topic=3925.msg40064#msg40064
Зачем наплодили функций "_Parametr()" ведь они все одинаковые и функции выбора ОС тоже одинаковые для преподавателей и слушателей . Вот , по-быстрому чуток исправил:

Код:

#include <GUIConstantsEx.au3>
#include <WinAPIEx.au3>
#include <MsgBoxConstants.au3>


$GUI = GUICreate('Для аудиторий', 220, 80)
$knopka1 = GUICtrlCreateButton("Преподователи", 5, 15, 100)
$knopka2 = GUICtrlCreateButton("Слушатели!", 110, 15, 100)
GUISetState()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $knopka1
			_Vibor_OC('преподавателя', $GUI)
		Case $knopka2
			_Vibor_OC('слушателя', $GUI)
	EndSwitch
WEnd


Func _Vibor_OC($Name, $hParent = 0)
	Local $hSettings, $iGOEM_Opt

	$GUI2 = GUICreate('Выбор ОС ' & $Name, 220, 80, -1, -1, -1, -1, $hParent)
	$knopka3 = GUICtrlCreateButton("Windows XP", 5, 15, 100)
	$knopka4 = GUICtrlCreateButton("Windows 7", 110, 15, 100)
	GUISetState()

	While 1
		$nMsg = GUIGetMsg()

		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				ExitLoop
			Case $knopka3
				_Parametr($Name,$GUI2)
			Case $knopka4
				_Parametr($Name,$GUI2)
		EndSwitch
	WEnd

	GUIDelete($GUI2)
EndFunc   ;==>_Vibor_OC

Func _Parametr($Name,$hParent = 0)
	Local $hSettings, $iGOEM_Opt


	$GUI4 = GUICreate('Параметры для '&$Name, 500, 400, -1, -1, -1, -1, $hParent)
	$knopka7 = GUICtrlCreateButton("Установка InternetCensor", 5, 15, 100)
	$knopka8 = GUICtrlCreateButton("Добавить белый лист сайтов", 110, 15, 100)
	$knopka9 = GUICtrlCreateButton("Настроить меню пуск", 110, 100, 100)
	$knopka10 = GUICtrlCreateButton("Отключить Windows Search", 110, 150, 100)
	$knopka11 = GUICtrlCreateButton("Запуск файла win7.reg", 110, 200, 100)
	GUISetState()

	While 1
		$nMsg = GUIGetMsg()

		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				ExitLoop
			Case $knopka7
				MsgBox(48, '', 'Нажата кнопка "Установка InternetCensor"'&@CR&'для '&$Name)
			Case $knopka8
				MsgBox(48, '', 'Нажата кнопка "Добавить белый лист сайтов"'&@CR&'для '&$Name)
			Case $knopka9
				MsgBox(48, '', 'Нажата кнопка "Настроить меню пуск"'&@CR&'для '&$Name)
			Case $knopka10
				MsgBox(48, '', 'Нажата кнопка "Отключить Windows Search"'&@CR&'для '&$Name)
			Case $knopka11
				MsgBox(48, '', 'Нажата кнопка "Запуск файла win7.reg"'&@CR&'для '&$Name)
		EndSwitch
	WEnd


	GUIDelete($GUI4)
EndFunc   ;==>_Parametr

OffTopic:
А что за версия AutoIt у Вас такая ?

Version 3.5.4

koks0017 · 30 Июн 2017

Спасибо. Скачал из инета. Версия 2015 года.
Добавлено:
Сообщение автоматически объединено: 30 Июн 2017

Там не совсем они одинаковые, при нажатии на кнопку "преподаватель" должны быть кнопки 1) Удалить все файлы с Desktop 2) Установка Timefreeze.exe 3) Замена файла Language.ini 4) Добавить в Timefreeze исключение

ra4o сказал(а):

В функциях Вы дочерние окна таким образом создаёте ? Посмотрите , как правильно это делать:http://autoit-script.ru/index.php?topic=3925.msg40064#msg40064
Зачем наплодили функций "_Parametr()" ведь они все одинаковые и функции выбора ОС тоже одинаковые для преподавателей и слушателей . Вот , по-быстрому чуток исправил:

Код:

#include <GUIConstantsEx.au3>
#include <WinAPIEx.au3>
#include <MsgBoxConstants.au3>



$GUI = GUICreate('Для аудиторий', 220, 80)
$knopka1 = GUICtrlCreateButton("Преподователи", 5, 15, 100)
$knopka2 = GUICtrlCreateButton("Слушатели!", 110, 15, 100)
GUISetState()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $knopka1
			_Vibor_OC('преподавателя', $GUI)
		Case $knopka2
			_Vibor_OC('слушателя', $GUI)
	EndSwitch
WEnd


Func _Vibor_OC($Name, $hParent = 0)
	Local $hSettings, $iGOEM_Opt

	$GUI2 = GUICreate('Выбор ОС ' & $Name, 220, 80, -1, -1, -1, -1, $hParent)
	$knopka3 = GUICtrlCreateButton("Windows XP", 5, 15, 100)
	$knopka4 = GUICtrlCreateButton("Windows 7", 110, 15, 100)
	GUISetState()

	While 1
		$nMsg = GUIGetMsg()

		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				ExitLoop
			Case $knopka3
				_Parametr($Name,$GUI2)
			Case $knopka4
				_Parametr($Name,$GUI2)
		EndSwitch
	WEnd

	GUIDelete($GUI2)
EndFunc   ;==>_Vibor_OC

Func _Parametr($Name,$hParent = 0)
	Local $hSettings, $iGOEM_Opt


	$GUI4 = GUICreate('Параметры для '&$Name, 500, 400, -1, -1, -1, -1, $hParent)
	$knopka7 = GUICtrlCreateButton("Установка InternetCensor", 5, 15, 100)
	$knopka8 = GUICtrlCreateButton("Добавить белый лист сайтов", 110, 15, 100)
	$knopka9 = GUICtrlCreateButton("Настроить меню пуск", 110, 100, 100)
	$knopka10 = GUICtrlCreateButton("Отключить Windows Search", 110, 150, 100)
	$knopka11 = GUICtrlCreateButton("Запуск файла win7.reg", 110, 200, 100)
	GUISetState()

	While 1
		$nMsg = GUIGetMsg()

		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				ExitLoop
			Case $knopka7
				MsgBox(48, '', 'Нажата кнопка "Установка InternetCensor"'&@CR&'для '&$Name)
			Case $knopka8
				MsgBox(48, '', 'Нажата кнопка "Добавить белый лист сайтов"'&@CR&'для '&$Name)
			Case $knopka9
				MsgBox(48, '', 'Нажата кнопка "Настроить меню пуск"'&@CR&'для '&$Name)
			Case $knopka10
				MsgBox(48, '', 'Нажата кнопка "Отключить Windows Search"'&@CR&'для '&$Name)
			Case $knopka11
				MsgBox(48, '', 'Нажата кнопка "Запуск файла win7.reg"'&@CR&'для '&$Name)
		EndSwitch
	WEnd


	GUIDelete($GUI4)
EndFunc   ;==>_Parametr

OffTopic:
А что за версия AutoIt у Вас такая ?

Version 3.5.4

ra4o · 30 Июн 2017

Там не совсем они одинаковые, при нажатии на кнопку "преподаватель" должны быть кнопки

меняйте название кнопок в зависимости от имени пользователя в самой функции либо передавайте названия , как параметр функции.

Garrett · 30 Июн 2017

koks0017

Предупреждение За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

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

Предупреждение За нарушение общих правил (пункт В.2):

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

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

OffTopic:
Ещё за название темы не мешало бы, но так как раздел не тематический, я закрываю глаза.

Alofa · 30 Июн 2017

OffTopic:

ra4o сказал(а):
...
OffTopic:
А что за версия AutoIt у Вас такая ?..

Autoit v3.3.14.2

koks0017 · 3 Июл 2017

А как сделать что-бы выполнялось требуемое по нажатиям кнопок? желательно и с автоустановкой.
Только файл реестра не открывайте на винде. Залочит все что можно! :smile:

https://cloud.mail.ru/public/JSKM/CCeGW5QQT Сами файлы.
Добавлено:
Сообщение автоматически объединено: 3 Июл 2017

Переделал код немного.

Код:

#include <GUIConstantsEx.au3>
#include <WinAPIEx.au3>
#include <MsgBoxConstants.au3>


$GUI = GUICreate('Для аудиторий', 220, 80)
$knopka1 = GUICtrlCreateButton("Преподователи", 5, 15, 100)
$knopka2 = GUICtrlCreateButton("Слушатели", 110, 15, 100)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $knopka1
            _Vibor_OC('преподавателя', $GUI)
        Case $knopka2
            _Vibor_OC1('слушателя', $GUI)
    EndSwitch
WEnd


Func _Vibor_OC($Name, $hParent = 0)
    Local $hSettings, $iGOEM_Opt

    $GUI2 = GUICreate('Выбор ОС ' & $Name, 220, 80, -1, -1, -1, -1, $hParent)
    $knopka3 = GUICtrlCreateButton("Windows XP", 5, 15, 100)
    $knopka4 = GUICtrlCreateButton("Windows 7", 110, 15, 100)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka3
                _Parametr1($Name,$GUI2)
            Case $knopka4
                _Parametr1($Name,$GUI2)
        EndSwitch
    WEnd

    GUIDelete($GUI2)
 EndFunc

 Func _Vibor_OC1($Name, $hParent = 0)
    Local $hSettings, $iGOEM_Opt

    $GUI3 = GUICreate('Выбор ОС ' & $Name, 220, 80, -1, -1, -1, -1, $hParent)
    $knopka5 = GUICtrlCreateButton("Windows XP", 5, 15, 100)
    $knopka6 = GUICtrlCreateButton("Windows 7", 110, 15, 100)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka5
                _Parametr($Name,$GUI3)
            Case $knopka6
                _Parametr($Name,$GUI3)
        EndSwitch
    WEnd

    GUIDelete($GUI3)
EndFunc

Func _Parametr($Name,$hParent = 0)
    Local $hSettings, $iGOEM_Opt


    $GUI4 = GUICreate('Параметры для '&$Name, 330, 100, -1, -1, -1, -1, $hParent)
    $knopka7 = GUICtrlCreateButton("Установка InternetCensor", 5, 15, 150)
    $knopka8 = GUICtrlCreateButton("Добавить белый лист сайтов", 160, 15, 160)
    $knopka9 = GUICtrlCreateButton("Настроить меню пуск", 5, 40, 150)
    $knopka10 = GUICtrlCreateButton("Отключить Windows Search", 160, 40, 160)
    $knopka11 = GUICtrlCreateButton("Запуск файла win7.reg", 80, 65, 160)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka7
                MsgBox(48, '', 'Нажата кнопка "Установка InternetCensor"'&@CR&'для '&$Name)
            Case $knopka8
                MsgBox(48, '', 'Нажата кнопка "Добавить белый лист сайтов"'&@CR&'для '&$Name)
            Case $knopka9
                MsgBox(48, '', 'Нажата кнопка "Настроить меню пуск"'&@CR&'для '&$Name)
            Case $knopka10
                MsgBox(48, '', 'Нажата кнопка "Отключить Windows Search"'&@CR&'для '&$Name)
            Case $knopka11
                MsgBox(48, '', 'Нажата кнопка "Запуск файла win7.reg"'&@CR&'для '&$Name)
        EndSwitch
    WEnd


    GUIDelete($GUI4)
 EndFunc

 Func _Parametr1($Name,$hParent = 0)
    Local $hSettings, $iGOEM_Opt


    $GUI5 = GUICreate('Параметры для '&$Name, 330, 100, -1, -1, -1, -1, $hParent)
    $knopka12 = GUICtrlCreateButton("Установка Timefreeze", 5, 15, 150)
    $knopka13 = GUICtrlCreateButton("Русификация Timefreeze", 160, 15, 160)
    $knopka14 = GUICtrlCreateButton("Настройка Timefreeze", 5, 40, 150)
    $knopka15 = GUICtrlCreateButton("Добавление исключений", 160, 40, 160)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka12
                MsgBox(48, '', 'Нажата кнопка "Установка Timefreeze"'&@CR&'для '&$Name)
            Case $knopka13
                MsgBox(48, '', 'Нажата кнопка "Русификация Timefreeze"'&@CR&'для '&$Name)
            Case $knopka14
                MsgBox(48, '', 'Нажата кнопка "Настройка Timefreeze"'&@CR&'для '&$Name)
            Case $knopka15
                MsgBox(48, '', 'Нажата кнопка "Добавление исключений"'&@CR&'для '&$Name)
        EndSwitch
    WEnd


    GUIDelete($GUI5)
EndFunc

ra4o · 3 Июл 2017

Не вникал в подробности установки и настройки "InternetCensor" и пр., но возможно Вам помогут команды:

Код:

Run ( "program" [, "workingdir" [, show_flag [, opt_flag ]]] ); Для запуска внешних программ
FileCopy ( "source", "dest" [, flag = 0 ] ); копировать в процессе настройки файлы
;и возможно ещё
RegWrite ( "keyname" [, "valuename" , "type" , value ] );для изменения параметров реестра

koks0017 · 3 Июл 2017

ra4o сказал(а):
Не вникал в подробности установки и настройки "InternetCensor" и пр., но возможно Вам помогут команды

А можно пример? Я сильно новичок :smile:

ra4o · 3 Июл 2017

А можно пример?

Нажмите левой кнопкой мышки на название функции из текста кода в предыдущем сообщении и откроется окно с её описанием, внизу страницы будет несколько примеров для данной функции.

koks0017 · 3 Июл 2017

Не совсем понимаю синтаксис, типа того должно получиться?

Код:

Case $knopka7
                Run ("C:\!Tools\InternetCensor.exe")

ra4o · 3 Июл 2017

Да, пробуйте, запускайте, смотрите, что получится, что нет, какие ошибки....

koks0017 · 4 Июл 2017

ra4o сказал(а):
Да, пробуйте, запускайте, смотрите, что получится, что нет, какие ошибки....

Получилось следующие

Код:

Func _Parametr($Name,$hParent = 0)
    Local $hSettings, $iGOEM_Opt


    $GUI4 = GUICreate('Параметры для '&$Name, 330, 100, -1, -1, -1, -1, $hParent)
    $knopka7 = GUICtrlCreateButton("Установка InternetCensor", 5, 15, 150)
    $knopka8 = GUICtrlCreateButton("Добавить белый лист сайтов", 160, 15, 160)
    $knopka9 = GUICtrlCreateButton("Настроить меню пуск", 5, 40, 150)
    $knopka10 = GUICtrlCreateButton("Отключить Windows Search", 160, 40, 160)
    $knopka11 = GUICtrlCreateButton("Запуск файла win7.reg", 80, 65, 160)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka7
                Run (@WindowsDir "C:\!Tools\InternetCensor.exe")
            Case $knopka8
                Run (@WindowsDir "C:\!Tools\listsites.txt")
            Case $knopka9
                MsgBox(48, '', 'Нажата кнопка "Настроить меню пуск"'&@CR&'для '&$Name)
            Case $knopka10
                MsgBox(48, '', 'Нажата кнопка "Отключить Windows Search"'&@CR&'для '&$Name)
            Case $knopka11
                MsgBox(48, '', 'Нажата кнопка "Запуск файла win7.reg"'&@CR&'для '&$Name)
        EndSwitch
    WEnd


    GUIDelete($GUI4)
 EndFunc

Но он ругается, выдает ошибку. Говорит: C:\!Tools\3.au3" (93) : ==> Error in expression.: по ходу где-то с синтаксисом напортачил.

ra4o · 4 Июл 2017

Желательно весь текст скрипта дайте, в функции всё, вроде-бы нормально, возможно вызываете функцию с не верными параметрами.

koks0017 · 4 Июл 2017

ra4o сказал(а):
Желательно весь текст скрипта дайте, в функции всё, вроде-бы нормально, возможно вызываете функцию с не верными параметрами.

Весь текст скрипта:

Код:

#include <GUIConstantsEx.au3>
#include <WinAPIEx.au3>
#include <MsgBoxConstants.au3>


$GUI = GUICreate('Для аудиторий', 220, 80)
$knopka1 = GUICtrlCreateButton("Преподователи", 5, 15, 100)
$knopka2 = GUICtrlCreateButton("Слушатели", 110, 15, 100)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $knopka1
            _Vibor_OC('преподавателя', $GUI)
        Case $knopka2
            _Vibor_OC1('слушателя', $GUI)
    EndSwitch
WEnd


Func _Vibor_OC($Name, $hParent = 0)
    Local $hSettings, $iGOEM_Opt

    $GUI2 = GUICreate('Выбор ОС ' & $Name, 220, 80, -1, -1, -1, -1, $hParent)
    $knopka3 = GUICtrlCreateButton("Windows XP", 5, 15, 100)
    $knopka4 = GUICtrlCreateButton("Windows 7", 110, 15, 100)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka3
                _Parametr1($Name,$GUI2)
            Case $knopka4
                _Parametr1($Name,$GUI2)
        EndSwitch
    WEnd

    GUIDelete($GUI2)
 EndFunc

 Func _Vibor_OC1($Name, $hParent = 0)
    Local $hSettings, $iGOEM_Opt

    $GUI3 = GUICreate('Выбор ОС ' & $Name, 220, 80, -1, -1, -1, -1, $hParent)
    $knopka5 = GUICtrlCreateButton("Windows XP", 5, 15, 100)
    $knopka6 = GUICtrlCreateButton("Windows 7", 110, 15, 100)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka5
                _Parametr($Name,$GUI3)
            Case $knopka6
                _Parametr($Name,$GUI3)
        EndSwitch
    WEnd

    GUIDelete($GUI3)
EndFunc

Func _Parametr($Name,$hParent = 0)
    Local $hSettings, $iGOEM_Opt


    $GUI4 = GUICreate('Параметры для '&$Name, 330, 100, -1, -1, -1, -1, $hParent)
    $knopka7 = GUICtrlCreateButton("Установка InternetCensor", 5, 15, 150)
    $knopka8 = GUICtrlCreateButton("Добавить белый лист сайтов", 160, 15, 160)
    $knopka9 = GUICtrlCreateButton("Настроить меню пуск", 5, 40, 150)
    $knopka10 = GUICtrlCreateButton("Отключить Windows Search", 160, 40, 160)
    $knopka11 = GUICtrlCreateButton("Запуск файла win7.reg", 80, 65, 160)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka7
                Run (@WindowsDir "C:\!Tools\InternetCensor.exe")
            Case $knopka8
                Run (@WindowsDir "C:\!Tools\listsites.txt")
            Case $knopka9
                MsgBox(48, '', 'Нажата кнопка "Настроить меню пуск"'&@CR&'для '&$Name)
            Case $knopka10
                MsgBox(48, '', 'Нажата кнопка "Отключить Windows Search"'&@CR&'для '&$Name)
            Case $knopka11
                MsgBox(48, '', 'Нажата кнопка "Запуск файла win7.reg"'&@CR&'для '&$Name)
        EndSwitch
    WEnd


    GUIDelete($GUI4)
 EndFunc

 Func _Parametr1($Name,$hParent = 0)
    Local $hSettings, $iGOEM_Opt


    $GUI5 = GUICreate('Параметры для '&$Name, 330, 100, -1, -1, -1, -1, $hParent)
    $knopka12 = GUICtrlCreateButton("Установка Timefreeze", 5, 15, 150)
    $knopka13 = GUICtrlCreateButton("Русификация Timefreeze", 160, 15, 160)
    $knopka14 = GUICtrlCreateButton("Настройка Timefreeze", 5, 40, 150)
    $knopka15 = GUICtrlCreateButton("Добавление исключений", 160, 40, 160)
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $knopka12
                MsgBox(48, '', 'Нажата кнопка "Установка Timefreeze"'&@CR&'для '&$Name)
            Case $knopka13
                MsgBox(48, '', 'Нажата кнопка "Русификация Timefreeze"'&@CR&'для '&$Name)
            Case $knopka14
                MsgBox(48, '', 'Нажата кнопка "Настройка Timefreeze"'&@CR&'для '&$Name)
            Case $knopka15
                MsgBox(48, '', 'Нажата кнопка "Добавление исключений"'&@CR&'для '&$Name)
        EndSwitch
    WEnd


    GUIDelete($GUI5)
EndFunc

ra4o · 4 Июл 2017

А, ну так у Вас ошибка в строке

Код:

Run (@WindowsDir "C:\!Tools\InternetCensor.exe")

Зачем Вам "@WindowsDir" ? Запускайте так :

Код:

Run ( "C:\!Tools\InternetCensor.exe")

И остальные строки с "Run" поправьте.

koks0017 · 4 Июл 2017

Поправил, ошибка больше не возникает. Но к сожалению файл тоже не стартует.

ra4o · 4 Июл 2017

Путь правильный ? Попробуйте

Код:

ShellExecute('C:\!Tools\InternetCensor.exe')

и возможно поможет в начало скрипта добавить

Код:

#RequireAdmin

koks0017 · 5 Июл 2017

ra4o сказал(а):
Путь правильный ?

Заработало! А как сделать чтобы файлы запускались не по полному пути, а из той же директории где расположен сам скрипт?
Добавлено:
Сообщение автоматически объединено: 5 Июл 2017

Мне надо отключить все в меню пуск. Думаю над кликером

Код:

Case $knopka9
				Opt("SendKeyDelay",50)
                Send ("{LWIN} {UP} {LSHIFT}+{F10} {DOWN 2} {ENTER 2} " )

Что-то подобное, как сделать что-бы задержка при нажатиях работала? Есть способы отключение всех параметров в меню пуск отключить как-то по другому?

ra4o · 5 Июл 2017

А как сделать чтобы файлы запускались не по полному пути, а из той же директории где расположен сам скрипт?

Указывайте путь относительно расположения скрипта, например:

Код:

Run ( @ScriptDir&"\InternetCensor.exe")

Автор темы	Похожие темы	Форум	Ответы	Дата
	Буду безмерно благодарен за помощь с информацией	Общие вопросы по AutoIt	2	6 Дек 2022
D	Автозаполнение форм на сайте. Нужна помощь.	Покупка/продажа, поиск услуг	1	24 Июл 2022
S	Нужна помощь в нахождение указателя хп персонажа в онлайн игре.	Покупка/продажа, поиск услуг	3	5 Май 2022
M	Binary to ASCII с помощью RegExp	Регулярные выражения и прочее	0	11 Апр 2022
L	[Интеракция] [Help me] Нужна помощь с кодом	Общение	3	3 Ноя 2011

Помощь с кодом

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Модератор

Alofa

Гость

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру