Тема: AHK: Скрипт GUI вопрос/ответ
Господа! Подскажите пожалуйста простой пример gui скрипта с функцией вопрос-ответ. Может пробегала где тема? Не могу нигде найти ничего подобного..
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Господа! Подскажите пожалуйста простой пример gui скрипта с функцией вопрос-ответ. Может пробегала где тема? Не могу нигде найти ничего подобного..
Опишите, как это вообще должно выглядеть.
Тест по принципу такого, как сдают в ГАИ: 10 вопросов. У каждого вопроса 4 варианта ответа, но правильным является только один. Студент выбирает ответы, но не видит, правильно ли он отвечает. По окончанию тестирования при наличии не более 2-х ошибок - "Зачет сдан", наличие ошибок в определенном вопросе "Повторите тему...". Желательно, чтобы по окончанию был создан документ, с указанием ФИО, группы, времени, которое было затрачено на ответы (отводится не более 10 минут!), количество допущенных ошибок/
Вот что жена просит -). Мне хотя-бы начать как-то, шаблон хоть какой,может кто делал подобное? Дальше сам додумаю. Спасибо!
Понятно. Элементы управления создаются командой GUI, Add. Окно GUI показывается командой GUI, Show. Можно в одном окне создавать все нужные элементы, потом уничтожить окно через GUI, Destroy, после чего создавать окно по новой. Можно создавать несколько окон заранее, а потом показывать/скрывать нужные. Или можно все манипуляции проделывать в одном окне, изменяя количество кнопок и надписи под ними. С точки зрения программирования это считается правильнее, но потребуется больше вникать в AutoHotkey.
Ну и конечно возникает вопрос: где хранятся вопросы-ответы? В отдельном файле или заложены в программу? Если их требуется в дальнейшем менять, то лучше в отдельном файле.
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
Большое спасибо за помощь! Буду делать под себя, готовый результат покажу здесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться