!1::
MouseMove, 267, 743
Sleep, 500
Send, {LButton}
Sleep, 500
MouseMove, 780, 405
Sleep, 500
Send, {LButton}
Sleep, 500
Send, {Enter}
Sleep, 500
Send, {Enter}
Sleep, 500
Send, {Enter}
Sleep, 500
Send, {Enter}
Sleep, 500
    I := A_Index    
    While StrLen(I) != 6    
    I = 0%I%    
    SendInput romka%i%{enter}
    Sleep, 500
Send, {TAB}
return