Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

5peciali5t



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Код:
 
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
$hGUI = GUICreate("Office 201x Select Edition", 542, 532, -1, -1)
Local $hTab = GUICtrlCreateTab(5, 90, 535, 408)
GUICtrlCreateTabItem("          Установка          ")
Global $singleapps = GUICtrlCreateGroup("", 335, 110, 100, 235)
Global $architecture = GUICtrlCreateGroup("Разрядность", 440, 115, 90, 65)
Global $standard = GUICtrlCreateGroup("", 225, 110, 100, 235)
Global $proplus = GUICtrlCreateGroup("", 115, 110, 105, 235)
Global $mondo = GUICtrlCreateGroup("", 10, 110, 100, 295)
Global $singleapps2 = GUICtrlCreateGroup("Single apps", 115, 345, 320, 60)
 
 
Global $hCheckbox53 = GUICtrlCreateCheckbox("Office Mondo", 15, 120, 80, 20)
GUICtrlSetTip(-1, "Включает Office ProPlus + Project Pro + Visio Pro + Sharepoint Desigher")
 
Global $hCheckbox69 = GUICtrlCreateCheckbox("Project Pro", 25, 380, 80, 20)
Global $hCheckbox68 = GUICtrlCreateCheckbox("Visio Pro", 25, 360, 80, 20)
Global $hCheckbox67 = GUICtrlCreateCheckbox("SharePoint", 25, 340, 80, 20)
GUICtrlSetTip(-1, "SharePoint Designer")
Global $hCheckbox66 = GUICtrlCreateCheckbox("Skype FB", 25, 320, 80, 20)
GUICtrlSetTip(-1, "Skype for Business")
Global $hCheckbox65 = GUICtrlCreateCheckbox("OneDrive", 25, 300, 80, 20)
GUICtrlSetTip(-1, "OneDrive for Business")
Global $hCheckbox64 = GUICtrlCreateCheckbox("InfoPath", 25, 280, 80, 20)
Global $hCheckbox63 = GUICtrlCreateCheckbox("Access", 25, 260, 80, 20)
Global $hCheckbox62 = GUICtrlCreateCheckbox("Publisher", 25, 240, 80, 20)
Global $hCheckbox61 = GUICtrlCreateCheckbox("OneNote", 25, 220, 80, 20)
Global $hCheckbox60 = GUICtrlCreateCheckbox("Outlook", 25, 200, 80, 20)
Global $hCheckbox59 = GUICtrlCreateCheckbox("PowerPoint", 25, 180, 80, 20)
Global $hCheckbox58 = GUICtrlCreateCheckbox("Excel", 25, 160, 80, 20)
Global $hCheckbox57 = GUICtrlCreateCheckbox("Word", 25, 140, 80, 20)
 
 
Global $hCheckbox103 = GUICtrlCreateCheckbox("Office ProPlus", 120, 120, 83, 20)
 
Global $hCheckbox79 = GUICtrlCreateCheckbox("Skype FB", 130, 320, 80, 20)
GUICtrlSetTip(-1, "Skype for Business")
Global $hCheckbox78 = GUICtrlCreateCheckbox("OneDrive", 130, 300, 80, 20)
GUICtrlSetTip(-1, "OneDrive for Business")
Global $hCheckbox77 = GUICtrlCreateCheckbox("InfoPath", 130, 280, 80, 20)
Global $hCheckbox76 = GUICtrlCreateCheckbox("Access", 130, 260, 80, 20)
Global $hCheckbox75 = GUICtrlCreateCheckbox("Publisher", 130, 240, 80, 20)
Global $hCheckbox74 = GUICtrlCreateCheckbox("OneNote", 130, 220, 80, 20)
Global $hCheckbox73 = GUICtrlCreateCheckbox("Outlook", 130, 200, 80, 20)
Global $hCheckbox72 = GUICtrlCreateCheckbox("PowerPoint", 130, 180, 80, 20)
Global $hCheckbox71 = GUICtrlCreateCheckbox("Excel", 130, 160, 80, 20)
Global $hCheckbox70 = GUICtrlCreateCheckbox("Word", 130, 140, 80, 20)
 
 
Global $hCheckbox55 = GUICtrlCreateCheckbox("Office Standard", 230, 120, 94, 20)
 
Global $hCheckbox84 = GUICtrlCreateCheckbox("OneNote", 240, 220, 80, 20)
Global $hCheckbox83 = GUICtrlCreateCheckbox("Outlook", 240, 200, 80, 20)
Global $hCheckbox82 = GUICtrlCreateCheckbox("PowerPoint", 240, 180, 80, 20)
Global $hCheckbox81 = GUICtrlCreateCheckbox("Excel", 240, 160, 80, 20)
Global $hCheckbox80 = GUICtrlCreateCheckbox("Word", 240, 140, 83, 20)
 
 
Global $hCheckbox56 = GUICtrlCreateCheckbox("Single apps", 335, 120, 95, 20)
GUICtrlSetTip(-1, "Отдельные приложения Office")
 
