1 (изменено: s-lexer, 2018-11-30 22:57:39)

Тема: AHK: Скрипт GUI вопрос/ответ

Господа! Подскажите пожалуйста простой пример gui скрипта с функцией вопрос-ответ. Может пробегала где тема? Не могу нигде найти ничего подобного..

2

Re: AHK: Скрипт GUI вопрос/ответ

Опишите, как это вообще должно выглядеть.

3

Re: AHK: Скрипт GUI вопрос/ответ

Тест по принципу такого, как сдают в ГАИ: 10 вопросов. У каждого вопроса 4 варианта ответа, но правильным является только один. Студент выбирает ответы, но не видит, правильно ли он отвечает. По окончанию тестирования при наличии не более 2-х ошибок - "Зачет сдан", наличие ошибок в определенном вопросе "Повторите тему...". Желательно, чтобы по окончанию был создан документ, с указанием ФИО, группы, времени, которое было затрачено на ответы (отводится не более 10 минут!), количество допущенных ошибок/

Вот что жена просит -). Мне хотя-бы начать как-то, шаблон хоть какой,может кто делал подобное? Дальше сам додумаю. Спасибо!

4

Re: AHK: Скрипт GUI вопрос/ответ

Понятно. Элементы управления создаются командой GUI, Add. Окно GUI показывается командой GUI, Show. Можно в одном окне создавать все нужные элементы, потом уничтожить окно через GUI, Destroy, после чего создавать окно по новой. Можно создавать несколько окон заранее, а потом показывать/скрывать нужные. Или можно все манипуляции проделывать в одном окне, изменяя количество кнопок и надписи под ними. С точки зрения программирования это считается правильнее, но потребуется больше вникать в AutoHotkey.

Ну и конечно возникает вопрос: где хранятся вопросы-ответы? В отдельном файле или заложены в программу? Если их требуется в дальнейшем менять, то лучше в отдельном файле.

5

Re: AHK: Скрипт GUI вопрос/ответ

s-lexer

Наверное, что типа такого (примитивный вариант) + надо доработать на -  "при наличии не более 2-х ошибок - "Зачет сдан", наличие ошибок в определенном вопросе "Повторите тему..."

Скачать на раб стол   https://cloud.mail.ru/public/HhNy/iGaycE2sy


#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#Persistent ; Keeps a script permanently running (that is, until the user closes it or ExitApp is encountered)
#SingleInstance force   


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Вопросы   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
{
Vopros1:= "1.  В этой статье написано ___________ человека в космос."
Vopros2:= "2.  Ученики старших классов приняли участие ___________."
Vopros3:= "3.  - Вы знаете, чей это журнал?`n- _____________."
Vopros4:= "4.  Дети любят рисовать ___________ на асфальте."
Vopros5:= "5.  Магазин работает с десяти ___________."
Vopros6:= "6.  Они приедут с юга только ___________ сентября."
Vopros7:= "7.  ___________мы с братом часто катаемся на лыжах ."
Vopros8:= "8.  Санкт-Петербург был основан ___________."
Vopros9:= "9.  ___________ стало скучно, и он ушел с вечера."
Vopros10:= "10.  Если очень болит горло, ___________ нельзя громко разговаривать."
}


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   Ответы  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
{
Otvet11:= "первому полету"
Otvet12:= "первый полет"
Otvet13:= "первым полетом"
Otvet14:= "о первом полете"


Otvet21:= "спортивные соревнования"
Otvet22:= "в спортивных соревнованиях"
Otvet23:= "спортивных соревнований"
Otvet24:= "на спортивных соревнованиях"

Otvet31:= "моя дочь"
Otvet32:= "моей дочери"
Otvet33:= "о моей дочери"
Otvet34:= "у моей дочери"

Otvet41:= "цветными мелками"
Otvet42:= "с цветными мелками"
Otvet43:= "цветными мелками"
Otvet44:= "за цветными мелками"

Otvet51:= "в восемь"
Otvet52:= "до восьми"
Otvet53:= "к восьми"
Otvet54:= "после восьми"

Otvet61:= "третье"
Otvet62:= "третьего"
Otvet63:= "на третье"
Otvet64:= "по третье"

Otvet71:= "по выходным"
Otvet72:= "на выходные"
Otvet73:= "к выходным"
Otvet74:= "выходные"

Otvet81:= "Петру Первому"
Otvet82:= "Петра Первого"
Otvet83:= "Петр Первый"
Otvet84:= "Петром Первым"

Otvet91:= "Он"
Otvet92:= "Ему"
Otvet93:= "Его"
Otvet94:= "С ним"

Otvet101:= "тебе"
Otvet102:= "ты"
Otvet103:= "с тобой"
Otvet104:= "у тебя"
}

path = %A_Desktop%\11.xlsx
Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Open(Path)
Xl.Visible := true

