1 (изменено: danil.ykuem, 2017-02-23 22:45:34)

Тема: Оцените скрип

Есть скрипт. Выскажите свое мнение.

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
}
}

2

Re: Оцените скрип

danil.ykuem
Правила форума обязательны к выполнению.
Заголовок должен быть осмысленным, т.е. сообразным с логикой работы одного скрипта, а также иметь префикс языка. Ознакомьтесь с темой.
Второй скрипт удалите и при желании можете выложить отдельно. Здесь - оффтоп.
Расставьте отсутствующие точки в предложениях.
На исправления даётся 3 дня. До всех исправлений ответы запрещены.

Закрыто.