Global $hCheckbox99 = GUICtrlCreateCheckbox("Project Standard", 230, 380, 95, 20)
Global $hCheckbox98 = GUICtrlCreateCheckbox("Visio Standard", 230, 360, 95, 20)
Global $hCheckbox97 = GUICtrlCreateCheckbox("Project Pro", 130, 380, 80, 20)
Global $hCheckbox96 = GUICtrlCreateCheckbox("Visio Pro", 130, 360, 80, 20)
Global $hCheckbox95 = GUICtrlCreateCheckbox("SharePoint", 345, 360, 80, 20)
GUICtrlSetTip(-1, "SharePoint Designer")
Global $hCheckbox94 = GUICtrlCreateCheckbox("Skype FB", 345, 320, 80, 20)
GUICtrlSetTip(-1, "Skype for Business")
Global $hCheckbox93 = GUICtrlCreateCheckbox("OneDrive", 345, 300, 80, 20)
GUICtrlSetTip(-1, "OneDrive for Business")
Global $hCheckbox92 = GUICtrlCreateCheckbox("InfoPath", 345, 280, 80, 20)
Global $hCheckbox91 = GUICtrlCreateCheckbox("Access", 345, 260, 80, 20)
Global $hCheckbox90 = GUICtrlCreateCheckbox("Publisher", 345, 240, 80, 20)
Global $hCheckbox89 = GUICtrlCreateCheckbox("OneNote", 345, 220, 80, 20)
Global $hCheckbox88 = GUICtrlCreateCheckbox("Outlook", 345, 200, 80, 20)
Global $hCheckbox87 = GUICtrlCreateCheckbox("PowerPoint", 345, 180, 80, 20)
Global $hCheckbox86 = GUICtrlCreateCheckbox("Excel", 345, 160, 80, 20)
Global $hCheckbox85 = GUICtrlCreateCheckbox("Word", 345, 140, 80, 20)
 
 
Global $hCheckbox102 = GUICtrlCreateCheckbox("Отключить обновление Office", 360, 415, 165, 20)
GUICtrlSetTip(-1, "Отметьте данную опцию если не хотите чтобы Office обновлялся через сеть или Интернет")
Global $hCheckbox101 = GUICtrlCreateCheckbox("KMS Активация", 225, 415, 110, 20)
GUICtrlSetTip(-1, "Автоматическая активация Office KMS активатором")
Global $hCheckbox100 = GUICtrlCreateCheckbox("Преобразование Retail в Volume", 15, 415, 185, 20)
GUICtrlSetTip(-1, "Если вы планируете активирвоать Office KMS активатором оставьте этот пункт отмеченным")
Global $hGroup3 = GUICtrlCreateGroup("", 10, 405, 520, 35)
Global $hButton4 = GUICtrlCreateButton("УСТАНОВКА", 10, 445, 520, 48)
GUICtrlSetFont(-1, 15)
GUICtrlSetTip(-1, "Установка выбранных компонентов")
Global $hGroup2 = GUICtrlCreateGroup("Языки", 440, 185, 90, 220)
Global $hCheckbox7 = GUICtrlCreateCheckbox("zh-TW", 455, 325, 65, 15)
Global $hCheckbox6 = GUICtrlCreateCheckbox("zh-CN", 455, 305, 65, 15)
Global $hCheckbox5 = GUICtrlCreateCheckbox("fr-FR", 455, 285, 65, 15)
Global $hCheckbox4 = GUICtrlCreateCheckbox("de-DE", 455, 265, 65, 15)
Global $hCheckbox3 = GUICtrlCreateCheckbox("uk-UA", 455, 245, 65, 15)
Global $hCheckbox2 = GUICtrlCreateCheckbox("en-US", 455, 225, 65, 15)
Global $hCheckbox = GUICtrlCreateCheckbox("ru-RU", 455, 205, 65, 15)
 