xl.worksheets(1).DrawingObjects.Delete ; удаление фигур, если они имеются


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Лист1 - тип тестирования ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Gui 6:Default
;gui, -caption
Gui, Font, S18 CDefault, Verdana
Gui, Add, Text, x500 y10, Экзамен по русскому языку 
Gui, Add, Text, x10  y+10   w1260   h1    0x10   

Gui, Font, italic S18 CDefault, Verdana
Gui, Add, Button, vLG x550 y350 w250 h80 gLG, Начать экзамен!

Gui, Show, x630 y10 w1280 h724, WTF~
Return


LG:
Gui, Destroy
Goto MyLabel21




MyLabel21:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Лист2 - Общая инструкция ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Gui 2:Default
;gui, -Caption

Gui, Font, S18 CDefault, Verdana
Gui, Add, Button, vgo1 x500 y600 w250 h80 ggo1,  Далее
Gui, Add, Text, x500 y10, Экзамен по русскому языку 
Gui, Add, Text, x10  y+10   w1260   h1    0x10   
Gui, Font, S14 normal italic, Verdana
Gui, Add, Text, x230 y100 w850 h440 border, `n Инструкция:
Gui, Show, x630 y10 w1280 h724, WTF~
Return

go1:
Gui, Destroy
Goto Mylabel2


Mylabel2:

Run, C:\Windows\System32\osk.exe

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Лист3 - ввод данных ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Gui 3:Default
;gui, -caption

Gui, Font, S20 CDefault, Verdana
Gui, Add, Text, x70 y100 , Введите свои данные!

Gui, Font, S14 CDefault, Verdana
Gui, Add, Text, x70 y200, фамилия:
Gui, Font, S18 CDefault, Verdana
Gui, Add, Edit,  x200 y195 w450 h30 gValidCheck vFamily Uppercase, 

Gui, Font, S14 CDefault, Verdana
Gui, Add, Text, x70 y270, имя:
Gui, Font, S18 CDefault, Verdana
Gui, Add, Edit,  x200 y265 w450 h30 gValidCheck vName Uppercase,  

Gui, Font, S14 CDefault, Verdana
Gui, Add, Text, x70 y340, страна:
Gui, Font, S18 CDefault, Verdana
Gui, Add, Edit,  x200 y335 w450 h30 gValidCheck vCountry Uppercase, 

Gui, Add, Text, x20 y10, Экзамен по русскому языку
Gui, Add, Text, x10  y+10   w1260   h1    0x10   
Gui, Add, Button, vgo2 x800 y200 w250 h80 vgo2 ggo2, Далее


GuiControl, Disable, go2
Gui, Show, x630 y10 w1280 h724, WTF~
return

ValidCheck:                           
 GuiControlGet, Family
 GuiControlGet, Name
 GuiControlGet, Country
 
If (isNumberInRange(Family,0) and isNumberInRange(Name,0) and isNumberInRange(Country,0))
   GuiControl, Enable, go2
 Else
   GuiControl, Disable, go2
return



IsNumberInRange(var,low) {
If (var is alpha && var is space)  
 
    If (var > low)
      Return 1

  Return 
}

go2:
Gui, Submit, NoHide


GuiControl,, Family
xl.worksheets(1).Range("B11").value := Family

GuiControl,, Name
xl.worksheets(1).Range("B13").value := Name

GuiControl,, Country
xl.worksheets(1).Range("B15").value := Country


FormatTime, TimeString, , dd.MM.yyyy
xl.worksheets(1).Range("H11").value := TimeString


Process,Close,osk.exe

Gui, Destroy
Goto Mylabel1


MyLabel1:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Лист5 - Экзамен;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



Gui 5:Default
;gui,-Caption
Gui, Font, S18 CDefault, Verdana
Gui, Add, Text, x20 y10, Экзамен по русскому языку 
Gui, Add, Text, x10  y+10   w1260   h1    0x10   
Gui, Font, S10 CDefault bold, Verdana
Gui, Add, Text, x10 y+10 +Left, Панель вопросов (заданий)

Gui, Font, S10 normal CDefault, Verdana
Gui, Add, Text, x1100 y10, % xl.worksheets(1).Range("B11").value " " xl.worksheets(1).Range("B13").value


Gui, Font, S15 normal italic CDefault, Verdana
Gui, Add, Progress, x780 y70 vProgress w200 h10 cGray BOrder  Range0-600     ; отображение таймера и прогресса
Gui, Add, Text, x+15 y60, Осталось времени  
Gui, Add, Text, x+5 y60 vText , 10:00
t10 += 10, minutes
t20 := A_Now
SetTimer, Progress, 500

Gui, Font, S10 normal CDefault, Verdana
Gui, Add, Text, x10  y140   w1260   h1    0x10  
Gui, Add, Tab2, AltSubmit x30 y90 w800 h50 Buttons -WRAP vTAB_BUTTON,`  1 |   2  |   3  |   4  |   5  |   6  |   7  |   8  |   9  |  10  | Закончить | 

Gui, Font, S14 CDefault Bold Italic, Verdana



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Вкладки ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

