Тема: Оцените скрип
Есть скрипт. Выскажите свое мнение.
Loop
{
Sleep, 500
MsgBox, 4, Генератор Автомобильных номеров, Создать автомобильный номер?
IfMsgBox Yes
{
FileDelete, C:\memory.txt
;A = 1
;B = 2
;E = 3
;K = 4
;M = 5
;H = 6
;O = 7
;P = 8
;С = 9
;Т = 10
;У = 11
;Х = 12
Sleep 1
Random, rand1, 1, 12
Sleep 1
if rand1 = 1
letter1 = A
Sleep 1
FileAppend,%letter1%,C:\Car Number.txt
FileAppend,%letter1%,C:\memory.txt
if rand1 = 2
letter2 = B
Sleep 1
FileAppend,%letter2%,C:\Car Number.txt
FileAppend,%letter2%,C:\memory.txt
if rand1 = 3
letter3 = E
Sleep 1
FileAppend,%letter3%,C:\Car Number.txt
FileAppend,%letter3%,C:\memory.txt
if rand1 = 4
letter4 = K
Sleep 1
FileAppend,%letter4%,C:\Car Number.txt
FileAppend,%letter4%,C:\memory.txt
if rand1 = 5
letter5 = M
Sleep 1
FileAppend,%letter5%,C:\Car Number.txt
FileAppend,%letter5%,C:\memory.txt
if rand1 = 6
letter6 = H
Sleep 1
FileAppend,%letter6%,C:\Car Number.txt
FileAppend,%letter6%,C:\memory.txt
if rand1 = 7
letter7 = O
Sleep 1
FileAppend,%letter7%,C:\Car Number.txt
FileAppend,%letter7%,C:\memory.txt
if rand1 = 8
letter8 = P
Sleep 1
FileAppend,%letter8%,C:\Car Number.txt
FileAppend,%letter8%,C:\memory.txt
if rand1 = 9
letter9 = C
Sleep 1
FileAppend,%letter9%,C:\Car Number.txt
FileAppend,%letter9%,C:\memory.txt
if rand1 = 10
letter10 = T
Sleep 1
FileAppend,%letter10%,C:\Car Number.txt
FileAppend,%letter10%,C:\memory.txt
if rand1 = 11
letter11 = У
Sleep 1
FileAppend,%letter11%,C:\Car Number.txt
FileAppend,%letter11%,C:\memory.txt
if rand1 = 12
letter12 = X
FileAppend,%letter12%,C:\Car Number.txt
FileAppend,%letter12%,C:\memory.txt
Sleep 1
;*************************************************************
Random, rand2, 0 ,9
FileAppend,%rand2%,C:\Car Number.txt
FileAppend,%rand2%,C:\memory.txt
Random, rand3, 0 ,9
FileAppend,%rand3%,C:\Car Number.txt
FileAppend,%rand3%,C:\memory.txt
Random, rand4, 0 ,9
FileAppend,%rand4%,C:\Car Number.txt
FileAppend,%rand4%,C:\memory.txt
;*************************************************************
Sleep 1
Random, rand1, 1, 12
Sleep 1
if rand1 = 1
letter13 = A
Sleep 1
FileAppend,%letter13%,C:\Car Number.txt
FileAppend,%letter13%,C:\memory.txt
if rand1 = 2
letter14 = B
Sleep 1
FileAppend,%letter14%,C:\Car Number.txt
FileAppend,%letter14%,C:\memory.txt
if rand1 = 3
letter15 = E
Sleep 1
FileAppend,%letter15%,C:\Car Number.txt
FileAppend,%letter15%,C:\memory.txt
if rand1 = 4
letter16 = K
Sleep 1
FileAppend,%letter16%,C:\Car Number.txt
FileAppend,%letter16%,C:\memory.txt
if rand1 = 5
letter17 = M
Sleep 1
FileAppend,%letter17%,C:\Car Number.txt
FileAppend,%letter17%,C:\memory.txt
if rand1 = 6
letter18 = H
Sleep 1
FileAppend,%letter18%,C:\Car Number.txt
FileAppend,%letter18%,C:\memory.txt
if rand1 = 7
letter19 = O
Sleep 1
FileAppend,%letter19%,C:\Car Number.txt
FileAppend,%letter19%,C:\memory.txt
if rand1 = 8
letter20 = P
Sleep 1
FileAppend,%letter20%,C:\Car Number.txt
FileAppend,%letter20%,C:\memory.txt
if rand1 = 9
letter21 = C
Sleep 1
FileAppend,%letter21%,C:\Car Number.txt
FileAppend,%letter21%,C:\memory.txt
if rand1 = 10
letter22 = T
Sleep 1
FileAppend,%letter22%,C:\Car Number.txt
FileAppend,%letter22%,C:\memory.txt
if rand1 = 11
letter23 = У
Sleep 1
FileAppend,%letter23%,C:\Car Number.txt
FileAppend,%letter23%,C:\memory.txt
if rand1 = 12
letter24 = X
FileAppend,%letter24%,C:\Car Number.txt
FileAppend,%letter24%,C:\memory.txt
Sleep 1
;*************************************************************
Sleep 1
Random, rand1, 1, 12
Sleep 1
if rand1 = 1
letter25 = A
Sleep 1
FileAppend,%letter25%,C:\Car Number.txt
FileAppend,%letter25%,C:\memory.txt
if rand1 = 2
letter26 = B
Sleep 1
FileAppend,%letter26%,C:\Car Number.txt
FileAppend,%letter26%,C:\memory.txt
if rand1 = 3
letter27 = E
Sleep 1
FileAppend,%letter27%,C:\Car Number.txt
Sleep 1
FileAppend,%letter27%,C:\memory.txt
if rand1 = 4
letter28 = K
Sleep 1
FileAppend,%letter28%,C:\Car Number.txt
Sleep 1
FileAppend,%letter28%,C:\memory.txt
if rand1 = 5
letter29 = M
Sleep 1
FileAppend,%letter29%,C:\Car Number.txt
Sleep 1
FileAppend,%letter29%,C:\memory.txt
if rand1 = 6
letter30 = H
Sleep 1
FileAppend,%letter30%,C:\Car Number.txt
Sleep 1
FileAppend,%letter30%,C:\memory.txt
if rand1 = 7
letter31 = O
Sleep 1
FileAppend,%letter31%,C:\Car Number.txt
Sleep 1
FileAppend,%letter31%,C:\memory.txt
if rand1 = 8
letter32 = P
Sleep 1
FileAppend,%letter32%,C:\Car Number.txt
Sleep 1
FileAppend,%letter32%,C:\memory.txt
if rand1 = 9
letter33 = C
Sleep 1
FileAppend,%letter33%,C:\Car Number.txt
Sleep 1
FileAppend,%letter33%,C:\memory.txt
if rand1 = 10
letter34 = T
Sleep 1
FileAppend,%letter34%,C:\Car Number.txt
Sleep 1
FileAppend,%letter34%,C:\memory.txt
if rand1 = 11
letter35 = У
Sleep 1
FileAppend,%letter35%,C:\Car Number.txt
Sleep 1
FileAppend,%letter35%,C:\memory.txt
if rand1 = 12
letter36 = X
FileAppend,%letter36%,C:\Car Number.txt
Sleep 1
FileAppend,%letter36%,C:\memory.txt
Sleep 1
FileAppend,|43rus ,C:\Car Number.txt
FileRead, Msg, C:\memory.txt
;Смена Региона ↓↓↓↓↓ Пример 43rus.
clipboard = %Msg%|43rus
MsgBox, 4, , %Msg%|43rus`nАвтомобильный номер в буфере обмена.`nПродолжить?
;Смена Региона ↑↑↑↑↑ Пример 43rus.
}
rand1 =
letter1 =
letter2 =
letter3 =
letter4 =
letter5 =
letter6 =
letter7 =
letter8 =
letter9 =
letter10 =
letter11 =
letter12 =
letter13 =
letter14 =
letter15 =
letter16 =
letter17 =
letter18 =
letter19 =
letter20 =
letter21 =
letter22 =
letter23 =
letter24 =
letter25 =
letter26 =
letter27 =
letter28 =
letter29 =
letter30 =
letter31 =
letter32 =
letter33 =
letter34 =
letter35 =
letter36 =
IfMsgBox No
{
rand1 =
letter1 =
letter2 =
letter3 =
letter4 =
letter5 =
letter6 =
letter7 =
letter8 =
letter9 =
letter10 =
letter11 =
letter12 =
letter13 =
letter14 =
letter15 =
letter16 =
letter17 =
letter18 =
letter19 =
letter20 =
letter21 =
letter22 =
letter23 =
letter24 =
letter25 =
letter26 =
letter27 =
letter28 =
letter29 =
letter30 =
letter31 =
letter32 =
letter33 =
letter34 =
letter35 =
letter36 =
break
}
GetKeyState,state,F12
if state = D
{
FileDelete, C:\Car Number
}
}