Global $hRadio2 = GUICtrlCreateRadio("x64", 460, 155, 35, 15)
Global $hRadio = GUICtrlCreateRadio("x86", 460, 135, 55, 15)
Local $oIE = ObjCreate("Shell.Explorer.2")
GUICtrlSetState(-1, $GUI_ENABLE)
GUICtrlCreateTabItem("          Загрузка          ")
Global $LangDownload = GUICtrlCreateGroup("Языки для загрузки", 15, 120, 390, 270)
Global $hCheckbox13 = GUICtrlCreateCheckbox("en-US", 25, 140, 65, 20)
GUICtrlSetTip(-1, "English (United States)")
Global $hCheckbox14 = GUICtrlCreateCheckbox("ru-RU", 25, 165, 65, 20)
GUICtrlSetTip(-1, "Russian (Russia)")
Global $hCheckbox15 = GUICtrlCreateCheckbox("de-DE", 25, 190, 65, 20)
GUICtrlSetTip(-1, "German (Germany)")
Global $hCheckbox16 = GUICtrlCreateCheckbox("fr-FR", 25, 215, 65, 20)
GUICtrlSetTip(-1, "French (France)")
Global $hCheckbox17 = GUICtrlCreateCheckbox("ar-SA", 25, 240, 65, 20)
GUICtrlSetTip(-1, "Arabic (Saudi Arabia)")
Global $hCheckbox18 = GUICtrlCreateCheckbox("uk-UA", 25, 265, 65, 20)
GUICtrlSetTip(-1, "Ukrainian (Ukrainian)")
Global $hCheckbox19 = GUICtrlCreateCheckbox("zh-CN", 25, 290, 65, 20)
GUICtrlSetTip(-1, "Chinese (Simplified) (People's Republic of China)")
Global $hCheckbox20 = GUICtrlCreateCheckbox("zh-TW", 25, 315, 65, 20)
GUICtrlSetTip(-1, "Chinese (Taiwan)")
Global $hCheckbox21 = GUICtrlCreateCheckbox("hr-HR", 25, 340, 65, 20)
GUICtrlSetTip(-1, "Croatian (Croatia)")
Global $hCheckbox22 = GUICtrlCreateCheckbox("cs-CZ", 25, 365, 65, 20)
GUICtrlSetTip(-1, "Czech (Czech Republic)")
Global $hCheckbox23 = GUICtrlCreateCheckbox("nl-NL", 125, 140, 65, 20)
GUICtrlSetTip(-1, "Dutch (Netherlands)")
Global $hCheckbox24 = GUICtrlCreateCheckbox("da-DK", 125, 165, 65, 20)
GUICtrlSetTip(-1, "Danish (Denmark)")
Global $hCheckbox25 = GUICtrlCreateCheckbox("et-EE", 125, 190, 65, 20)
GUICtrlSetTip(-1, "Estonian (Estonia)")
Global $hCheckbox26 = GUICtrlCreateCheckbox("fi-FI", 125, 215, 65, 20)
GUICtrlSetTip(-1, "Finnish (Finland)")
Global $hCheckbox27 = GUICtrlCreateCheckbox("el-GR", 125, 240, 65, 20)
GUICtrlSetTip(-1, "Greek (Greece)")
Global $hCheckbox28 = GUICtrlCreateCheckbox("he-IL", 125, 265, 65, 20)
GUICtrlSetTip(-1, "Hebrew (Israel)")
Global $hCheckbox29 = GUICtrlCreateCheckbox("hi-IN", 125, 290, 65, 20)
GUICtrlSetTip(-1, "Hindi (India)")
Global $hCheckbox30 = GUICtrlCreateCheckbox("hu-HU", 125, 315, 65, 20)
GUICtrlSetTip(-1, "Hungarian (Hungary)")
Global $hCheckbox31 = GUICtrlCreateCheckbox("id-ID", 125, 340, 65, 20)
GUICtrlSetTip(-1, "Indonesian (Indonesia)")
Global $hCheckbox32 = GUICtrlCreateCheckbox("it-IT", 125, 365, 65, 20)
GUICtrlSetTip(-1, "Italian (Italy)")
Global $hCheckbox33 = GUICtrlCreateCheckbox("ja-JP", 225, 140, 65, 20)
GUICtrlSetTip(-1, "Japanese (Japan)")
Global $hCheckbox34 = GUICtrlCreateCheckbox("kk-KZ", 225, 165, 65, 20)
GUICtrlSetTip(-1, "Kazakh (Kazakhstan)")
Global $hCheckbox35 = GUICtrlCreateCheckbox("ko-KR", 225, 190, 65, 20)
GUICtrlSetTip(-1, "Korean (Korea)")
Global $hCheckbox36 = GUICtrlCreateCheckbox("lv-LV", 225, 215, 65, 20)
GUICtrlSetTip(-1, "Latvian (Latvia)")
Global $hCheckbox37 = GUICtrlCreateCheckbox("lt-LT", 225, 240, 65, 20)
GUICtrlSetTip(-1, "Lithuanian (Lithuania)")
Global $hCheckbox38 = GUICtrlCreateCheckbox("ms-MY", 225, 265, 65, 20)
GUICtrlSetTip(-1, "Malay (Malaysia)")
Global $hCheckbox39 = GUICtrlCreateCheckbox("nb-NO", 225, 290, 65, 20)
GUICtrlSetTip(-1, "Norwegian (Bokmal) (Norway)")
Global $hCheckbox40 = GUICtrlCreateCheckbox("pl-PL", 225, 315, 65, 20)
GUICtrlSetTip(-1, "Polish (Poland)")
Global $hCheckbox41 = GUICtrlCreateCheckbox("pt-BR", 225, 340, 65, 20)
GUICtrlSetTip(-1, "Portuguese (Brazil)")
Global $hCheckbox42 = GUICtrlCreateCheckbox("pt-PT", 225, 365, 65, 20)
GUICtrlSetTip(-1, "Portuguese (Portugal)")
Global $hCheckbox43 = GUICtrlCreateCheckbox("ro-RO", 325, 140, 65, 20)
GUICtrlSetTip(-1, "Romanian (Romania)")
Global $hCheckbox44 = GUICtrlCreateCheckbox("sr-latn-RS", 325, 165, 65, 20)
GUICtrlSetTip(-1, "Serbian (Latin) (Serbia)")
Global $hCheckbox45 = GUICtrlCreateCheckbox("sk-SK", 325, 190, 65, 20)
GUICtrlSetTip(-1, "Slovak (Slovakia)")
Global $hCheckbox46 = GUICtrlCreateCheckbox("sl-SI", 325, 215, 65, 20)
GUICtrlSetTip(-1, "Slovenian (Slovenia)")
Global $hCheckbox47 = GUICtrlCreateCheckbox("es-ES", 325, 240, 65, 20)
GUICtrlSetTip(-1, "Spanish (Spain)")
Global $hCheckbox48 = GUICtrlCreateCheckbox("sv-SE", 325, 265, 65, 20)
GUICtrlSetTip(-1, "Swedish (Sweden)")
Global $hCheckbox49 = GUICtrlCreateCheckbox("th-TH", 325, 290, 65, 20)
GUICtrlSetTip(-1, "Thai (Thailand)")
Global $hCheckbox50 = GUICtrlCreateCheckbox("tr-TR", 325, 315, 65, 20)
GUICtrlSetTip(-1, "Turkish (Turkey)")
Global $hCheckbox51 = GUICtrlCreateCheckbox("vi-VN", 325, 340, 65, 20)
GUICtrlSetTip(-1, "Vietnamese (Vietnam)")
Global $hCheckbox52 = GUICtrlCreateCheckbox("bg-BG", 325, 365, 65, 20)
GUICtrlSetTip(-1, "Bulgarian (Bulgaria)")
Global $architectureDownload = GUICtrlCreateGroup("Разрядности для загрузки", 15, 395, 390, 45)
Global $hCheckbox105 = GUICtrlCreateCheckbox("x86 (рекомендуется)", 25, 415, 145, 20)
Global $hCheckbox106 = GUICtrlCreateCheckbox("x64", 225, 415, 145, 20)
Global $hButton5 = GUICtrlCreateButton("ЗАГРУЗКА", 10, 445, 520, 48)
GUICtrlSetFont(-1, 15)
GUICtrlSetTip(-1, "Загрузка выбранных компонентов")
 