{
Gui, Tab, 1
Gui, Add, Text, x52 y+40 w910 h60, % Vopros1
Gui, Add, Button, v11 x50 y+30 w250 h80 g11, % Otvet11
Gui, Add, Button, v12 x+60 y248 w250 h80 g12, % Otvet12
Gui, Add, Button, v13 x+60 y248 w250 h80 g13, % Otvet13
Gui, Add, Button, v14 x+60 y248 w250 h80 g14, % Otvet14

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 2
Gui, Add, Text, x52 y+40 w910 h60, % Vopros2
Gui, Add, Button, v21 x50 y+30 w250 h80 g21, % Otvet21
Gui, Add, Button, v22 x+60 y248 w250 h80 g22, % Otvet22
Gui, Add, Button, v23 x+60 y248 w250 h80 g23, % Otvet23
Gui, Add, Button, v24 x+60 y248 w250 h80 g24, % Otvet24

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 3
Gui, Add, Text, x52 y+40 w910 h60, % Vopros3
Gui, Add, Button, v31 x50 y+30 w250 h80 g31, % Otvet31
Gui, Add, Button, v32 x+60 y248 w250 h80 g32, % Otvet32
Gui, Add, Button, v33 x+60 y248 w250 h80 g33, % Otvet33
Gui, Add, Button, v34 x+60 y248 w250 h80 g34, % Otvet34

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 4
Gui, Add, Text, x52 y+40 w910 h60, % Vopros4
Gui, Add, Button, v41 x50 y+30 w250 h80 g41, % Otvet41
Gui, Add, Button, v42 x+60 y248 w250 h80 g42, % Otvet42
Gui, Add, Button, v43 x+60 y248 w250 h80 g43, % Otvet43
Gui, Add, Button, v44 x+60 y248 w250 h80 g44, % Otvet44

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 5
Gui, Add, Text, x52 y+40 w910 h60, % Vopros5
Gui, Add, Button, v51 x50 y+30 w250 h80 g51, % Otvet51
Gui, Add, Button, v52 x+60 y248 w250 h80 g52, % Otvet52
Gui, Add, Button, v53 x+60 y248 w250 h80 g53, % Otvet53
Gui, Add, Button, v54 x+60 y248 w250 h80 g54, % Otvet54

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 6
Gui, Add, Text, x52 y+40 w910 h60, % Vopros6
Gui, Add, Button, v61 x50 y+30 w250 h80 g61, % Otvet61
Gui, Add, Button, v62 x+60 y248 w250 h80 g62, % Otvet62
Gui, Add, Button, v63 x+60 y248 w250 h80 g63, % Otvet63
Gui, Add, Button, v64 x+60 y248 w250 h80 g64, % Otvet64

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 7
Gui, Add, Text, x52 y+40 w910 h60, % Vopros7
Gui, Add, Button, v71 x50 y+30 w250 h80 g71, % Otvet71
Gui, Add, Button, v72 x+60 y248 w250 h80 g72, % Otvet72
Gui, Add, Button, v73 x+60 y248 w250 h80 g73, % Otvet73
Gui, Add, Button, v74 x+60 y248 w250 h80 g74, % Otvet74

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 8
Gui, Add, Text, x52 y+40 w910 h60, % Vopros8
Gui, Add, Button, v81 x50 y+30 w250 h80 g81, % Otvet81
Gui, Add, Button, v82 x+60 y248 w250 h80 g82, % Otvet82
Gui, Add, Button, v83 x+60 y248 w250 h80 g83, % Otvet83
Gui, Add, Button, v84 x+60 y248 w250 h80 g84, % Otvet84

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 9
Gui, Add, Text, x52 y+40 w910 h60, % Vopros9
Gui, Add, Button, v91 x50 y+30 w250 h80 g91, % Otvet91
Gui, Add, Button, v92 x+60 y248 w250 h80 g92, % Otvet92
Gui, Add, Button, v93 x+60 y248 w250 h80 g93, % Otvet93
Gui, Add, Button, v94 x+60 y248 w250 h80 g94, % Otvet94

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 10
Gui, Add, Text, x52 y+40 w910 h60, % Vopros10
Gui, Add, Button, v101 x50 y+30 w250 h80 g101, % Otvet101
Gui, Add, Button, v102 x+60 y248 w250 h80 g102, % Otvet102
Gui, Add, Button, v103 x+60 y248 w250 h80 g103, % Otvet103
Gui, Add, Button, v104 x+60 y248 w250 h80 g104, % Otvet104

Gui, Add, Text, x25 y280, A.
Gui, Add, Text, x+290 y280, Б.
Gui, Add, Text, x+290 y280, В.
Gui, Add, Text, x+290 y280, Г.

Gui, Tab, 11
Gui, Add, Button, x250 y248 w350 h80 gEnd, Закончить тестирование
Gui, Add, Button, x650 y248 w350 h80 gEnd2, Вернуться и перепроверить
}

Gui, Show, x630 y10 w1280 h724, WTF~
return

Progress:  
 t11 := t10
 t11 -= A_Now, seconds
 t12 := 20100101000000
 t12 += t11, seconds
 FormatTime, t12, %t12%, m:ss
 GuiControl,5:,Text, %t12%
 GuiControl,5:,Progress,% 600-t11
 If t11 = 0 
 Goto MylabelEnd
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Buttons ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

{
11:
GuiControl, Disable, 11
GuiControl, Enable, 12
GuiControl, Enable, 13
GuiControl, Enable, 14

GuiControlGet, ThisTab,, SysTabControl321,  WTF~    ;    закрашивание вкладки, если была нажата кнопка_https://gist.github.com/anonymous/2470426#file-guiconstants-ahk
PostMessage, 0x1333, %11% 0, 1, SysTabControl321, WTF~


A1 := xl.worksheets(1).Range("B20")    ;  вставка фигуры (круг) в соответсвии с нажатой кнопкой
xl.worksheets(1).Shapes.AddShape(9, A1.left, A1.top , A1.Width, A1.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "11"

try{                       ; удаление фигур в ненажатых кнопках
xl.worksheets(1).Shapes("12").Delete
}

try{
xl.worksheets(1).Shapes("13").Delete
}

try{
xl.worksheets(1).Shapes("14").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 2

return


12:
GuiControl, Disable, 12
GuiControl, Enable, 11
GuiControl, Enable, 13
GuiControl, Enable, 14

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %12% 0, 1, SysTabControl321, WTF~

B1 := xl.worksheets(1).Range("C20") 
xl.worksheets(1).Shapes.AddShape(9, B1.left, B1.top , B1.Width, B1.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "12"

try{
xl.worksheets(1).Shapes("11").Delete
}

try{
xl.worksheets(1).Shapes("13").Delete
}

try{
xl.worksheets(1).Shapes("14").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 2
return

13:
GuiControl, Disable, 13
GuiControl, Enable, 11
GuiControl, Enable, 12
GuiControl, Enable, 14

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %13% 0, 1, SysTabControl321, WTF~

C1 := xl.worksheets(1).Range("D20") 
xl.worksheets(1).Shapes.AddShape(9, C1.left, C1.top , C1.Width, C1.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "13"

try{
xl.worksheets(1).Shapes("11").Delete
}

try{
xl.worksheets(1).Shapes("12").Delete
}

try{
xl.worksheets(1).Shapes("14").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 2
return

14:
GuiControl, Disable, 14
GuiControl, Enable, 11
GuiControl, Enable, 12
GuiControl, Enable, 13

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %14% 0, 1, SysTabControl321, WTF~

D1 := xl.worksheets(1).Range("E20") 
xl.worksheets(1).Shapes.AddShape(9, D1.left, D1.top , D1.Width, D1.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "14"

try{
xl.worksheets(1).Shapes("11").Delete
}

try{
xl.worksheets(1).Shapes("12").Delete
}

try{
xl.worksheets(1).Shapes("13").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 2
return



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

21:
GuiControl, Disable, 21
GuiControl, Enable, 22
GuiControl, Enable, 23
GuiControl, Enable, 24

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %21% 1, 1, SysTabControl321, WTF~

A2 := xl.worksheets(1).Range("B21")
xl.worksheets(1).Shapes.AddShape(9, A2.left, A2.top , A2.Width, A2.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "21"

try{
xl.worksheets(1).Shapes("22").Delete
}

try{
xl.worksheets(1).Shapes("23").Delete
}

try{
xl.worksheets(1).Shapes("24").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 3
return

22:
GuiControl, Disable, 22
GuiControl, Enable, 21
GuiControl, Enable, 23
GuiControl, Enable, 24

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %22% 1, 1, SysTabControl321, WTF~

B2 := xl.worksheets(1).Range("C21")
xl.worksheets(1).Shapes.AddShape(9, B2.left, B2.top , B2.Width, B2.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "22"

try{
xl.worksheets(1).Shapes("21").Delete
}

try{
xl.worksheets(1).Shapes("23").Delete
}

try{
xl.worksheets(1).Shapes("24").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 3
return

23:
GuiControl, Disable, 23
GuiControl, Enable, 21
GuiControl, Enable, 22
GuiControl, Enable, 24

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %23% 1, 1, SysTabControl321, WTF~

C2 := xl.worksheets(1).Range("D21")
xl.worksheets(1).Shapes.AddShape(9, C2.left, C2.top , C2.Width, C2.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "23"

try{
xl.worksheets(1).Shapes("21").Delete
}

try{
xl.worksheets(1).Shapes("22").Delete
}

try{
xl.worksheets(1).Shapes("24").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 3
return

24:
GuiControl, Disable, 24
GuiControl, Enable, 21
GuiControl, Enable, 22
GuiControl, Enable, 23

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %24% 1, 1, SysTabControl321, WTF~

D2 := xl.worksheets(1).Range("E21")
xl.worksheets(1).Shapes.AddShape(9, D2.left, D2.top , D2.Width, D2.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "24"

try{
xl.worksheets(1).Shapes("21").Delete
}

try{
xl.worksheets(1).Shapes("22").Delete
}

try{
xl.worksheets(1).Shapes("23").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 3
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

31:
GuiControl, Disable, 31
GuiControl, Enable, 32
GuiControl, Enable, 33
GuiControl, Enable, 34

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %31% 2, 1, SysTabControl321, WTF~

A3 := xl.worksheets(1).Range("B22")
xl.worksheets(1).Shapes.AddShape(9, A3.left, A3.top , A3.Width, A3.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "31"

try{
xl.worksheets(1).Shapes("32").Delete
}

try{
xl.worksheets(1).Shapes("33").Delete
}

try{
xl.worksheets(1).Shapes("34").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 4
return

32:
GuiControl, Disable, 32
GuiControl, Enable, 31
GuiControl, Enable, 33
GuiControl, Enable, 34

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %32% 2, 1, SysTabControl321, WTF~

B3 := xl.worksheets(1).Range("C22")
xl.worksheets(1).Shapes.AddShape(9, B3.left, B3.top , B3.Width, B3.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "32"

try{
xl.worksheets(1).Shapes("31").Delete
}

try{
xl.worksheets(1).Shapes("33").Delete
}

try{
xl.worksheets(1).Shapes("34").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 4
return

33:
GuiControl, Disable, 33
GuiControl, Enable, 31
GuiControl, Enable, 32
GuiControl, Enable, 34

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %33% 2, 1, SysTabControl321, WTF~

C3 := xl.worksheets(1).Range("D22")
xl.worksheets(1).Shapes.AddShape(9, C3.left, C3.top , C3.Width, C3.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "33"
try{
xl.worksheets(1).Shapes("31").Delete
}

try{
xl.worksheets(1).Shapes("32").Delete
}

try{
xl.worksheets(1).Shapes("34").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 4
return

34:
GuiControl, Disable, 34
GuiControl, Enable, 31
GuiControl, Enable, 32
GuiControl, Enable, 33

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %34% 2, 1, SysTabControl321, WTF~

D3 := xl.worksheets(1).Range("E22")
xl.worksheets(1).Shapes.AddShape(9, D3.left, D3.top , D3.Width, D3.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "34"
try{
xl.worksheets(1).Shapes("31").Delete
}

try{
xl.worksheets(1).Shapes("32").Delete
}

try{
xl.worksheets(1).Shapes("33").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 4
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

41:
GuiControl, Disable, 41
GuiControl, Enable, 42
GuiControl, Enable, 43
GuiControl, Enable, 44

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %41% 3, 1, SysTabControl321, WTF~

A4 := xl.worksheets(1).Range("B23")
xl.worksheets(1).Shapes.AddShape(9, A4.left, A4.top , A4.Width, A4.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "41"

try{
xl.worksheets(1).Shapes("42").Delete
}

try{
xl.worksheets(1).Shapes("43").Delete
}

try{
xl.worksheets(1).Shapes("44").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 5
return

42:
GuiControl, Disable, 42
GuiControl, Enable, 41
GuiControl, Enable, 43
GuiControl, Enable, 44

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %42% 3, 1, SysTabControl321, WTF~

B4 := xl.worksheets(1).Range("C23")
xl.worksheets(1).Shapes.AddShape(9, B4 .left, B4 .top , B4 .Width, B4 .Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "42"

try{
xl.worksheets(1).Shapes("41").Delete
}

try{
xl.worksheets(1).Shapes("43").Delete
}

try{
xl.worksheets(1).Shapes("44").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 5
return

43:
GuiControl, Disable, 43
GuiControl, Enable, 41
GuiControl, Enable, 42
GuiControl, Enable, 44

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %43% 3, 1, SysTabControl321, WTF~

C4 := xl.worksheets(1).Range("D23")
xl.worksheets(1).Shapes.AddShape(9, C4 .left, C4 .top , C4 .Width, C4 .Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "43"

try{
xl.worksheets(1).Shapes("41").Delete
}

try{
xl.worksheets(1).Shapes("42").Delete
}

try{
xl.worksheets(1).Shapes("44").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 5
return

44:
GuiControl, Disable, 44
GuiControl, Enable, 41
GuiControl, Enable, 42
GuiControl, Enable, 43

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %44% 3, 1, SysTabControl321, WTF~

D4 := xl.worksheets(1).Range("E23")
xl.worksheets(1).Shapes.AddShape(9, D4.left, D4.top , D4.Width, D4.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "44"

try{
xl.worksheets(1).Shapes("41").Delete
}

try{
xl.worksheets(1).Shapes("42").Delete
}

try{
xl.worksheets(1).Shapes("43").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 5
return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

51:
GuiControl, Disable, 51
GuiControl, Enable, 52
GuiControl, Enable, 53
GuiControl, Enable, 54

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %51% 4, 1, SysTabControl321, WTF~

A5 := xl.worksheets(1).Range("B24")
xl.worksheets(1).Shapes.AddShape(9, A5.left, A5.top , A5.Width, A5.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "51"

try{
xl.worksheets(1).Shapes("52").Delete
}

try{
xl.worksheets(1).Shapes("53").Delete
}

try{
xl.worksheets(1).Shapes("54").Delete
}


sleep 100
GuiControl, Choose, TAB_BUTTON, 6
return

52:
GuiControl, Disable, 52
GuiControl, Enable, 51
GuiControl, Enable, 53
GuiControl, Enable, 54

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %52% 4, 1, SysTabControl321, WTF~

B5 := xl.worksheets(1).Range("C24")
xl.worksheets(1).Shapes.AddShape(9, B5.left, B5.top , B5.Width, B5.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "52"

try{
xl.worksheets(1).Shapes("51").Delete
}

try{
xl.worksheets(1).Shapes("53").Delete
}

try{
xl.worksheets(1).Shapes("54").Delete
}


sleep 100
GuiControl, Choose, TAB_BUTTON, 6
return

53:
GuiControl, Disable, 53
GuiControl, Enable, 51
GuiControl, Enable, 52
GuiControl, Enable, 54

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %53% 4, 1, SysTabControl321, WTF~

C5 := xl.worksheets(1).Range("D24")
xl.worksheets(1).Shapes.AddShape(9, C5.left, C5.top , C5.Width, C5.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "53"

try{
xl.worksheets(1).Shapes("51").Delete
}

try{
xl.worksheets(1).Shapes("52").Delete
}

try{
xl.worksheets(1).Shapes("54").Delete
}


sleep 100
GuiControl, Choose, TAB_BUTTON, 6
return

54:
GuiControl, Disable, 54
GuiControl, Enable, 51
GuiControl, Enable, 52
GuiControl, Enable, 53

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %54% 4, 1, SysTabControl321, WTF~

D5 := xl.worksheets(1).Range("E24")
xl.worksheets(1).Shapes.AddShape(9, D5.left, D5.top , D5.Width, D5.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "54"

try{
xl.worksheets(1).Shapes("51").Delete
}

try{
xl.worksheets(1).Shapes("52").Delete
}

try{
xl.worksheets(1).Shapes("53").Delete
}


sleep 100
GuiControl, Choose, TAB_BUTTON, 6
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

61:
GuiControl, Disable, 61
GuiControl, Enable, 62
GuiControl, Enable, 63
GuiControl, Enable, 64

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %61% 5, 1, SysTabControl321, WTF~

A6 := xl.worksheets(1).Range("B25")
xl.worksheets(1).Shapes.AddShape(9, A6.left, A6.top , A6.Width, A6.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "61"

try{
xl.worksheets(1).Shapes("62").Delete
}

try{
xl.worksheets(1).Shapes("63").Delete
}

try{
xl.worksheets(1).Shapes("64").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 7
return

62:
GuiControl, Disable, 62
GuiControl, Enable, 61
GuiControl, Enable, 63
GuiControl, Enable, 64

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %62% 5, 1, SysTabControl321, WTF~

B6 := xl.worksheets(1).Range("C25")
xl.worksheets(1).Shapes.AddShape(9, B6.left, B6.top , B6.Width, B6.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "62"

try{
xl.worksheets(1).Shapes("61").Delete
}

try{
xl.worksheets(1).Shapes("63").Delete
}

try{
xl.worksheets(1).Shapes("64").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 7
return

63:
GuiControl, Disable, 63
GuiControl, Enable, 61
GuiControl, Enable, 62
GuiControl, Enable, 64

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %63% 5, 1, SysTabControl321, WTF~

C6 := xl.worksheets(1).Range("D25")
xl.worksheets(1).Shapes.AddShape(9, C6.left, C6.top , C6.Width, C6.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "63"

try{
xl.worksheets(1).Shapes("61").Delete
}

try{
xl.worksheets(1).Shapes("62").Delete
}

try{
xl.worksheets(1).Shapes("64").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 7
return

64:
GuiControl, Disable, 64
GuiControl, Enable, 61
GuiControl, Enable, 62
GuiControl, Enable, 63

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %64% 5, 1, SysTabControl321, WTF~

D6 := xl.worksheets(1).Range("E25")
xl.worksheets(1).Shapes.AddShape(9, D6.left, D6.top , D6.Width, D6.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "64"

try{
xl.worksheets(1).Shapes("61").Delete
}

try{
xl.worksheets(1).Shapes("62").Delete
}

try{
xl.worksheets(1).Shapes("63").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 7
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

71:
GuiControl, Disable, 71
GuiControl, Enable, 72
GuiControl, Enable, 73
GuiControl, Enable, 74

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %71% 6, 1, SysTabControl321, WTF~

A7 := xl.worksheets(1).Range("B26")
xl.worksheets(1).Shapes.AddShape(9, A7.left, A7.top , A7.Width, A7.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "71"

try{
xl.worksheets(1).Shapes("72").Delete
}

try{
xl.worksheets(1).Shapes("73").Delete
}

try{
xl.worksheets(1).Shapes("74").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 8
return

72:
GuiControl, Disable, 72
GuiControl, Enable, 71
GuiControl, Enable, 73
GuiControl, Enable, 74

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %72% 6, 1, SysTabControl321, WTF~

B7 := xl.worksheets(1).Range("C26")
xl.worksheets(1).Shapes.AddShape(9, B7.left, B7.top , B7.Width, B7.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "72"

try{
xl.worksheets(1).Shapes("71").Delete
}

try{
xl.worksheets(1).Shapes("73").Delete
}

try{
xl.worksheets(1).Shapes("74").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 8
return

73:
GuiControl, Disable, 73
GuiControl, Enable, 71
GuiControl, Enable, 72
GuiControl, Enable, 74

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %73% 6, 1, SysTabControl321, WTF~

C7 := xl.worksheets(1).Range("D26")
xl.worksheets(1).Shapes.AddShape(9, C7.left, C7.top , C7.Width, C7.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "73"

try{
xl.worksheets(1).Shapes("71").Delete
}

try{
xl.worksheets(1).Shapes("72").Delete
}

try{
xl.worksheets(1).Shapes("74").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 8
return

74:
GuiControl, Disable, 74
GuiControl, Enable, 71
GuiControl, Enable, 72
GuiControl, Enable, 73

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %74% 6, 1, SysTabControl321, WTF~

D7 := xl.worksheets(1).Range("E26")
xl.worksheets(1).Shapes.AddShape(9, D7 .left, D7 .top , D7 .Width, D7 .Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "74"

try{
xl.worksheets(1).Shapes("71").Delete
}

try{
xl.worksheets(1).Shapes("72").Delete
}

try{
xl.worksheets(1).Shapes("73").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 8
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

81:
GuiControl, Disable, 81
GuiControl, Enable, 82
GuiControl, Enable, 83
GuiControl, Enable, 84

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %81% 7, 1, SysTabControl321, WTF~

A8 := xl.worksheets(1).Range("B27")
xl.worksheets(1).Shapes.AddShape(9, A8.left, A8.top , A8.Width, A8.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "81"

try{
xl.worksheets(1).Shapes("82").Delete
}

try{
xl.worksheets(1).Shapes("83").Delete
}

try{
xl.worksheets(1).Shapes("84").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 9
return

82:
GuiControl, Disable, 82
GuiControl, Enable, 81
GuiControl, Enable, 83
GuiControl, Enable, 84

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %82% 7, 1, SysTabControl321, WTF~

B8 := xl.worksheets(1).Range("C27")
xl.worksheets(1).Shapes.AddShape(9, B8.left, B8.top , B8.Width, B8.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "82"

try{
xl.worksheets(1).Shapes("81").Delete
}

try{
xl.worksheets(1).Shapes("83").Delete
}

try{
xl.worksheets(1).Shapes("84").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 9
return

83:
GuiControl, Disable, 83
GuiControl, Enable, 81
GuiControl, Enable, 82
GuiControl, Enable, 84

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %83% 7, 1, SysTabControl321, WTF~

C8 := xl.worksheets(1).Range("D27")
xl.worksheets(1).Shapes.AddShape(9, C8.left, C8.top , C8.Width, C8.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "83"

try{
xl.worksheets(1).Shapes("81").Delete
}

try{
xl.worksheets(1).Shapes("82").Delete
}

try{
xl.worksheets(1).Shapes("84").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 9
return

84:
GuiControl, Disable, 84
GuiControl, Enable, 81
GuiControl, Enable, 82
GuiControl, Enable, 83

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %84% 7, 1, SysTabControl321, WTF~


D8 := xl.worksheets(1).Range("E27")
xl.worksheets(1).Shapes.AddShape(9, D8.left, D8.top , D8.Width, D8.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "84"

try{
xl.worksheets(1).Shapes("81").Delete
}

try{
xl.worksheets(1).Shapes("82").Delete
}

try{
xl.worksheets(1).Shapes("83").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 9
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

91:
GuiControl, Disable, 91
GuiControl, Enable, 92
GuiControl, Enable, 93
GuiControl, Enable, 94

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %91% 8, 1, SysTabControl321, WTF~

A9 := xl.worksheets(1).Range("B28")
xl.worksheets(1).Shapes.AddShape(9, A9.left, A9.top , A9.Width, A9.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "91"

try{
xl.worksheets(1).Shapes("92").Delete
}

try{
xl.worksheets(1).Shapes("93").Delete
}

try{
xl.worksheets(1).Shapes("94").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 10
return

92:
GuiControl, Disable, 92
GuiControl, Enable, 91
GuiControl, Enable, 93
GuiControl, Enable, 94

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %92% 8, 1, SysTabControl321, WTF~

B9 := xl.worksheets(1).Range("C28")
xl.worksheets(1).Shapes.AddShape(9, B9.left, B9.top , B9.Width, B9.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "92"

try{
xl.worksheets(1).Shapes("91").Delete
}

try{
xl.worksheets(1).Shapes("93").Delete
}

try{
xl.worksheets(1).Shapes("94").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 10
return



93:
GuiControl, Disable, 93
GuiControl, Enable, 91
GuiControl, Enable, 92
GuiControl, Enable, 94

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %93% 8, 1, SysTabControl321, WTF~

C9 := xl.worksheets(1).Range("D28")
xl.worksheets(1).Shapes.AddShape(9, C9.left, C9.top , C9.Width, C9.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "93"

try{
xl.worksheets(1).Shapes("91").Delete
}

try{
xl.worksheets(1).Shapes("92").Delete
}

try{
xl.worksheets(1).Shapes("94").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 10
return

94:
GuiControl, Disable, 94
GuiControl, Enable, 91
GuiControl, Enable, 92
GuiControl, Enable, 93

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %94% 8, 1, SysTabControl321, WTF~

D9 := xl.worksheets(1).Range("E28")
xl.worksheets(1).Shapes.AddShape(9, D9.left, D9.top , D9.Width, D9.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "94"

try{
xl.worksheets(1).Shapes("91").Delete
}

try{
xl.worksheets(1).Shapes("92").Delete
}

try{
xl.worksheets(1).Shapes("93").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 10
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

101:
GuiControl, Disable, 101
GuiControl, Enable, 102
GuiControl, Enable, 103
GuiControl, Enable, 104

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %101% 9, 1, SysTabControl321, WTF~

A10 := xl.worksheets(1).Range("B29")
xl.worksheets(1).Shapes.AddShape(9, A10.left, A10.top , A10.Width, A10.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "101"

try{
xl.worksheets(1).Shapes("102").Delete
}

try{
xl.worksheets(1).Shapes("103").Delete
}

try{
xl.worksheets(1).Shapes("104").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 11
return

102:
GuiControl, Disable, 102
GuiControl, Enable, 101
GuiControl, Enable, 103
GuiControl, Enable, 104

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %102% 9, 1, SysTabControl321, WTF~

B10 := xl.worksheets(1).Range("C29")
xl.worksheets(1).Shapes.AddShape(9, B10.left, B10.top , B10.Width, B10.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "102"

try{
xl.worksheets(1).Shapes("101").Delete
}

try{
xl.worksheets(1).Shapes("103").Delete
}

try{
xl.worksheets(1).Shapes("104").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 11
return

103:
GuiControl, Disable, 103
GuiControl, Enable, 101
GuiControl, Enable, 102
GuiControl, Enable, 104

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %103% 9, 1, SysTabControl321, WTF~

C10 := xl.worksheets(1).Range("D29")
xl.worksheets(1).Shapes.AddShape(9, C10.left, C10.top , C10.Width, C10.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "103"

try{
xl.worksheets(1).Shapes("101").Delete
}

try{
xl.worksheets(1).Shapes("102").Delete
}

try{
xl.worksheets(1).Shapes("104").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 11
return

104:
GuiControl, Disable, 104
GuiControl, Enable, 101
GuiControl, Enable, 102
GuiControl, Enable, 103

GuiControlGet, ThisTab,, SysTabControl321,  WTF~
PostMessage, 0x1333, %104% 9, 1, SysTabControl321, WTF~

D10 := xl.worksheets(1).Range("E29")
xl.worksheets(1).Shapes.AddShape(9, D10.left, D10.top , D10.Width, D10.Height).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.name := "104"

try{
xl.worksheets(1).Shapes("101").Delete
}

try{
xl.worksheets(1).Shapes("102").Delete
}

try{
xl.worksheets(1).Shapes("103").Delete
}

sleep 100
GuiControl, Choose, TAB_BUTTON, 11
return
}


End:
Goto MylabelEnd1

End2:
GuiControl, Choose, TAB_BUTTON, 1
return


MylabelEnd:
MsgBox, 262208, time, Время истекло!
Goto MylabelEnd1

MylabelEnd1:
FormatTime, TimeString, , dd.MM.yyyy
FileCreateDir, %A_Desktop%\%TimeString%     

Fam := xl.worksheets(1).Range("B11").value

path = %A_Desktop%\%TimeString%\Тест.%Fam%.pdf

xl.worksheets(1).ExportAsFixedFormat(0, path)  


Gui,Destroy
Xl.ActiveWorkbook.close(false)
xl.quit


Run, print "%A_Desktop%\%TimeString%\Тест.%Fam%.pdf",, min
sleep 6500
Process,close,acrord32.exe

ExitApp


6

Re: AHK: Скрипт GUI вопрос/ответ

Большое спасибо за помощь! Буду делать под себя, готовый результат покажу здесь.