GUICtrlCreateTabItem("          Информация          ")
Local $oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateTabItem("")
Local $hPic2 = GUICtrlCreatePic("", 510, 90, 20, 15)
GUICtrlSetImage(-1, @ScriptDir&"\Files\1033.bmp")
Local $hPic4 = GUICtrlCreatePic("", 5, 3, 540, 80)
GUICtrlSetImage(-1, @ScriptDir&"\Files\logo.jpg")
Local $hPic3 = GUICtrlCreatePic("", 483, 90, 20, 15)
GUICtrlSetImage(-1, @ScriptDir&"\Files\1049.bmp")
Local $hButton = GUICtrlCreateButton("Сохранить установки", 5, 500, 160, 30)
GUICtrlSetTip(-1, "Сохранить выбранные опции в независимый командный файл для последующей автоматической установки")
Local $hButton3 = GUICtrlCreateButton("Выход", 375, 500, 160, 30)
GUICtrlSetTip(-1, "Выход из программы без установки приложений")
Local $hButton2 = GUICtrlCreateButton("Удаление Office 201x", 190, 500, 160, 30)
GUICtrlSetTip(-1, "Используется для полного удаления из системы всех приложений Microsoft Office 201x")
 
GUISetState()
While 1
    $hMsg = GUIGetMsg()
    Switch $hMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
 


Всего записей: 1472 | Зарегистр. 17-07-2009 | Отправлено: 10:34 24-11-2018
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru